请问文本文件中查找并替换遇到的问题
一个文本a.txt,内容为:No: 1
No: 2
No: 3
.
.
.
.
No: 10
我想在一个文本框里输入一个数字(原有数字),在另一个文本里输入另一个数字(新数字),按了按钮后,文本里的原有数字变成新数字。
我的程序是:
程序代码:
Dim FileNumber1, FileNumber2, Str As String FileNumber1 = FreeFile Open (Dir1.Path & "\" & File1.Filename) For Input As #FileNumber1 FileNumber2 = FreeFile Open Dir1.Path & "\" & "~tmp.txt" For Output As #FileNumber2 While Not EOF(1) ' Line Input #FileNumber1, Str Str = Replace(Str, "No: " & Text1.Text, "No: " & Text2.Text) Print #FileNumber2, Str Wend Close #FileNumber1 Close #FileNumber2 Kill (Dir1.Path & "\" & File1.Filename) Name Dir1.Path & "\" & "~tmp.txt" As File1.Filename
但我遇到一个问题,假如我在Text1里输入1,在Text2里输入7,这样运行后,的确NO: 1变成No: 7了,但No: 10也变成No: 70了,怎么解决呢?