如何读取空文本文件

问题描述

我有这样的代码可以从文本文件读取，但是如果我的文本文件没有文本，那么我的代码将无法工作并显示错误

我的代码:

I have a code like this to read from text file, but if my text file has no text then my code does not work and shows an error

MY CODE:

Dim sSourceFile, sLine As String
        Dim a As String
        sSourceFile = "E:\hash\WindowsApplication1\WindowsApplication1\bin\a.txt"
        FileOpen(100, sSourceFile, OpenMode.Input, OpenAccess.Read)

        sLine = LineInput(100)
        a = Mid(sLine, 1)
        ListBox1.Items.Add(a)
        While Not EOF(100)
            sLine = LineInput(100)
            a = Mid(sLine, 1)
            ListBox1.Items.Add(a)
        End While
        FileClose(100)
        IP_Server = ListBox1.Items(0)
        server = ListBox1.Items(1)
        DB = ListBox1.Items(2)
        User_Server = ListBox1.Items(3)
        Pass = ListBox1.Items(4)

如果文本文件为空，则会出现我的错误:

输入文件末尾.
对于行"sLine = LineInput(100)"显示此错误


tnx为您提供帮助

my error if text file is empty:

Input past end of file.
this error show for line " sLine = LineInput(100)"


tnx for yr help

推荐答案

这篇关于如何读取空文本文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！