Lecture dans un .txt

vbmo Messages postés 16 Date d'inscription lundi 7 avril 2003 Statut Membre Dernière intervention 9 juin 2004 - 22 sept. 2003 à 23:23
vbmo Messages postés 16 Date d'inscription lundi 7 avril 2003 Statut Membre Dernière intervention 9 juin 2004 - 23 sept. 2003 à 09:54
Comment lire un .txt caractere par caractere.
C'est pour recuperer la frequence des lettres dans le fichier.
Merci.

2 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
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...

By Renfield

[mailto:thomas_reynald@msn.com mailto:thomas_reynald@msn.com]

Aucune touche n'a été blessée lors de la saisie de ce texte.......... ;)
0
vbmo Messages postés 16 Date d'inscription lundi 7 avril 2003 Statut Membre Dernière intervention 9 juin 2004
23 sept. 2003 à 09:54
Merci :big)
0
Rejoignez-nous