字符串分割，转为数组

[zjd5688]

例如：字符串 "A1:B2,AA4:AB5,AA7:AB8" 转化为 数组 s[0]="A1",s[1]="B1",s[2]="A2",s[3]="B2",s[4]="AA4",s[5]="AB4",s[6]="AA5",s[7]="AB5",s[8]="AA7",s[9]="AB7",s[10]="AA8",s[11]="AB8"
怎样用函数实现，谢谢

[莫情莫钱]

阁，楼上的都说了，用那个函数是不错，满好的，它按分割符来给你转换成数组

[crycoming]

还是直接用Excel的对象方便一点

[zjd5688]

我不想用Excel对象，我想用函数实现，因为实际情况不允许，谢谢，有好办法吗？

[maweifeng]

VB有一个函数Split，
再贴一个：
'字符串解析程序，将字符串分解解析为数组

Public Function StringSplit(ByVal SplitString As String, Optional ByVal Delimiter As String = ",") As Double()
' splitta una stringa in tokens separati dal delimitatore specificato
' ?sensibile alla presenza di stringhe nella SpliString, per cui i delimitatori
' presenti dentro a "..." non vengono considerati validi

Dim SLen As Long, nTokens As Long
Dim MaskStr() As Byte
Dim i As Long, k As Long, j As Long, z As Long
Dim retval() As Double

SLen = Len(SplitString)
If SLen > 0 Then
ReDim MaskStr(1 To SLen)
' RICERCA DOPPI APICI
i = 0
k = 0
Do
i = InStr(i + 1, SplitString, Chr(34))
If k = 0 Then
k = i
Else
If i = 0 Then ' fino alla fine della stringa
z = SLen
Else
z = i
End If
For j = k To z
MaskStr(j) = 1
Next j
k = 0
End If
Loop Until i = 0

' splittaggio vero e proprio
ReDim retval(0 To SLen - 1) As Double ' dimesioni massime possibili
nTokens = 0
i = 0
k = 1
Do
i = InStr(i + 1, SplitString, Delimiter)
If i > 0 Then
If MaskStr(i) = 0 Then ' delimitatore valido
retval(nTokens) = CDbl(Trim(Mid$(SplitString, k, i - k)))
nTokens = nTokens + 1
k = i + 1
End If
Else
If k > 0 Then ' fino alla fine - ultimo token
retval(nTokens) = CDbl(Trim(Mid$(SplitString, k)))
nTokens = nTokens + 1
k = 0
End If
End If
Loop Until i = 0
ReDim Preserve retval(0 To nTokens - 1) As Double

StringSplit = retval
End If

End Function

[zjd5688]

先用Split分割为数组，然后再用Split继续分割，得到 （A8 B11）（A13 B39）（A15 B30），在得到最后数组