大佬们，文本重新写一个怎么跳过符合条件的行

你地铁图

Do While Not EOF(1)         '循环至文件结尾
            DoEvents                        '用于大量计算 鼠标卡住
            Line Input #1, strText     '读取这个文件的每一行到变量strText
            If InStr(strText, "#") <> 0 Or InStr(strText, "repeated") <> 0 Then
                Print #2, ""
            Else
                Print #2, strText                    '否则输出原来的内容
            End If
        Loop
        Close #2
        Close #1

gwjkkkkk

Print #2, ""
这句删除应该就行了。。。

你地铁图

gwjkkkkk 发表于 2023-1-11 20:02
Print #2, ""
这句删除应该就行了。。。

不做处理就是跳过