逐行编辑文本文件 VB6

Question

我在此页面中使用此代码，用于逐行读取数据。现在如何逐行编辑文本文件？

(VB6) Reading text files line by line looking for specific words

    If InStr(1, lines(i), "sample text", vbTextCompare) Then
    lines (i)= "new text"

我使用了这段代码，但没有任何改变。

Answer 1

我认为，您正在编辑字符串数组，而不是文本文件本身。 您需要将更新后的字符串数组保存到文本文件中。

Dim i as Integer
Dim myFile as Integer
myFile = FreeFile
Open "C:\MyTextFileFromStringArray.txt" For Output As #myFile
For i = 0 To UBound(lines)
    Print #myFile, lines(i)
Next i
Close #myFile