Как читать одну строку текста за раз и записывать обратно в другой файл в 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