Question

怎么一行一行的读取vb中text.1的文件

文件如下
G00 X10 Y10
G01 X30 Y10
G03 X40 Y20 R10
G02 X30 Y30 R10
G01 X10 Y20
G01 X10 Y10
行数已知读取第一行，然后读第二行，用一个循环去读，然后输出所读的

Answer 1

vb读取text中的每一行，首先读取出text的全部内容，然后分割出每行，再逐行输出。具体代码如下：
Private Sub Command1_Click()
Dim a as string,b as string,i as long
a=text1.text '第一步获取text全部内容
b = Split(a, vbCrLf) '第二部分割每一行
For i = 0 To UBound(a)
Print b(i) '输出每行的内容
Next
End Sub

Answer 2

Private Sub Command1_Click()
    Dim arr, brr, i, j, a, b
    If InStr(Text1, vbNewLine) = 0 Then Exit Sub
    arr = Split(Text1, vbNewLine)
    For i = 0 To UBound(arr)
        Print arr(i),
        If InStr(arr(i), Space(1)) > 0 Then
            brr = Split(arr(i))
            For j = 0 To UBound(brr)
                If InStr(brr(j), "X") > 0 Then
                    a = Right(brr(j), Len(brr(j)) - 1)
                    Print "a="; a,
                End If
                If InStr(brr(j), "Y") > 0 Then
                    b = Right(brr(j), Len(brr(j)) - 1)
                    Print "b="; b
                End If
            Next
            Print String(50, "-")
        End If
    Next
End Sub
Private Sub Form_Load()
    Dim arr
    arr = Split("G00 X10 Y10,G01 X30 Y10,G03 X40 Y20 R10,G02 X30 Y30 R10,G01 X10 Y20,G01 X10 Y10", ",")
    Text1 = Join(arr, vbNewLine)
End Sub

Answer 3

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1, vbCrLf)
For i = 0 To UBound(a)
Debug.Print a(i)
Next
End Sub

追问

我想要的是读取第一行然后提取xy并赋值ab；
然后读取第二行提取xy值
怎么读第一行

追答

啥叫“然后提取xy并赋值ab”，xy和ab是啥？你总得把话说清楚吧？

追问

很抱歉我的表达能你不好，就是想要分开读取每一行

追答

Private Sub Form_Load()
Text1.Text = ""
Text1.Text = Text1.Text & "G00 X10 Y10" & vbCrLf
Text1.Text = Text1.Text & "G01 X30 Y10" & vbCrLf
Text1.Text = Text1.Text & "G03 X40 Y20 R10" & vbCrLf
Text1.Text = Text1.Text & "G02 X30 Y30 R10" & vbCrLf
Text1.Text = Text1.Text & "G01 X10 Y20" & vbCrLf
Text1.Text = Text1.Text & "G01 X10 Y10"
End Sub
Private Sub Command1_Click()
Dim j() As String
j = Split(Text1, vbCrLf)
Dim k() As String
For i = 0 To UBound(j)
k = Split(j(i))
a = Mid(k(1), 2, Len(k(1)) - 1)
b = Mid(k(2), 2, Len(k(1)) - 1)
MsgBox a & vbTab & b
Next i
End Sub

Answer 4

G00 X10 Y10
G01 X30 Y10
G03 X40 Y20 R10
G02 X30 Y30 R10
G01 X10 Y20
G01 X10 Y10