如何一次读取一行文本并将其写回到另一个VB6文件中

Question

我对VB6很少有经验，我需要一些帮助。我试图从文件“A”中一次读取一行，对该行进行更改，并将其写回到文件“B”。随我添加文件“B”。我在网上发现了很多信息，但没有一个符合我的要求。

如果有人知道一个好的链接或者可以给我看一些代码，我将不胜感激。

感谢

Answer 1

我扔了一起真正的快，但它应该是很容易阅读。你打开你的文件来阅读，然后打开你的文件，然后遍历它。

Dim fileIn As Integer 
Dim fileOut As Integer 
Dim sLine As String 

fileIn = FreeFile 

Open "C:\Temp\input.txt" For Input As fileIn 

fileOut = FreeFile 

Open "C:\Temp\output.txt" For Append As fileOut 

Do While Not EOF(fileIn) 
    Line Input #fileIn, sLine 
    sLine = sLine & " has been changed" ' This is where you'd make your changes 
    Print #fileOut, sLine 
Loop 

Close fileIn 
Close fileOut