比如txt内容：

1adklw
56defgh
9dgeszd
df4sgnh
15tedcg
...

要删除含有 “1”的所有行

执行后

56defgh
9dgeszd
df4sgnh
...

小弟菜鸟 刚学习VB  能帮忙写下代码吗？

[ 本帖最后由 z8571127 于 2010-10-9 01:10 编辑 ]

弄个临时文件

同意2楼。

谢谢 两位朋友  我是菜鸟  刚刚学习VB  代码不会写啊  
不知道 朋友有没有时间 帮忙写一个
在这 谢谢了

Option Explicit

Sub Main()
    Dim a() As Byte, v, o
    Open App.Path & "\test.txt" For Binary As #1
        If (LOF(1)) < &H3FFFF Then
        ReDim a(1 To LOF(1)) As Byte
        Get #1, , a
        End If
    Close #1
    v = Split(StrConv(a, vbUnicode), vbCrLf)
    o = Filter(v, "1", False)
    Open App.Path & "\out.txt" For Output As #1
        If IsEmpty(o) Then
        Else
            For Each v In o
                'Write #1, v
                Print #1, v
            Next
        End If
    Close #1
End Sub

又学习了一个新函数 Filter

这个问题相信楼主自己可以解决的,谢谢

谢谢  bczgvip 版主 非常感谢