vb修改txt文件，如何实现按每个单词查询并不会自动换行啊？

原本文件是：CUTTING, 2, -1, 10, 1, 1, M07,M08
MARKER, 1, 0, 13, 3, 1, M9,M10,M11,M12
但实现查询M08替换M04后，自动换行成下面形式。请问怎么样修改后不会自动换行啊？求添加代码！
CUTTING
2
-1
10
1
1
M07
M04
MARKER
1
0
13
3
1
M9
M10
M11
M12
就是因为用REPLACE才会出现这样的问题啊!现在问题尸解决,引用FILESTREAM库里的查询函数就可以啊!
不相信的话,你用REPLACE试试看,肯定是不行的

顺便问下大哥是哪个学校的啊?学生时代就会用这些函数了啊,水平不一般啊!

不知道你是怎么修改M08为M04的
我觉得如果你是用replace函数修改的，应该不会出现这个问题。
看源文件有逗号，而结果里面没有逗号，我猜你可能是用splite函数以逗号为标志把源文件给分割了，然后查找替换。
我建议，使用"open 文件名 打开方式 文件号"读取文件，把整个文件保存在一个字符串里面，然后是用instr函数查询M08，找到后是用replace函数修改
这里简单的写一下：
Dim linetxt As String
Dim alltxt As String
Dim filnum As Long
filnum = FreeFile()
Open App.Path & "\readbook.txt" For Input As #filnum'打开文件
Do While Not EOF(filnum)
Line Input #filnum, linetxt
alltxt = alltxt & vbNewLine & linetxt
Loop
dim a as long
dim reptxt as string
a=instr(1,alltxt,"M08")
reptxt =mid(allxt,a,3)
alltxt=replace(alltxt,reptxt,"M04")
'保存alltxt到vb.txt的代码不写了，我马上上课，迟到了
Close #filnum ‘关闭文件

我是德州学院的学生，但是我是学计算机专业的，会这个理所当然。
replace函数不可能导致这种现象，我用我说的代码试了，运行的很好，也没有你说的那种现象，你是不是看了我的代码没有试一下？

也可能是因为你的程序太庞大，错误出来了不好找在那里。发给我（singlion@126.com），帮你调试一下。
我调试代码的源文件放在