在VB6中完美地从文本文件中提取文本问题

Question

我正在研究VB6项目，我需要从文本文件中提取纯文本。下面是我用来做该功能的代码：

Private Function FileGetText(TextFile As String) As String 
Dim FileContent As String 
Dim TextLine As String 
Dim n As Integer 
n = FreeFile 
Open TextFile For Input As #n 'Open given Text File 
Do Until EOF(n) 
    Input #n, TextLine 
    FileContent = FileContent & TextLine & vbCrLf 'Initialize text file contents line-by-line to FileContent variable 
Loop 
Close #n 
FileGetText = FileContent 
End Function 

使用此功能的问题是，虽然它由线读取文件中的行文本，但是当遇到（，）在字符串中昏迷，需要后缀字符串在另一行，我怎么能阻止它这样做，并采取（，）从字面上??

在此先感谢..... :-)

Answer 1

输入设计为一个逗号分隔的文件，请尝试使用线路输入如下：

Private Function FileGetText(TextFile As String) As String 
Dim FileContent As String 
Dim TextLine As String 
Dim n As Integer 
n = FreeFile 
Open TextFile For Input As #n 'Open given Text File 
Do Until EOF(n) 
    Line Input #n, TextLine 
    FileContent = FileContent & TextLine & vbCrLf 'Initialize text file contents line-by-line to FileContent variable 
Loop 
Close #n 
FileGetText = FileContent 
End Function