Discussion :

[crischprolch]

bonjour,
je débute en vb6 et je me demandais comment on pouvait découper un texte contenu dans un controle(je ne sais pas lequel). Je m'explique : je voudrais que l'utilisateur copie un texte (formé de x lignes avec des retours chariots) et moi je dois récupérer chaque ligne et enlevant un ou deux caractères qui sont un chiffre et un tiret si necessaire.

merci par avance

[SfJ5Rpw8]

manque un peu de détail .. mais regarde les foncitons de chaines en autre :

- Left
-Right
-InStr
-Replace
- Mid
- Trim
- Split

...

[batou22003]

Oui renseigne toi bien sur la fonction split.
Elle te permet de récupérer un chaine ou chaque valeur est séparée par un délimiteur dans un tableau.
split(chaine,delimiteur)

le delimiteur peut etre un retour chariot soit les caractères Chr(10) ou Chr(13) ou
alors un tiret.

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim ligne 
tabLigne = split(machaine,Chr(13) ) 
 
For each ligne in tabLigne 
'suprimer les deux dernier caractères de la ligne par ex.
'ici je renvoie à partir de la gauche la chaine de départ moins 2 caractères 
ligne = Left (Cstr(ligne),Len(ligne)-2)
MsgBox Cstr(ligne)
Next

Voila.

Right c'est pour renvoyer n caractères en partant de la droite.
Mid c'est pour extraire une sous chaine dans une chaine.
Instr c'est pour chercher une sous chaine ou caractère dans une chaine,c'est sensible à la caste (minus/maj.
Tu peux utiliser l'opérateur "like" aussi. if chaine like "*MOTIF*" alors MsgBox "la chaine Motif est dans la chaine".

Cstr: te permet de convertir une expression en une chaine de caractères.
Len : te permet de renvoyer la longeur deta chaine.

Et voila pour le principal.
Bonne chance.

[méphistopheles]

il est préférable d'utiliser vbcrlf plutot que chr(13) ou chr(10) uniquement.
ton code donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
dim montext as string.
dim meslignes() as string
dim i as integer
dim textfinal as string
meslignes=split(montext,vbcrlf)
for i= 0 to Ubound(meslignes,1)
   if left(meslignes(i),1)= "-" then meslignes(i)=replace(meslignes(i),"-","",,1)
   if isnuméric(left(meslignes(i),1)) then melignes(i)=replace(meslignes(i),left(meslignes(i),1),"",,1)
   textfinal= textfinal & vbcrlf & meslignes(i)
next i
msgbox replace(textfinal,vbcrlf,"",,1)

salut

[crischprolch]

merci beaucoup ..

[ouskel'n'or]

Hello le Physton,

il est préférable d'utiliser vbcrlf plutot que chr(13) ou chr(10) uniquement.

Oui, peut-être... sauf que si tu cherches le caractère vbcrlf dans un mot, VB(A) ne le trouve pas alors qu'il trouve chr(13)

J'aime bien mettre mon grain de sel

A+