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 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 22 juil. 2005 à 16:28
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 22 juil. 2005 à 16:28
6 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
21 juil. 2005 à 15:53
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
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
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
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
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
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
21 juil. 2005 à 16:01
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
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
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
21 juil. 2005 à 16:05
Bien vue pour la syntaxe globale , mais même avec le LOOP en +
j'ai toujours l'erreur !!
j'ai toujours l'erreur !!
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
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 ?
Mais j'ai toujours l'erreur .
j'ouvre mon source VB avec le bloc note .
cela a t'il une influance ?
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
22 juil. 2005 à 16:28
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
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