TextBox

Question

Voilà, c'est un truc tout con, mais je voudrais savoir comment effacer la PREMIERE ligne d'un Textbox (multilignes...)
C'est tout.

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

cs_DARKSIDIOUS · Answer

Ca faisait longtemps VBsupernul ;-)
Est-ce que tu connaîs la longueur de la ligne a effacer ?
Si non, ca risque d'être assez compliqué.

DARK SIDIOUS

Vbsupernul · Answer

Oui, la ligne, ç'est un retour à la ligne, rien de +...

J'ai ça parceque j'ai une boucle
Open lechemin For Input As #1
    Do Until (EOF(1))
      Line Input #1, Texte
      Texte1 = Texte1 & vbCrLf & Texte
      Loop
  Close #1
Et donc il faudrait faire en sorte que la 1ère ligne de Texte1 ne soit pas un retour chariot...
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

cs_DARKSIDIOUS · Answer

Ah ok, c'est vrai que mon truc rajouttait un ligne vide au début, en fait c'est tout simple : ca vient de la boucle qui est mal faîte : Au lieu de faire cà : 

Open lechemin For Input As #1
Do Until (EOF(1))
Line Input #1, Texte
Texte1 = Texte1 & vbCrLf & Texte
Loop
Close #1

Fait plutôt ca :

Open lechemin For Input As #1
Do 
Line Input #1, Texte
Texte1 = Texte1 & vbCrLf & Texte
Loop While(EOF(1))
Close #1

Excuse moi pour cette erreur de ma part.

DARK SIDIOUS

Vbsupernul · Answer

Dsl DARKSIDIOUS, mais là, 1 ça lit que la premère ligne
2 ça met touijours un retour chariot au début...
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

cs_rene38 · Answer

Essaie ça :

Open lechemin For Input As #1
Line Input #1, Texte ' lire la 1ère ligne
Texte1.Text = Texte
Do While Not EOF(1)
    Line Input #1, Texte
    Texte1.Text = Texte1.Text & vbCrLf & Texte
Loop 
Close 1

Vbsupernul · Answer

Merci, merci bokou, maintenat ça marche
merci rene38
vraiment

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

TextBox

6 réponses

Discussions similaires