Lecture fichier

cs_edy75 Messages postés 4 Date d'inscription mercredi 20 juillet 2005 Statut Membre Dernière intervention 21 juillet 2005 - 21 juil. 2005 à 15:36
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 22 juil. 2005 à 16:28
Bonjour à tous .

Voici un extrait de mon source :

Din strline


Open "C:\LOGFILE.txt" For Input As #1
do While not EOF(1)
Line Input #1, strLine
Close #1

à l'exécution , il y a une erreur en ligne 2 position 23 (sur le F de For).
le texte de l'erreur est : fin d'instruction attendue

la syntaxe de la ligne Open est 'elle correcte ?
y a t'il une autre raison ?

Merci d'avance

6 réponses

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
21 juil. 2005 à 15:53
Salut
Le Open est correct.
A mon avis, c'est le Loop qu'il manque :
Do While Not EOF(1)
Line Input #1, strLine
Loop
Close #1
Ceci lira toutes les lignes de ton fichier.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
0
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
21 juil. 2005 à 16:01
Bonjour,

Voilà le code pour lire un fchier.txt dans un TextBox (Propriété Multiligne à True)



Private Sub Command1_Click()

Dim texte, tout, crlf

On Error Resume Next

crlf = Chr$(13) + Chr$(10)

Open "C:\LOGFILE.txt" For Input as #1

Line Input #1, texte

tout = texte

If Len(tout) <> 0 Then

While Not EOF(1)

Line Input #1, texte

tout = tout + crlf + texte

Wend

End If

Text1 = tout

Close #1

End Sub



jpleroisse



Si la réponse te conviens clique réponse acceptée
0
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
21 juil. 2005 à 16:01
Re
Lol, j'avais pas vu : Tu as écris
Din strline
--> Dim strline

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
0
cs_edy75 Messages postés 4 Date d'inscription mercredi 20 juillet 2005 Statut Membre Dernière intervention 21 juillet 2005
21 juil. 2005 à 16:05
Bien vue pour la syntaxe globale , mais même avec le LOOP en +
j'ai toujours l'erreur !!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_edy75 Messages postés 4 Date d'inscription mercredi 20 juillet 2005 Statut Membre Dernière intervention 21 juillet 2005
21 juil. 2005 à 16:17
Bien vu pour le "DIN" (quand on est trop dans le sujet on ne voit plus les erreurs simples ).

Mais j'ai toujours l'erreur .

j'ouvre mon source VB avec le bloc note .

cela a t'il une influance ?
0
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
22 juil. 2005 à 16:28
re
Avec le BlocNote ... et tu exécutes ton code avec quoi ? Mitraillette.Exe ?
Pourquoi n'utilises-tu pas l'éditeur fourni ? Soit VB6, soit VBA de ton Excel, Word ou Access

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
0