如何使用 vb 写入文本文件中的特定行

Question

我有一个包含此示例数据的文本文件

绑架测试|1
芯片测试|2
帽子测试|3
邪恶测试|4

我想知道如何循环它以找到用户并删除该行。

这是我到目前为止所拥有的：

Public Sub RemoveMember(member As String)
Dim u As String, strdata() As String

Open (App.Path & "\Membership.txt") For input As #1
    Do

    input #1, u

    strdata = Split(u, "|")

    If strdata(0) = member Then
        'figure out a way to remove this line from the text file'
    End If

    Loop Until EOF(1)

Close #1
End Sub

Answer 1

我会说：

• 逐行读入
• 检查该行是否包含要删除的成员
• 如果不包含则将该行写回新文件 读取
• 所有行后删除原始文件
• 将新文件重命名为原始文件

Stefan 的方法可能更快，但如果文件变得非常大，则会使用大量内存。

我不熟悉VB的本地文件方法。使用 FileSystemObject（参考 Microsoft Scripting Host），您将得到：

Dim clsOriginalFile as TextStream
Dim clsNewFile as TextStream
Dim FSO as New FileSystemObject
Dim varLine as Variant
Dim strLine as String

set clsOriginalFile=FSO.OpenTextFile "members.txt", ForReading
set clsNewFile =FSO.OpentTextFile "temp.txt", ForWriting, True

Do While Not clsOriginalFile.AtEndOfStream
    varLine = clsOriginalFile.ReadLine
    strLine=varLine
    If instr(strLine,member)=0 Then
        clsNewFile.WriteLine strLine
    End If
Loop

clsOriginalFile.Close
clsNewFile.Close

FSO.DeleteFile("members.txt")
FSO.MoveFile("temp.txt","members.txt")

无需 IDE 的帮助即可编写，因此代码中可能存在一些拼写错误。