估计版主看见我又发问快烦了吧，但是实在是对不起啊，就给我们这些新人一点帮助吧。现在还剩下最后一个最难的地方。
我还发现这个文件虽然这么多行，但是它分为了好多部分，而且每部分都是以：
“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这两行我已经去掉了，所以现在是最后一行），而且每一部分都一样，这一点对我来说太难了，我实在是不会。希望能用编码提示我。最好能像上面的一样给我代码，谢谢了，急啊。我发现这两天在论坛上学到了好多东西啊。谢谢版主了。

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

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

版主，我想了昨天一晚上，实在是弄不出来，主要是领导要的急，实在是没办法了，明天就要交了。我估计自己这几天再怎么努力也没用了，估计还是弄不出来。看来只能是以后在慢慢学习了。
希望版主能抽点时间帮忙把这弄一下吧，谢谢了。
刚开始学的时候我感觉这对我来说太难了。我现在只能编一些简单的小程序，一些比较大的程序中的一些函数，我还不太了解，还要继续看，继续学，继续自己多写写，希望这次版主能帮一下忙。谢谢了。

[此贴子已经被作者于2007-9-5 9:49:09编辑过]

万分感谢，我会继续努力的。
太感谢了。

If AddM = 2 Then StrLine = StrLine & "M45": AddM = 0
这句话是什么意思啊？
还有就是“M33M35”应该是加在含“G00”的字符串的那一行的后面

[此贴子已经被作者于2007-9-5 16:51:57编辑过]

好比我现在想向文件的第10行和第11行之间增加一行内容，比如“http://bbs.bc-cn.net”，怎么添加啊。

终于自己弄好了，太高兴了。这首先要感谢slore版主，现在我对vb产生了兴趣了。谢谢你

谢谢，我看一下。

不好意思，又要打扰你了，现在出现一点问题想请教一下。第一：原来的文件不是有好几个“G41”吗？但是转换后只要求第一次出现的G41改为M32M37，后面出现的全部删除。
第二：当检测到字符串G00的时候，在这一行后面增加M35M50，但是要求第一次出现的后面不增加。不知道怎么解决，谢谢了。


Private Sub Command1_Click()
Dim i As Integer, AddM As Byte
Dim strLine As String, StrLines As String
Open "c:\3\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
If strLine = "M08" Or strLine = "G40" Or strLine = "G41" Then
If strLine = "M08" Then strLine = "Slore" 'Slore可以换一个不存在的字符比如:Z
If strLine = "G40" Then strLine = "Slore"
If strLine = "G41" Then strLine = "Slore"

Else
If AddM = 2 Then strLine = strLine & "M45": AddM = 0
If AddM = 1 Then strLine = strLine & "M35M50": AddM = 2

If strLine = "M07" Then strLine = "M36M00": AddM = 1
If Left(strLine, 3) = "G00" Then strLine = strLine & "M33M35"
strLine = Format(i, "\N0000") & strLine
i = i + 2
End If
StrLines = StrLines & strLine & vbCrLf
Loop
Close #1

StrLines = Replace(StrLines, "I.", "I0.")
StrLines = Replace(StrLines, "J.", "J0.")
StrLines = Replace(StrLines, " ", "") '去掉字符串中的空格
StrLines = Replace(StrLines, "M02", "M34M45M30")
StrLines = Replace(StrLines, "N0000G21", "%10001")
StrLines = Replace(StrLines, "N0002G91", "N0002G92X0Y0")
StrLines = Replace(StrLines, "N0004G92X0Y0", "N0004G91")
StrLines = Replace(StrLines, "N0006F650", "N0006F650")
StrLines = Replace(StrLines, "N0008G00X1508.00Y714.31M33M35", "N0008G00X1508.00Y714.31") '按不同的文件作相应的修改
StrLines = Replace(StrLines, vbCrLf & "Slore", "") '将回车+Slore替换掉

Text1 = StrLines



MkDir ("c:\4")
Open "c:\4\2.txt" For Output As #1
Print #1, Text1
Close #1
End Sub