Question

VB如何删除txt中某些文字

譬如我有一个txt是如下写的
1
2
1
31
2
5
31
请问VB怎么写语句删除文件内的含“31”的行？已知行数不一定固定，但31是固定的，请问大神们改怎么写，我新手，学习学习

Answer 1

Sub AAA()
    Dim S As String
    Dim I As Long
    Dim Ar
    Open "D:\123.TXT" For Binary As #1
        S = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    Ar = Split(S, vbCrLf)
    Open "D:\123.TXT" For Output As #1
        For I = 0 To UBound(Ar)
            If InStr(Ar(I), "31") = 0 Then Print #1, Ar(I)
        Next
    Close #1
End Sub

Answer 2

那就一行行的读取数据，然后对读取到的每一行数据值进行判断