删除带指定字符串的行？？？？？？？

Question

例如
aa111ccuu
hh222nnjjjjj
gg222kk
99lllnn
00dddkktttttt
22yyypp
qqyyy11ggg
kkuuyyd
......
.....
删除带1和2的行，（1和2的位置不一定在开头，中间，还是结尾）
执行后结果如下
00dddkk
kkuuyyd

Answer 1

Public Sub main() '一行一行读入文本，对单行进行处理
    Dim fs, f
    Dim s As String, ss As String
    Dim c As Variant, b As Boolean
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    Set f = fs.OpenTextFile("d:\1.txt", 1)
    Do
        s = f.readLine  '行读文件进行处理
        b = True
        For Each c In Split("1,2,a", ",")   '要排除的字符，可任意添加
            If InStr(1, s, c) Then b = False: Exit For
        Next c
        If b Then ss = ss & s & vbCrLf
    Loop Until f.AtEndOfStream
    f.Close
    
    Set f = fs.CreateTextFile("d:\New_1.txt", True) '生成新文件
        f.Write ss
    f.Close
    
    Set f = Nothing: Set fs = Nothing
End Sub
文本放入d:\1.txt，生成新文本d:\New_1.txt，期中就是结果。

Answer 2

逐行读取，然后逐行写入文件，使用Instr函数判断行字符串中是否含有特殊关键字，那么就不写入这一行即可