Question

vb修改txt内容问题？？

第一次我把20后面的空格都删去，运行没错，第二次运行就多出来一行?为什么那？？
Dim L As Integer
i = 1
a = Text1.Text
MyStr = ""
Open "F:\sw\wb\equations.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, LStr
L = InStr(LStr, "=")
LStr = Left(LStr, L)
LStr = LStr & a
MyStr = MyStr & LStr & vbCrLf
a = Text2.Text
Loop
Close #1
Open "F:\sw\wb\equations.txt" For Output As #1
Print #1, MyStr
Close #1
End Sub





Answer 1

MyStr = MyStr & LStr & vbCrLf
这里不是接了一个换行符么

追问

程序少了最上面一行，Dim MyStr, LStr, i, a As String，，，
不换行不行呀，第一行和第二行就成一行了，，主要问题是第二行替换完内容，有给换了一行，下次使用时，第三行就会出现内容，怎么修改呀，谢谢！

追答

用left 少截取换行符 不就好了吗

追问

修改好了，可以了，谢谢