判断带有符号的“空行”

[toyer1]

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

[toyer1]

引用 3 楼 of123 的回复:

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

为什么要用到“Trim”?

[of123]

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

[of123]

是为了能正确处理有空格的情况。

[koing12383]

你是数组，要分解的吧， 用split(a,chr(9))