Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Archambault
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher) '----------------------------------------
Sub LireFichier() Dim Tampon as String * 100 Dim Compteur as Long Dim Fichier as String Dim NoFichier as Integer Dim Tableau() as String
NoFichier = Freefile Fichier = "C:fic.txt" ' Remplace par le chemin complet Open Fichier for Binary access read as #NoFichier Do While Not EFO(#NoFichier) Compteur = Compteur + 1 Redim Preserve Tableau(Compteur) Get #NoFichier, , Tampon Tableau(Compteur) = Tampon Tampon = "" Loop Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" a écrit dans le message de news: %23FVEe2$
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque paquet dans un tableau t$().
Comment faire ?
Merci par avance de votre aide.
AP
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher)
'----------------------------------------
Sub LireFichier()
Dim Tampon as String * 100
Dim Compteur as Long
Dim Fichier as String
Dim NoFichier as Integer
Dim Tableau() as String
NoFichier = Freefile
Fichier = "C:fic.txt" ' Remplace par le chemin complet
Open Fichier for Binary access read as #NoFichier
Do While Not EFO(#NoFichier)
Compteur = Compteur + 1
Redim Preserve Tableau(Compteur)
Get #NoFichier, , Tampon
Tableau(Compteur) = Tampon
Tampon = ""
Loop
Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" <alain-proviste@club-internet.fr> a écrit dans le message
de news: %23FVEe2$EHHA.2112@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque
paquet dans un tableau t$().
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher) '----------------------------------------
Sub LireFichier() Dim Tampon as String * 100 Dim Compteur as Long Dim Fichier as String Dim NoFichier as Integer Dim Tableau() as String
NoFichier = Freefile Fichier = "C:fic.txt" ' Remplace par le chemin complet Open Fichier for Binary access read as #NoFichier Do While Not EFO(#NoFichier) Compteur = Compteur + 1 Redim Preserve Tableau(Compteur) Get #NoFichier, , Tampon Tableau(Compteur) = Tampon Tampon = "" Loop Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" a écrit dans le message de news: %23FVEe2$
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque paquet dans un tableau t$().
Comment faire ?
Merci par avance de votre aide.
AP
Tschuß
EFO ? ......... EOF (End Of File) me semble plus juste
Ton programme implique qu'il y a plusieurs lignes dans le fichier en entrée. Si le fichier texte est juste une succession de caractères sans saut de ligne, ça ne fonctionne pas.
Pierre Archambault wrote:
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher) '----------------------------------------
Sub LireFichier() Dim Tampon as String * 100 Dim Compteur as Long Dim Fichier as String Dim NoFichier as Integer Dim Tableau() as String
NoFichier = Freefile Fichier = "C:fic.txt" ' Remplace par le chemin complet Open Fichier for Binary access read as #NoFichier Do While Not EFO(#NoFichier) Compteur = Compteur + 1 Redim Preserve Tableau(Compteur) Get #NoFichier, , Tampon Tableau(Compteur) = Tampon Tampon = "" Loop Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" a écrit dans le mess age de news: %23FVEe2$
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque paquet dans un tableau t$().
Comment faire ?
Merci par avance de votre aide.
AP
EFO ? ......... EOF (End Of File) me semble plus juste
Ton programme implique qu'il y a plusieurs lignes dans le fichier en
entrée. Si le fichier texte est juste une succession de caractères
sans saut de ligne, ça ne fonctionne pas.
Pierre Archambault wrote:
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher)
'----------------------------------------
Sub LireFichier()
Dim Tampon as String * 100
Dim Compteur as Long
Dim Fichier as String
Dim NoFichier as Integer
Dim Tableau() as String
NoFichier = Freefile
Fichier = "C:fic.txt" ' Remplace par le chemin complet
Open Fichier for Binary access read as #NoFichier
Do While Not EFO(#NoFichier)
Compteur = Compteur + 1
Redim Preserve Tableau(Compteur)
Get #NoFichier, , Tampon
Tableau(Compteur) = Tampon
Tampon = ""
Loop
Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" <alain-proviste@club-internet.fr> a écrit dans le mess age
de news: %23FVEe2$EHHA.2112@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque
paquet dans un tableau t$().
EFO ? ......... EOF (End Of File) me semble plus juste
Ton programme implique qu'il y a plusieurs lignes dans le fichier en entrée. Si le fichier texte est juste une succession de caractères sans saut de ligne, ça ne fonctionne pas.
Pierre Archambault wrote:
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher) '----------------------------------------
Sub LireFichier() Dim Tampon as String * 100 Dim Compteur as Long Dim Fichier as String Dim NoFichier as Integer Dim Tableau() as String
NoFichier = Freefile Fichier = "C:fic.txt" ' Remplace par le chemin complet Open Fichier for Binary access read as #NoFichier Do While Not EFO(#NoFichier) Compteur = Compteur + 1 Redim Preserve Tableau(Compteur) Get #NoFichier, , Tampon Tableau(Compteur) = Tampon Tampon = "" Loop Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" a écrit dans le mess age de news: %23FVEe2$
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque paquet dans un tableau t$().
Comment faire ?
Merci par avance de votre aide.
AP
Alain Proviste
Merci c'est super ! Il y avait effectivement 1saut de lignes après 100 caractères J'ai fait ça et ça marche : ..... Dim Tampon As String * 101 .... lig=0 Open f$ For Binary Access Read As #1 Do While Not EOF(1) lig = lig + 1 Get #1, , Tampon x$(lig) = Left$(Tampon, 100) Tampon = "" Loop Close #1
Merci encore. Alain
"Pierre Archambault" a écrit dans le message de news: _3pbh.898$
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher) '----------------------------------------
Sub LireFichier() Dim Tampon as String * 100 Dim Compteur as Long Dim Fichier as String Dim NoFichier as Integer Dim Tableau() as String
NoFichier = Freefile Fichier = "C:fic.txt" ' Remplace par le chemin complet Open Fichier for Binary access read as #NoFichier Do While Not EFO(#NoFichier) Compteur = Compteur + 1 Redim Preserve Tableau(Compteur) Get #NoFichier, , Tampon Tableau(Compteur) = Tampon Tampon = "" Loop Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" a écrit dans le message de news: %23FVEe2$
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque paquet dans un tableau t$().
Comment faire ?
Merci par avance de votre aide.
AP
Merci c'est super !
Il y avait effectivement 1saut de lignes après 100 caractères
J'ai fait ça et ça marche :
.....
Dim Tampon As String * 101
....
lig=0
Open f$ For Binary Access Read As #1
Do While Not EOF(1)
lig = lig + 1
Get #1, , Tampon
x$(lig) = Left$(Tampon, 100)
Tampon = ""
Loop
Close #1
Merci encore.
Alain
"Pierre Archambault" <pierre.archambault@videotron.ca> a écrit dans le
message de news: _3pbh.898$Si.171653@weber.videotron.net...
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher)
'----------------------------------------
Sub LireFichier()
Dim Tampon as String * 100
Dim Compteur as Long
Dim Fichier as String
Dim NoFichier as Integer
Dim Tableau() as String
NoFichier = Freefile
Fichier = "C:fic.txt" ' Remplace par le chemin complet
Open Fichier for Binary access read as #NoFichier
Do While Not EFO(#NoFichier)
Compteur = Compteur + 1
Redim Preserve Tableau(Compteur)
Get #NoFichier, , Tampon
Tableau(Compteur) = Tampon
Tampon = ""
Loop
Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" <alain-proviste@club-internet.fr> a écrit dans le message
de news: %23FVEe2$EHHA.2112@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque
paquet dans un tableau t$().
Merci c'est super ! Il y avait effectivement 1saut de lignes après 100 caractères J'ai fait ça et ça marche : ..... Dim Tampon As String * 101 .... lig=0 Open f$ For Binary Access Read As #1 Do While Not EOF(1) lig = lig + 1 Get #1, , Tampon x$(lig) = Left$(Tampon, 100) Tampon = "" Loop Close #1
Merci encore. Alain
"Pierre Archambault" a écrit dans le message de news: _3pbh.898$
Salut Alain,
Essaie ce code. (Je n'ai pas testé mais sauf bugs, ça devrait marcher) '----------------------------------------
Sub LireFichier() Dim Tampon as String * 100 Dim Compteur as Long Dim Fichier as String Dim NoFichier as Integer Dim Tableau() as String
NoFichier = Freefile Fichier = "C:fic.txt" ' Remplace par le chemin complet Open Fichier for Binary access read as #NoFichier Do While Not EFO(#NoFichier) Compteur = Compteur + 1 Redim Preserve Tableau(Compteur) Get #NoFichier, , Tampon Tableau(Compteur) = Tampon Tampon = "" Loop Close #NoFichier
End Sub
'----------------------------------------
"Alain Proviste" a écrit dans le message de news: %23FVEe2$
Bonjour,
J'ai un volumineux fichier fic.txt de 40M.
Je veux lire ce fichier par paquet de 100 caracteres et mettre chaque paquet dans un tableau t$().
