problème de ligne dans un textbox

Question

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)

int19h · Answer

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

jos · Answer

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+

hahakh · Answer

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..........

Problème de ligne dans un textbox

3 réponses

Discussions similaires