Question

vb分割字符串

比如a=“abcdef”怎么把字符串分割成单个字符到一个数组？！

Answer 1

这个很简单  用mid函数就行了

Private Sub Command1_Click()
Dim arr() As String
Dim a As String
Dim i As Integer
a = "abcdef"
ReDim arr(Len(a))  '重新定义数组长度为字符串长度
For i = 1 To Len(a)  '在字符串内循环
    arr(i) = Mid(a, i, 1)  '利用mid函数分割字符串并赋值到数组
    Print arr(i)  '输出分解的字符  测试用 可删掉
Next i
End Sub

Answer 2

的目的是要VB将字符串分成单个字符。 如果要放入一个数组中，可以这样： Private Sub Command1_Click() Dim s As String Dim ars() As String Dim i As Long, m As Long s = "abcdefg" m = Len(s) ReDim ars(m - 1) For i = 1 To m ars(i - 1)

Answer 3

汗...split函数是可以指定拆分次数的.....在分隔符后面指定拆分成2份就行了.....楼上的竟然搞那么复杂
Debug.Print
Split(Str,
"
",
2)