VB中读取TXT文件时怎么判别空行？

来源：百度知道 编辑：UC知道 时间：2024/07/07 23:38:37
VB中读取TXT文件时怎么判别空行？如果要读取TXT文件存在空行，读取的时候想跳过空行接着读取下面的数据，改怎么办？
二楼的程序运行的时候第一行提示编译错误：缺少语句结束。烦请指教！小弟谢过

整体思路如下：
lineinput 读出到字符然后判断是否为空。
可以用Len(*)=0判断，也可以用Trim(*)=""判断，或者Len(Trim(*))=0也可。
参考代码如下：
Public Function RedTextFile(Filename As String) As String
Dim FileID As Long
Dim InputStr As String
Dim LineStr As String
DIM I AS LONG

On Error Resume Next

InputStr = "": LineStr = ""
FileID = FreeFile()
Open Filename For Input As #FileID
Do While Not EOF(FileID) ' 循环至文件尾。
I=I+1
LineStr = ""
Line Input #FileID, LineStr
IF LEN(TRIM$(LINESTR))=0 THEN
DEBUG.PRINT I & "是空行"
END IF
'InputStr = InputStr & LineStr
Loop
Close #FileID
RedTextFile = IIf(Err.Number = 0, InputStr, "")
Err.Clear
End Function