Do While Not EOF(1)
a = Input(50, 1) '***
'...........Je lis les caractères du fichier 50 par 50, on est d'accord ?
DoEvents
Loop
Close #1
*** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je n'ai
même pas parcouru 200 caractères.
C'est incompréhensible (en tout cas pour moi).
Merci de votre aide.
"Sébastien" a écrit dans le message de news:3f8196a1$0$13270$
Bonjour/soir,
Dim a As String
Open "Mon_Fichier.jpg" For Input As #1
Do While Not EOF(1) a = Input(50, 1) '*** '...........Je lis les caractères du fichier 50 par 50, on est d'accord ? DoEvents Loop
Close #1
*** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je n'ai même pas parcouru 200 caractères. C'est incompréhensible (en tout cas pour moi). Merci de votre aide.
Sébastien
Bonjour/soir,
En mode d'accès Input, VB s'arrête au premier EOF (ASCII 26) trouvé.
Pour lire le fichier, je te conseille de l'ouvrir en mode binaire.
"Sébastien" <sebastien.jarod@free.fr> a écrit dans le message de
news:3f8196a1$0$13270$626a54ce@news.free.fr
Bonjour/soir,
Dim a As String
Open "Mon_Fichier.jpg" For Input As #1
Do While Not EOF(1)
a = Input(50, 1) '***
'...........Je lis les caractères du fichier 50 par 50, on est
d'accord ? DoEvents
Loop
Close #1
*** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je
n'ai même pas parcouru 200 caractères.
C'est incompréhensible (en tout cas pour moi).
Merci de votre aide.
"Sébastien" a écrit dans le message de news:3f8196a1$0$13270$
Bonjour/soir,
Dim a As String
Open "Mon_Fichier.jpg" For Input As #1
Do While Not EOF(1) a = Input(50, 1) '*** '...........Je lis les caractères du fichier 50 par 50, on est d'accord ? DoEvents Loop
Close #1
*** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je n'ai même pas parcouru 200 caractères. C'est incompréhensible (en tout cas pour moi). Merci de votre aide.
Sébastien
Sébastien
Merci beaucoup, ça marche très bien.
"François Picalausa" a écrit dans le message de news:
Bonjour/soir,
En mode d'accès Input, VB s'arrête au premier EOF (ASCII 26) trouvé. Pour lire le fichier, je te conseille de l'ouvrir en mode binaire.
"Sébastien" a écrit dans le message de news:3f8196a1$0$13270$ > Bonjour/soir, > > Dim a As String > > Open "Mon_Fichier.jpg" For Input As #1 > > Do While Not EOF(1) > a = Input(50, 1) '*** > '...........Je lis les caractères du fichier 50 par 50, on est > d'accord ? DoEvents > Loop > > Close #1 > > *** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je > n'ai même pas parcouru 200 caractères. > C'est incompréhensible (en tout cas pour moi). > Merci de votre aide. > > Sébastien
Merci beaucoup, ça marche très bien.
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:O3h9HbCjDHA.724@tk2msftngp13.phx.gbl...
Bonjour/soir,
En mode d'accès Input, VB s'arrête au premier EOF (ASCII 26) trouvé.
Pour lire le fichier, je te conseille de l'ouvrir en mode binaire.
"Sébastien" <sebastien.jarod@free.fr> a écrit dans le message de
news:3f8196a1$0$13270$626a54ce@news.free.fr
> Bonjour/soir,
>
> Dim a As String
>
> Open "Mon_Fichier.jpg" For Input As #1
>
> Do While Not EOF(1)
> a = Input(50, 1) '***
> '...........Je lis les caractères du fichier 50 par 50, on est
> d'accord ? DoEvents
> Loop
>
> Close #1
>
> *** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je
> n'ai même pas parcouru 200 caractères.
> C'est incompréhensible (en tout cas pour moi).
> Merci de votre aide.
>
> Sébastien
"Sébastien" a écrit dans le message de news:3f8196a1$0$13270$ > Bonjour/soir, > > Dim a As String > > Open "Mon_Fichier.jpg" For Input As #1 > > Do While Not EOF(1) > a = Input(50, 1) '*** > '...........Je lis les caractères du fichier 50 par 50, on est > d'accord ? DoEvents > Loop > > Close #1 > > *** Suivant le fichier que je choisis, j'ai une erreur 62 lorsque je > n'ai même pas parcouru 200 caractères. > C'est incompréhensible (en tout cas pour moi). > Merci de votre aide. > > Sébastien
