Lecteur en Buffer d'un fichier Texte de 70 Mo
SebOfBorg
Messages postés
94
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
26 août 2009
-
18 janv. 2005 à 10:49
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 18 janv. 2005 à 11:25
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 18 janv. 2005 à 11:25
A voir également:
- Transformer un fichier texte en liste python
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Transformer un fichier texte en dictionnaire ✓ - Forum Python
- Crypter un fichier texte ✓ - Forum Visual Basic
- Sous chaine en python - Forum Python
- Fichier json - Conseils pratiques -Javascript
1 réponse
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
18 janv. 2005 à 11:25
18 janv. 2005 à 11:25
en ouvrant ton fichier en binaire tu peux lire le nombre d'octets que tu veux.
Dim Lg As Long
Dim Reste As Long
Dim Buffer As String
Lg = 1024 'Longueur à lire
Buffer = Space$(Lg)
Open "c:\toto.txt" For Binary As #1
Reste = LOF(1)
While Reste > 0 If Reste < Lg Then Lg Reste: Buffer Space$(Lg)
Get #1, , Buffer
Reste = Reste - Lg
'traitement
Wend
Close #1
Daniel
Dim Lg As Long
Dim Reste As Long
Dim Buffer As String
Lg = 1024 'Longueur à lire
Buffer = Space$(Lg)
Open "c:\toto.txt" For Binary As #1
Reste = LOF(1)
While Reste > 0 If Reste < Lg Then Lg Reste: Buffer Space$(Lg)
Get #1, , Buffer
Reste = Reste - Lg
'traitement
Wend
Close #1
Daniel