UC知道VB字符串拆分问题
来源：百度知道 编辑：UC知道 时间：2024/05/27 23:33:21
Dim strmark As String
Dim n As Integer
Dim k As Integer
Dim vararrayD() As String
ReDim vararrayD(0 To 100, 0 To aryABLen)
strmark = "--"
k = 0
Dim hh As Integer
For i = 0 To List1.ListCount - 1
Dim strLen As Integer
strLen = Len(List1.List(i))
n = InStr(List1.List(i), strmark)
If n > 0 Then
vararrayD(i, k) = Left(List1.List(i), n - 1)
'Print n
k = k + 1
h = n + 1
For j = h To strLen
m = InStr(h, List1.List(i), strmark)
Print m;
If m > 0 Then
vararrayD(i, k) = Mid(List1.List(i), h, m - h)
h = m + 1
End If
Next
End If
Print ;
Next
实现字符串的拆分，把拆分后的字符串赋给数组，其中——为字符串分隔符。
vararrayD(i, k) = Mid(List1.List(i), h, m - h) 下标越界，如何解决。
Dim n As Integer
Dim k As Integer
Dim vararrayD() As String
ReDim vararrayD(0 To 100, 0 To aryABLen)
strmark = "--"
k = 0
Dim hh As Integer
For i = 0 To List1.ListCount - 1
Dim strLen As Integer
strLen = Len(List1.List(i))
n = InStr(List1.List(i), strmark)
If n > 0 Then
vararrayD(i, k) = Left(List1.List(i), n - 1)
'Print n
k = k + 1
h = n + 1
For j = h To strLen
m = InStr(h, List1.List(i), strmark)
Print m;
If m > 0 Then
vararrayD(i, k) = Mid(List1.List(i), h, m - h)
h = m + 1
End If
Next
End If
Print ;
Next
实现字符串的拆分，把拆分后的字符串赋给数组，其中——为字符串分隔符。
vararrayD(i, k) = Mid(List1.List(i), h, m - h) 下标越界，如何解决。
你的问题没有想像中的复杂，VB提供了SPLIT函数可以实现你的要求。为了说明问题下面给个例子给你参考：
新建标准EXE
放入一个文本框TEXT1用于让用户输入要分组的字符串。
放入一个COMMAND1
输入以下代码：
Dim A() As String
Private Sub Command1_Click()
A() = Split(Text1.Text, "-", -1, vbTextCompare)'以“-”将字符串分割后存到一个以下标为0开始的数组里
Dim i As Integer
For i = 0 To UBound(A()) 'UBound(a())返回数组的最大下标LBound(A())返回最小下标
Debug.Print A(i) '将结果打印到即时窗口
Next i
End Sub
看，你要的功能只用了一行代码便搞定了A() = Split(Text1.Text, "-", -1, vbTextCompare)。