判断含有符号的“空行”

判断带有符号的“空行”
Demo:
标题一         标题二           标题三
      chr(9)          chr(9)           chr(9)     '带有符号的“空行”
aaa   chr(9)    bbb   chr(9)     ccc   chr(9)
aaa   chr(9)    bbb   chr(9)     ccc   chr(9)
aaa   chr(9)    bbb   chr(9)     ccc   chr(9)
 

如上所示，Demo是要准备读入的数组，“空行”里面有三个“chr(9)”符号, 看不见的，“aaa”、“bbb”、“ccc”右边空白位置也有一个“chr(9)”符号隔着，求判断出带有符号的“空行”后整行删除。
------解决方案--------------------
请参考：

Sub test()

    Dim w1 As String, i As Integer, ww

    w1 = Chr(9) & Chr(9) & Chr(9) '带有符号的“空行”

    w1 = w1 & vbCrLf & "aaa" & Chr(9) & "bbb" & Chr(9) & "ccc"

    w1 = w1 & vbCrLf & "aaa" & Chr(9) & "bbb" & Chr(9) & "ccc"

    w1 = w1 & vbCrLf & "aaa" & Chr(9) & "bbb" & Chr(9) & "ccc"

    w1 = Replace(w1, vbCrLf & Chr(9) & Chr(9) & Chr(9) & vbCrLf, vbCrLf, 1, , vbTextCompare)

    w1 = Replace(w1, vbCrLf & Chr(9) & Chr(9) & Chr(9), "", 1, , vbTextCompare)

    w1 = Replace(w1, Chr(9) & Chr(9) & Chr(9) & vbCrLf, "", 1, , vbTextCompare)

    w1 = Replace(w1, Chr(9) & Chr(9) & Chr(9), "", 1, , vbTextCompare)

    Debug.Print w1

End Sub

------解决方案--------------------
Chr(9) 实际上就是制表符 vbTab。假定你的 Demo 是文本文件，如下忽略“空行”：

Dim strLine As String


Open "Demo.txt" For Input As #1

Do Until EOF(1)

    Line Input #1, strLine

    If Trim(Replace(strLine, vbTab, "")) > "" Then

        Debug.Print strLine

    End If

Loop

Close #1