如何判断CSV文件里有没有数据？迅雷结帖！

Question

Access 2003中，如何判断一个CSV文件（路径已知）中有没有数据？
换句话说如何判断一个CSV文件里，有没有一条或者一条以上的数据？
我结帖很快的，谢谢！

Answer 1

直接用FileLen判断.
文件大小为0是肯定没数据的.

Answer 2

同上,除了这个内置函数肯定不支持UNICODE,算是个问题.

Answer 3

if filelen(filename) = 0 then

Answer 4

如果CSV文件里，随便敲几个空格，这时文件的size就不是0了，但也不能作为有数据来处理。
所以，这样判断太单纯了，如果要判断CSV文件里至少有一行有效数据，该如何判断？
谢谢。

Answer 5

试试
Private Sub Command1_Click()
    Dim strTmp As String
    Open "C:\1.csv" For Input As #1
    While EOF(1) = False
        Line Input #1, strTmp
        If Trim(strTmp) <> "" Then
            MsgBox "有数据"
            Exit Sub
        End If
    Wend
End Sub

Answer 6

Dim s$
Open "x:\temp\Test.csv" For Input As #1
Do While (Not EOF(1))
    Input #1, s
    If (Len(Replace$(Replace$(s, " ", ""), ",", "")) > 0) Then
        MsgBox "文件包含有效数据！", 64, "消息"
        Exit Do
    End If
Loop
Close