Verifier si une ligne existe ou non

Signaler
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
9
Date d'inscription
mercredi 13 novembre 2002
Statut
Membre
Dernière intervention
25 février 2003
-
Voilà, je voudrais savoir comment ouvrir un fichier texte, et le lire ligne par ligne, et enregistrer TOUT le texte dans un textbox jusqu'à ce que le texte soit fini, et qu'il y ait que du vide après.
(Comme d'habitude, je demande un bout de code à placer directement, pas un truc du style tu fais ceci, puis cela, tu définis la valeur etc...
Plutôt:
Open truc For Input As #1
etc)
:-p
:big) (deux smileys qui se lèchent le *** lol)

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin)

2 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Salut "Vbsupernul"........

Je te trouve bien exigeant.
Ci-dessous, lecture et mise en values d'un fichier.

Set Fso = CreateObject("Scripting.FileSystemObject")
Set MonFic = Fso.OpenTextFile("E:\JMO\TNG-finsession.txt", 1)
Contenu = MonFic.ReadAll
MsgBox "Le fichier fichier.txt contient :"&vbCrLf&" "&vbCrLf&" " & Contenu

Si ça peut t'orienter......
A +. jean-marc
0
Messages postés
9
Date d'inscription
mercredi 13 novembre 2002
Statut
Membre
Dernière intervention
25 février 2003

je pense que ce bout de code va t'aider !

fictrait$ = ton fichier avec chemin en entier
numfictraitt% = FreeFile
Open fictrait$ For Input As #numfictraitt%

Do While Not EOF(numfictraitt%)
Line Input #numfictraitt%, ligne$
If textbox.text= "" Then
textbox.text= ligne$
Else
textbox.text = textbox.text & vbCrLf & ligne$
End If
numlgn% = numlgn% + 1
loop
Close numfictraitt%

Par contre pour ce qui est que du vide aprés je ne vois pas !

Stephanie
0