Private Sub Form_Load() a = "1,2,3,4,5" s = Split(a, ",") For i = 0 To UBound(s) MsgBox s(i) Next End Sub 按,将a分开
dim aa() as String dim bb() as string str=01,02,03,04,05;02,06,08,09,12 aa=split(str,";") for i=0 to UBound(aa) bb=split(aa(i),",") next 不知道能看明白不?先用记录条之间的间隔符,再用数据的间隔符
a = "1,2,3,4,5"
s = Split(a, ",")
For i = 0 To UBound(s)
MsgBox s(i)
Next
End Sub
按,将a分开
dim bb() as string
str=01,02,03,04,05;02,06,08,09,12
aa=split(str,";")
for i=0 to UBound(aa)
bb=split(aa(i),",")
next
不知道能看明白不?先用记录条之间的间隔符,再用数据的间隔符
StrData="01,02,03,04,05"
dim Arr_1
Arr_1=split(StrData,",")以","将StrData进行分隔.将分隔后的数据是
Arr_1(0)=01
Arr_1(1)=02
Arr_1(2)=03
Arr_1(3)=04
Arr_1(4)=05'***************************
比如:
StrData="01,02,03,04,05"
dim Arr_1
Arr_1=split(StrData,"03")以"03"将StrData进行分隔.将分隔后的数据是
Arr_1(0)="01,02," (03之前的数据)
Arr_1(1)=",04,05" (03之后的数据)
'***************************
'***************************
比如:
StrData="01,02,03,04,05,03,07"
dim Arr_1
Arr_1=split(StrData,"03")以"03"将StrData进行分隔.将分隔后的数据是
Arr_1(0)="01,02," (03之前的数据)
Arr_1(1)=",04,05," (第一个03与第二个03之间的数据)
Arr_1(1)=",07" (第二个03之后的数据)