lecture d'un fichier texte

Question

Je veux lire un fichier ligne par ligne et j'ai un problème car vb coupe les chaines de caractères quand il y a une virgule à l'intérieur de la chaine...
Comment faire pour sauvegarder les chaines complètes avec les virgules...

voici mon code :

'Ouverture du fichier
  
  strLocFileData = "C:\Mes Documents\Travail en cours\Annuaire_Web\Annuaire_vb\data.txt"
  
  Open strLocFileData For Input As intNumFileData
  
  'Lecture du fichier ligne par ligne
  'Enregistrement dans un tableau de var srtLigne()
  
  While Not EOF(intNumFileData)
    intNumLigne = intNumLigne + 1
    intN = intN + 1
    
    ReDim Preserve strTab(intN)
    ReDim Preserve strLigne(intNumLigne)
    Input #intNumFileData, strLigne(intNumLigne)
    
    strTab(intN) = strLigne(intNumLigne)
    
    If strLigne(intNumLigne) <> "" Then
     
      
      strChar = Right(strLigne(intNumLigne), 1)
      iChar = Asc(strChar)
      
      If iChar = 44 Then
    
        intNumL = intNumLigne
        intNumL = intNumL + 1
        ReDim Preserve strLigne(intNumL)
        Input #intNumFileData, strLigne(intNumL)
      
        intN = intN - 1
        strTab(intN) = strTab(intN) & Chr(44) & vbKeySpace & strLigne(intNumL)
      End If
    End If

cs_KifKif · Answer

KIfKif

UnExPeCtEdSpy · Answer

Bonjour,
Utilise Line Input tel que

 ,.~*`'^~.(^.  :question)  .^),.~^'`*~.

Lecture d'un fichier texte

2 réponses

Discussions similaires