逐行编辑文本文件 VB6

Posted 2023-03-06

【中文标题】逐行编辑文本文件 VB6

【英文标题】：Edit text file line by line VB6

【发布时间】：2017-04-19 18:42:07

【问题描述】：

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

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

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

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

【参考方案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

【讨论】：

我只想编辑一个特殊的行，其他数据不会改变