逐行編輯文本文件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