vb.net字符分割问题-----

Question

已知数组StrA的值等于{"G1(Z1)", "G2(Z2)", "M1(Z3)", "M2(Z4)", "NL(Z5)"}，
或{"G1(Z1,Z2,Z3)", "G2(Z4,Z5)", "M1(Z6)", "M2(Z7)", "NL(Z8,Z9)"}，
求：当StrA等于第一组值时，数组StrB={"G1", "G2", "M1", "M2", "NL"}；
当StrA等于第二组值时，数组StrB={"G1-1”,”G1-2”,”G1-3", "G2-1”,G2-2", "M1", "M2", "NL-1”,NL-2"}

Answer 1

if (instr(stra(0), ",") <> -1) then
msgbox left(stra(0), instr(str(0), "(") - 1)
else
msgbox left(stra(0), instr(str(0), "(") - 1) & "-1"
end if