Verifier si une ligne existe ou non

Vbsupernul Messages postés 287 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 18 janvier 2004 - 15 nov. 2002 à 14:59
cs_ASteph Messages postés 9 Date d'inscription mercredi 13 novembre 2002 Statut Membre Dernière intervention 25 février 2003 - 15 nov. 2002 à 15:24
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

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
15 nov. 2002 à 15:13
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
cs_ASteph Messages postés 9 Date d'inscription mercredi 13 novembre 2002 Statut Membre Dernière intervention 25 février 2003
15 nov. 2002 à 15:24
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
Rejoignez-nous