Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 sept. 2003 à 09:31
Dim FileSlot As Byte
FileSlot = FreeFile
Dim CaractereLu As String * 1
Open "C:\Texte.txt" For Random As FileSlot Len = 1
While Not EOF(FileSlot)
Get #FileSlot, , CaractereLu
Wend
Close FileSlot
Tu peux également charger le contenu entier de ton fichier, et de parcourir ton buffer caractere par caractere...