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

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

Answer 3

Private Sub Command1_Click()
Dim a$
Open App.Path + "\test.txt" For Input As #1
Open App.Path + "\test1.txt" For Output As #2
Do
Line Input #1, a
If Val(a) <> 31 Then Print #2, a
Loop While Not EOF(1)
Close #2
Close #1
End Sub
那么查看test1.txt中就是结果