How to read one line of text at a time and write back out to another file in VB6

Question

I have very little experience with VB6 and I need some help. I'm trying to read from file "A" one line at a time, make changes to that line, and write it back out to file "B". Appending File "B" as I go. I've found plenty of info on the web but none of it matches what I'm looking for.

If there's anyone who knows of a good link or can show me some code I'd greatly appreciate it.

Thanks

Answer 1

I threw this together real quick, but it should be pretty easy to read. You open your file to read, and your file to write to, and iterate through it.

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