Lecture fichier texte

Question

Bonjour,

Je ne suis pas experte en VB et j'ai un fichier texte (deux données par ligne séparées par une tabulation) dont je vous recupérer les données sous VB pour les traiter ensuite.

De quelle manière dois-je m'y prendre ? J'ai essayé avec l'instruction input mais j'ai une erreur de lecture et je n'arrive pas à passer outre. Si quelqu'un avait un exemple de code, ce serait super.

Merci beaucoup.

crenaud76 · Answer

Dim L as String, i as long,Datas() as String
i = freefile
Open "Monfichier.txt" for input as #i
While not eof(i)
Line Input #i,L
datas = split(L,vbTab)
Msgbox Datas(0)
Msgbox Datas(1)
Wend
Close #i

Christophe R.

HFanny · Answer

Bonjour,

voilà comment lire un fichier et récupérer chaque ligne dans un tableau :

Dim tableau() As String
Dim numFichier As Integer
numFichier = FreeFile

'ouverture du fichier
i = 0
Open "D:\User\Tout\petitTexte.txt" For Input As #numFichier
Do While Not EOF(numFichier)
ReDim Preserve tableau(i)
'on met chaque ligne du fichier dans une ligne du tableau
Input #1, tableau(i)
i = i + 1
Loop
Close #numFichier

'on parcourt le tableau pour récupérer les données
For cpt = 0 To UBound(tableau)
MsgBox tableau(cpt)
Next cpt


Fanny

Lecture fichier texte

2 réponses

Discussions similaires