Lecture de fichier
djihell
Messages postés
3
Date d'inscription
jeudi 19 janvier 2006
Statut
Membre
Dernière intervention
23 novembre 2007
-
23 nov. 2007 à 13:22
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 24 nov. 2007 à 10:34
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 24 nov. 2007 à 10:34
2 réponses
GEDDi
Messages postés
206
Date d'inscription
lundi 22 novembre 1999
Statut
Membre
Dernière intervention
3 juillet 2008
23 nov. 2007 à 14:19
23 nov. 2007 à 14:19
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
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
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
24 nov. 2007 à 10:34
24 nov. 2007 à 10:34
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
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
