Question

VB读取TXT，并将TXT指定字符串替换

变量：
@02="大"
@03=100
@04=567
比如读取到TXT一行的字符为 bian="资料：@03有@02木（@04）有"
想把TXT的这行资料转换成 bian="资料：100有大木（567）有"

Answer 1

要修改的文件D:\123.txt，修改后的文件保存为D:\abc.txt

Private Sub Command1_Click()
Dim FileNumber1, FileNumber2, Str As String
FileNumber1 = FreeFile '得到一个未使用的文件号。

Open "D:\123.txt" For Input As #FileNumber1 '打开要读取的文件

FileNumber2 = FreeFile
Open "D:\abc.txt" For Output As #FileNumber2 '打开要写入的文件

While Not EOF(1) ‘直到最后一行

Line Input #FileNumber1, Str ’按行读取文件

Str = Replace(Str, "@02", "大") ‘替换第一个字符

Str = Replace(Str, "@03", "100") '替换第二个字符

Str = Replace(Str, "@04", "567")'替换第三个字符
Print #FileNumber2, Str '写入替换后的内容

Wend
Close #FileNumber1 '关闭文件

Close #FileNumber2 '关闭文件

End Sub

Answer 2

检索"="，然后判断左边或右边是否是你需要替换的字符串，如果是，则替换掉

Answer 3

用readline 读取TXT的每一行，
然后用 Replace 逐行替换。

追问

读出来可以的，就是替换不知道怎么替换，因为
bian="资料：@03有@02木（@04）有" 中有3个不同的变量，要怎么替换。

Answer 4

读一行
替换一行
写入新文件。
不会VB学呀，三天搞定，聪明点的一天。

追问

每一行都有几个不固定的变量，要怎么区分和判断