Lecture de fichier

Signaler
Messages postés
3
Date d'inscription
jeudi 19 janvier 2006
Statut
Membre
Dernière intervention
23 novembre 2007
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour à tous
Je suis à la recherche d'instruction ou de fonction qui me permettrait de lire caractère par caractère un fichier ouvert avec "Open Filename for Random".
Exemple pour le contenu d'un fichier qui pourait être ceci : "Il était une fois"
je voudrais lire :
I
l

é
t
a
i
t
etc.....
Est-ce quelqu'un aurait une solution sous VB 6.0 ???
Merci d'avance
@+
Dji-Hell

2 réponses

Messages postés
206
Date d'inscription
lundi 22 novembre 1999
Statut
Membre
Dernière intervention
3 juillet 2008

Essayes ceci, mais avec Binary hein pas random sinon ça ne fonctionnera pas!

Dim sChar As String * 1, sLen As Long, x As Long
Open "c:\FBSL.txt" For Binary As #1    sLen LOF(1): x 1
    While sLen
        Get #1, x, sChar: MsgBox sChar
        sLen = sLen - 1
        x = x + 1
    Wend
Close #1

Gérôme GUILLEMIN
Auteur du langage FBSL
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
salut,

for i=1 to len(buffer) <-- tout le fichier, carac par carac
mid$(buffer,i,1) <---- un seul carac positionné. nb : attention au vbcrlf

utilise ton aide VB, le moteur de recherche et codyx.org pour plus d'infos
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp