Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
Text1.Text = Replace(Text1.Text, " ", "")
Text1.Text = Replace(Text1.Text, "G41", "M32M37")
Text1.Text = Replace(Text1.Text, "G40", "")
Text1.Text = Replace(Text1.Text, "M08", "")
Text1.Text = Replace(Text1.Text, "M07", "M36M00")
Text1.Text = Replace(Text1.Text, "M02", "M34M45M30")
Do While InStr(1, Text1, vbCrLf & vbCrLf)
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Loop
End Sub

现在我已经实现到这里了，但是怎么能在每行前面加上“N0002,N0004......”呢？代码是什么啊。

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim StrLine As String, StrLines As String
Open "d:\slorelee\桌面\data.txt" For Input As #1
Do Until EOF(1)
Line Input #1, StrLine
i = i + 2
StrLine = Format(i, "\N0000") & StrLine
StrLines = StrLines & StrLine & vbCrLf
Loop
Close #1

StrLines = Replace(StrLines, " ", "")
StrLines = Replace(StrLines, "G41", "M32M37")
StrLines = Replace(StrLines, "G40", "")
StrLines = Replace(StrLines, "M08", "")
StrLines = Replace(StrLines, "M07", "M36M00")
StrLines = Replace(StrLines, "M02", "M34M45M30")

Text1 = StrLines

End Sub

你所需要的在最开始就给你说了……
&连接字符串……

版主，这个我知道啊，可是，原来我不是有这两个语句吗？
StrLines = Replace(StrLines, "G40", "")
StrLines = Replace(StrLines, "M08", "")
作用是去掉文件中G40，M08这些行，（他们有好多行，去掉后就出现了空行），然后我又使用了这个语句去掉空行：
Do While InStr(1, Text1, vbCrLf & vbCrLf)
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
Loop
可是现在按你给的那个，虽然我在前面加上了N0002，N0004.....，但是空行却没有去掉，而且它前面也增加了那些字符。现在就是能不能在先去掉空行的前提下在增加那些递增的数啊。

G40和M08建议在line那里过滤……在读取的时候处理！

哪我的代码改改好吧？要用的都在上面

好的，我知道了，谢谢阿

估计版主看见我又发问快烦了吧，但是实在是对不起啊，就给我们这些新人一点帮助吧。现在还剩下最后一个最难的地方。
我还发现这个文件虽然这么多行，但是它分为了好多部分，而且每部分都是以：
“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后面跟一x轴和y轴的值，第二行都是G41，第三行都是M07，最后两行依次是M08和G40。
现在怎么实现在每一部分的第四行的结尾增加“”M35M50，第五行的结尾增加“M45”，最后一行增加“M33M35”（原来的M08和G40这两行我已经去掉了，所以现在是最后一行），而且每一部分都一样，这一点对我来说太难了，我实在是不会。希望能用编码提示我。最好能像上面的一样给我代码，谢谢了，急啊。我发现这两天在论坛上学到了好多东西啊。谢谢版主了。

行读取的时候left函数取前3个检验……是否是g00
是的话某变量s=s+1
然后当s是多少的时候追加谁……
如果前3个m08那么在上面追加m33m35，然后G40忽略同时清除s变量为0……

不是嫌你麻烦……这个是自己的工作，我觉得有必要自己去完成……我全写完了复制下没有什么用……

给你提供思路，自己去完善自己的代码……

谢谢提示，我也知道啊，有了提示好办多了。
但有些东西还是不太会，我还是慢慢来吧。
不懂了在上来求救。

版主能不能推荐一本书看一下阿，适合我们这些垃圾新人看的。
谢谢了。