现在我是想把此TXT文件读取出来(这个我已实现),但是我还想在读取此文件后,能把字符串中的空格全去掉,并且在每行的开头一次加上序列号,依次为:N0002,N0004,N0006(以2为阶)。我还发现这个文件虽然这么多行,但是它分为了好多部分,而且每部分都是以:
“G00 X1508.00 Y714.31
G41
M07
G03 X12.00 Y12.00 I.00 J12.00
G01 X.00 Y173.69
G03 X-498.00 Y.00 I-249.00 J.00
G01 X.00 Y-200.00
G03 X498.00 Y.00 I249.00 J.00
G01 X.00 Y26.31
G03 X-12.00 Y12.00 I-12.00 J.00
M08
G40”
每部分开头都有“G00”,下一行是“G41”和“M07”最后两行是“M08”和“G40“
现在我就不懂如何实现我上面说的”在每行的开头一次加上序列号,依次为:N0002,N0004,N0006(以2为阶)“
我编的读取文件程序如下:
Private Sub Command1_Click()
Open "c:\1.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1Text1.Text = Lines
End Sub
谢谢各位了。
我的邮箱是:lumindiyi@163.com