problème de ligne dans un textbox

J'aimerais savoir comment faire pour enlever la dernière ligne d'un textbox si celle-ci est vide.. merci (une demarche complete s'il vous plait je suis pourri)

Salut

"une demarche complete" C'est quoi ca?


' Nom du fichier a traiter
File = "essai.txt"

' Ouvre le fichier en lecture
Open File For Input As #1
' Crée un fichier temp
Open File + ".tmp" For Output As #2

' Faire tant que eof(1) est a False
Do Until EOF(1)
' Lire une ligne dans le fichier texte
Line Input #1, a$
' est ce qu'on est a la fin du fichier?
If Not (EOF(1)) Then
' Non, on ecrit
Print #2, a$
' Si oui
Else
' On regard si la ligne est vide. Si elle ne l'est pas
' on ecrit la ligne, si non on fait rien
If a$ <> "" Then Print #2, a$
End If
' Boucle pour lire la ligne suivante
Loop

' Ferme tout les fichiers ouvert
Close

' efface le fichier originale
Kill File
' Copy le fichier temp avec le nom du fichier originale
FileCopy File + ".tmp", File
' Efface le fichier tempo
Kill File + ".tmp"


Si le code n'est pas bon ou qu'il ne te convient pas, mail moi en direct.

a+

Int19h

En fait c assez simple:

Dim tableau variant

'créer un tableau à partir d'une chaine à l'aide des retours à la ligne

tableau = split(textbox1.text,vbcrlf) 'ou vbcr, ou vblf à vérifier

'seule la dernière ligne nous intéresse
if len(tableau(ubound(tableau))=0 then

'première façon
textbox1.text=textbox1.text & vbbackspace 'à vérifier aussi car je n'ai pas de vb ici, ou peut être vbbkspace ou alors chr(8)

'deuxième méthode, à choisir
redim preserve tableau(ubound(tableau)-1)
textbox1.text=join(tableau) 'revérifie aussi la syntaxe de join, je sais que ça existe, mais g jamais utiliser

end if


j'espère que ça t'aidera.

A+



-------------------------------
Réponse au message :
-------------------------------

J'aimerais savoir comment faire pour enlever la dernière ligne d'un textbox si celle-ci est vide.. merci (une demarche complete s'il vous plait je suis pourri)

bonjour

je un petit probleme concernant la supprission de lignes dans un textbox

je veux supprimer la ligne 1 ,ligne2 et la dernière ligne d'un textbox.

merci d'avance..........