逐行编辑文本文件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