Dim tx（）為字符串，tmp為字符串，n為整數
首先，將txt文件中非空行的內容讀入數組tx。
打開“d:\a.txt”作為#1輸入
n = 0
do While Not EOF（1）
線路輸入#1，tmp
如果tmp & lt& gt”“那麽
ReDim保留發送（n）
tx（n）= tmp
n = n + 1
如果…就會結束
環
關閉#1
然後清空txt文件，只寫數組tx的內容。
打開“d:\a.txt”作為#2輸出
Cls
對於i = 0至下界（tx）
打印#2，tx（I）
然後
關閉#2
如果要將過濾後的空行內容讀入文本框，則:
對於i = 0至下界（tx）
文本1。Text = Text1文本&。tx（I）和ampvbCrLf
然後
末端接頭