Verifier si une ligne existe ou non

Question

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)

cs_JMO · Answer

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

cs_ASteph · Answer

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

Verifier si une ligne existe ou non

2 réponses

Discussions similaires