VB 6.0 拆分函数

Question

RE: 拆分函数 [VB 6.0]

从此：在Tex1中我有：“”数字空间数字空间数字“”

1 2 3

2 3 4

5 6 7

8 9 9

9 8 7 ......等等......等等......

使用这个拆分函数代码我操纵数据得到这个：

1 2

2 3

5 6

8 9 及之后的第二列

2 3

3 4

6 7

9 9 等...

Private Sub Command1_Click()

Dim Lines() As String
    Lines = Split(Text1.Text, vbNewLine)
    Dim a As Long
    For a = LBound(Lines) To UBound(Lines)
        Lines(a) = Left$(Lines(a), 3&)  ''  or Mid$
    Next
    Text2.Text = Join(Lines, vbNewLine)
End Sub`

这很有效。 我偶然发现了“”第一个数字空间最后一个数字：“”

1 3

2 4

5 7 等....

任何实现这一目标的建议将不胜感激。 非常感谢

Answer 1

您应该在循环中再次使用 Split 函数而不是 Mid:

Private Sub Command1_Click()

    Dim Lines() As String
    Lines = Split(Text1.Text, vbNewLine)
    
    Dim Line() As String
    Dim sOutput As String
    
    Dim a As Long
    For a = LBound(Lines) To UBound(Lines) - 1
        Line = Split(Lines(a), " ")
        sOutput = sOutput & Line(0) & " " & Line(2) & vbCrLf ' First and last are index 0 and 2
    Next
    
    Text2.Text = sOutput

End Sub

如果你想要第一个和第二个，你使用：

sOutput = sOutput & Line(0) & " " & Line(1) & vbCrLf

如果你想要第二和第三，你使用：

sOutput = sOutput & Line(1) & " " & Line(2) & vbCrLf