Problème d'extraction de texte à partir de fichier texte parfaitement dans VB6

Question

Je travaille sur un projet VB6 et j'ai besoin d'extraire du texte brut à partir d'un fichier texte. Voici le code de la fonction que je l'habitude de le faire:

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 

Le problème avec cette fonction est que, si elle lit le texte de la ligne de fichiers en ligne, mais quand des rencontres (,) le coma dans la chaîne, il faut la chaîne suffixée comme dans une autre ligne, comment puis-je l'empêcher de le faire et prendre (,) littéralement?

Merci à l'avance ..... :-)

Answer 1

d'entrée est conçu pour un fichier délimité par des virgules, essayez d'utiliser l'entrée de ligne comme suit:

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