Проблема извлечения текста из текстового файла идеально в 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

Input предназначен для файла с разделителями-запятыми, попробуйте использовать Line Input следующим образом:

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