Lire un fichier texte

Bonjour, voici, si je me souviens bien, le ";" supprime les ascii 13+10,
donc la variable devrait ramener tout le fichier, un seul passage devrait
suffire, il il serait alors possible d'enlever le Do W...



Dim pf As Integer

Dim variable_texte As String

'

ChDrive App.Path

ChDir App.Path

pf = FreeFile

Open "nom_fichier.txt" For Input As pf

Do While EOF(pf) <> True

Line Input #pf, variable_texte

' ici -> traitement de la variable...

Loop

Close pf


--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------


"Supermina" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 2f72301c46d78$ac6d8be0$a401280a@phx.gbl...
Bonjour,
je voudrais savoir comment faire pour lire un fichier
texte dans VB? Mon fichier étant composé de 4 champs
séparés par une virgule.
Merci d'avance

Supermina

Salut,

Essaye qqch comme ca :

Private Sub Form_Load()
Dim k As Integer, strBuffer As String, tblLignes() As String
Dim tblEntrees() As String
k = FreeFile
Open "c:mon fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k
tblLignes = Split(strBuffer, vbCrLf)
For k = 0 To UBound(tblLignes)
If tblLignes(i) Like "*,*,*,*" Then
tblEntrees = Split(tblLignes(i), ",")
Call MsgBox("Entrée " & i & ", champs1=" & tblEntrees(0))
Call MsgBox("Entrée " & i & ", champs2=" & tblEntrees(1))
Call MsgBox("Entrée " & i & ", champs3=" & tblEntrees(2))
Call MsgBox("Entrée " & i & ", champs4=" & tblEntrees(3))
End If
Next
Erase tblLignes
Erase tblEntrees
strBuffer = ""
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Supermina <anonymous@discussions.microsoft.com> a écrit :

Bonjour,
je voudrais savoir comment faire pour lire un fichier
texte dans VB? Mon fichier étant composé de 4 champs
séparés par une virgule.
Merci d'avance

Supermina