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

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

n=9

ss=""

for i=1 to n

ss=ss &i &vbcrlf

next

text1.text=ss

记得text1的MultiLine设置为true

不知道文件的大小。如果小的话，可以全部读出然后再加上一个数字再写回去，如果很大，那就读出一个加上数字然后再写到另一个文件里边。我给出后一种，其实也适合前一种：

Private Sub Command1_Click()

Dim i As Integer

Dim temp As String

Open "D:\1.txt" For Input As #1 '打开文件1.txt

Open "D:\2.txt" For Output As #2 '打开要输入的文件2.txt

While Not EOF(1)

i = i + 1

Line Input #1, temp '读出一行数据

Print #2, i &temp &Chr(13) &Chr(10) '加上序列并写入输出文件

Wend

Close #1 '关闭源文件

Close #2 '关闭输入的文件

MsgBox "序列添加成功！", vbOKOnly + vbInformation, "提示信息"

End Sub

---