Question

VB搜索并修改TXT中文字,不同内容的

有一个代码:
Private Sub Command2_Click()
Dim a$, b$
Open "D:\vb.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, a ' 读入一行数据并将其赋予某变量。
b = b & Replace(a, "rightSpace", "rightSpace=-242") & vbCrLf ' 替换并放入变量
Loop
Close #1 ' 关闭文件。

Open "D:\vb.txt" For Output As #1 ' 打开文件。
Print #1, b '写入文件
Close #1 ' 关闭文件。
End Sub

他能打开文件并替换掉我需要替换的文字,但是测试后发现只能替换特定的文字,不能进行其他类型的替换,比如
我叫这个程序把VB替换成了VB6
但是我还要再把TXT替换成AAA
后来再发现还要再把XXX替换成222
以上程序就不能实现,否则从新写入的文件会发生多层重叠!
求解决!

Answer 1

假如你要完成后来的操作的话,就不能单单使用一个Replace函数这么简单了,你需要加别的判断,甚至用你自己的代码替换一些东西

Answer 2

如果文件不大的话，还是用
File System Object 吧，好用一点