Question

如何通过split()让vb6把textbox中的内容分割为2维数组

如textbox中内容：
1x2x3y
2x3x4y
3x4x5y
转成数值数组：
{1,2,3
2,3,4
3,4,5}

Answer 1

Private Sub Command1_Click()
Dim arr() As Integer, tmp1, tmp2, tmp3 As String
tmp1 = Split(Text1, vbCrLf)
tmp2 = Split(tmp1(0), "x")
ReDim arr(UBound(tmp1), UBound(tmp2))
For i = 0 To UBound(tmp1)
For j = 0 To UBound(tmp2)
arr(i, j) = Val(Split(tmp1(i), "x")(j))
Next
Next

'arr你要的二维数组

End Sub

Private Sub Form_Load()
Text1.Text = "1 x2x3y" & vbCrLf & "2 x3x4y" & vbCrLf & "3 x4x5y"
End Sub

Answer 2

你问这个问题就好像在问：
如何用豆腐杀人，如何用圆珠笔在水泥地上写字，一样，根本是用错了工具。

Answer 3

因为你的字符串是有规律的 x x y
所以根据这个规律来切割