VB6 Effacer les Lignes vide d'un TextBox MultiligneRésolu

Question

Salut à tous....

J'ai un textbox multiligne avec plein d'information et plusieurs lignes vides. C'est lignes vides sont égal à "".

J'aimerais faire un code afin de supprimer l'ensemble des lignes vides et garder que les lignes conetants du texte.

Exemple....  Résultat du textbox avant le traitement:

données XXXXXXX
Données YYYYYYY

données ZZZZZ

123,77

Résultat après le traitement

données XXXXXXX
Données YYYYYYY
données ZZZZZ
123,77

Comment est-il possible d'y arriver....

cs_Exploreur · Answer

Salut,

Je pense que tu auras besoin d'un autre contrôle TexTbox(caché) en multilines...Tu fais une boule de lecture sur ce que contient ton Textbox de départ, à chaque fois que tu as quelque chose(chaine de carractère) tu l'écris dans l'autre TextBox..Puis tu transfers le nouveau textbox sans les lignes vides dans le premier...Une idée comme une aute...

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Bonjour,

1) Un split sur vbcrlf ===>> obtention d'un tableau
2) on met à vide le contenu de la textbox
3) une boucle commençant à la fin de tableau obtenu et remontant vers le haut
  et :
  chaque fois que la valeur de cet index du tableau n'est pas "" : text1.text = la_valeur non vide trouvée & vbcrlf & text1.text

jmfmarques · Answer

Re...
et (plus astieusement ):
remplacer vbcrlf et cbcrlf par rien tant que instr(text1.text, vbcrlf & vbcrlf) > 0

VB6 Effacer les Lignes vide d'un TextBox Multiligne

3 réponses

Votre réponse

Discussions similaires