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

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

1 个答案: