如何替换文本文件VB6中的字符串

Question

我现在有问题。我使用textfile作为我的数据库。这是文本文件中我的字符串的格式。

01 /报警1/01：00：00

01 /报警2/02：00：00

01 / ALARM3 / 03：00：00

例如，我只想重命名Alarm2，但它会在开头和时间上保持01。谢谢你的帮助

Answer 1

请找到您可以依赖的示例：

1. 阅读文本文件
2. 更新其内容
3. 写回来

希望这会对你有所帮助。

Dim FSO As FileSystemObject
Dim TS As TextStream
Dim TempS As String
Dim Final As String
Set FSO = New FileSystemObject
Set TS = FSO.OpenTextFile("mydata.txt", ForReading)
Do Until TS.AtEndOfStream
    TempS = TS.ReadLine
    'if TempS contains Alarm2 => rename Alarm
    Final = Final & TempS & vbCrLf
Loop
TS.Close

Set TS = FSO.OpenTextFile("mydata.txt", ForWriting, True)
    TS.Write Final
TS.Close
Set TS = Nothing
Set FSO = Nothing

Answer 2

• 打开txt文件;

循环开始

• 获取字符串（按行） - 让我们认为它是'someStr'
• 您可以使用NewStr = Replace（someStr，“Alarm”，“Warning”）
• 将NewStr写入新文件

循环结束

关闭两个文件