Question

如何用VB批量修改TXT文件每行的数字（数字都在每行的最后）？

TXT文件有很多行（大概25左右），每行的结构都一样，如图所示。我想用VB改变每行最后的数字，该怎么做？请给出可以用的代码，最好给出不同的方法，我VB不太好，只会看代码，不怎么会写。谢谢！

Answer 1

Dim MyStr As String
Dim LStr As String
Dim L As Integer

'一边读取原文件信息，一边处理信息
'读取一行，去掉等号右边原数字，加入新数字
MyStr = ""
Open App.Path & "\result.txt" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, LStr '读入一行文本
L = InStr(LStr, "=") '定位到等号的位置
'从字符串里取出左边的L位字符，即：去掉了原来等号右边的数据
LStr = Left(LStr, L)
LStr = LStr & "9999" '写入新数字 9999 '假设都修改成9999
MyStr = MyStr & LStr & vbCrLf '连接到字符串MyStr里
Loop
Close #1 ' 关闭文件。

Open App.Path & "\result.txt" For Output As #1 '以写的方式打开文件
Print #1, MyStr
Close #1

追问

非常感谢你回答，运行后没有反应啊。还有，以上答案是假设都修改成9999，而实际是每行修改的数字不一样，该怎么办？还请不吝赐教

追答

1，没反应？你先把原来的文件保存到工程文件夹里，然后单击按钮，然后打开文件看修改了没有？
2，数字不一样，那么这个问题要看你数字在哪里呢？

追问

1. VB不能读写同时进行，应该是先关闭文件再写入数据吧。但我尝试不出来，请指导，最好亲自试一下。

2. 如果数字分别在text1、text2。。。该怎么操作？谢谢！

追答

你自己看这里的附件吧！