Question

Vb里面怎么对一个TXT文件按行读取，并排除带有指定字符的行？

Answer 1

'看代码
    Dim AllStr As String

    Dim s      As String

    Open filename For Input As #1

    Do While Not EOF(1)
        DoEvents
        Line Input #1, s
        if isntr(1,s,"特定字符")=0 then
        If AllStr = "" Then
            AllStr = s
        Else
            AllStr = AllStr & vbCrLf & s
        End If
        endif
    Loop

    Close #1