|
#2
风吹过b2017-04-10 20:37
|
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
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了，怎么解决呢？