第一不要说自己垃圾……
第二我推荐不了，我没有看过什么书籍教程或者视频……

看的最多的是自带的帮助……有问题搜索引擎……然后在论坛看看老帖子，一些经典的帖子。。。

我基本是一路搜索过来的……

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

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

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, AddM As Byte
Dim StrLine As String, StrLines As String
Open "d:\slorelee\桌面\data.txt" For Input As #1
Do Until EOF(1)
Line Input #1, StrLine
If StrLine = "M08" or StrLine = "G40" Then
If StrLine = "M08" Then StrLine = "SloreM33M35" 'Slore可以换一个不存在的字符比如:Z
If StrLine = "G40" 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

i = i + 2
StrLine = Format(i, "\N0000") & StrLine
End If
StrLines = StrLines & StrLine & vbCrLf
Loop
Close #1

StrLines = Replace(StrLines, " ", "")
StrLines = Replace(StrLines, "G41", "M32M37")
StrLines = Replace(StrLines, "M02", "M34M45M30")
StrLines = Replace(StrLines, vbCrLf & "Slore", "") '将回车+Slore替换掉
Text1 = StrLines

End Sub

自己先看看用到什么函数了？没有什么大型程序中用的函数！用的都是我在最开始给你说的。
对比你前一帖子发现格式还是和那个有点出入……我不帮你分析数据。恩，这个结果是你提到的分部分第几行加什么的代码，自己看下……
差的是思路不是函数的使用……

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

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

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

我没有看到第一行要加……而且这个要简单的多，参考我上面的那些不能写出来麽？
要加也很简单……
If Left(StrLine,3) = "G00" Then StrLine = StrLine & "M33M35" '放在ADDM上面

[/color]那句话是用来控制开关的……最后一行如何遇到M07,ADDM变成1，下次过来就是你说第4行，后面加M35M50，然后ADDM变成2，下换过来的时候就是第5行……同时把ADDM清除……

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

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

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

自己弄好了不错！我在你另开的帖子里回过了……你可以看看，方法一样不。。。

谢谢，我看一下。