Problème de chaînes !!!

Bonjour !

Voila mon souci : sur un formulaire j'ai 'Texte14' rempli avec une référence :
ex.:'Poste de travail'. A l'aide d'un code, il faut que je supprime les mots de moins de 5 lettres (reste 'Poste travail'). Ensuite, je dois remplacer les espaces par des +. ('Poste+travail').

Comment puis-je faire, SVP ???

Merci d'avance !

Eric

C une autre possibilité, à partir de VB6 seulement, car je n'ai point cette function Split dans VB5, malheureusement...

 tryborg

Salut !

Merci à vous pour les codes, les deux fonctionnent et vont me servir, car selon les chaînes, on n'arrive pas toujours au même résultat, en appliquant l'une ou l'autre méthode.

Vraiment un grand merci !!!!!


Eric

Tu n'obtiend pas la meme chose parceque tryborg ne detecte que les mots de 2 lettres et crenaud76 detecte les mots jusqu'a 9 lettres...

Tu es dans l'erreur, le code de Triborg ne prend que les mots SUPERIEURS à 2 lettres mais le résultat est parfait. Pour le code de Crenaud76, essaye-le d'abord et tu verra qu'il fonctionne très bien.

Eric

Desole Crenaud76, je ne connaissait pas la fonction lenb, que j'ai confondu avec len, je n'ai pas trouve de doc a ce sujet.

pour ce qui est de tryborg, je confirme qu'il ne detecte que les mots de 2 lettres, c'est a dire qu'il te laisse les mots d'une lettre en plus de ceux superieurs a 2 lettre et apres essai, je constate que si 2 mots de 2 lettres se suivent, il laisse le deuxieme

mettons que tu tappe (c'est juste un exemple)

vue de la fenetre a la jetee fin

Crenaud76 donne :
+fenetre+jetee+
Ok si  les + avant et apres ne te genent pas

tryborg donne:
vue+la+fenetre+a+jetee+fin
Garde un 2 lettres et le 1 lettres.

J'ai essaye de refaire le code de Crenaud76 sans le split et plus simple mais je doit avouer que je me suis perdu dans des boucles....

Je ne voulait pas rester sur une critique sans proposer ma solution.

Je n'arrivait pas a enlever les premiers et derniers mots si necessaire, il sufisait de rajouter un espace de chaque cote et enlever les + resultants apres...


Function TraiteChaine(ByVal LaChaine As String) As String
Dim PosEsp As Integer, PosEspSuiv As Integer, chaine As String
  ' on ajoute des espaces pour traiter automatiquement les premier et dernier mots
  chaine = " " & LaChaine & " "
  PosEsp = 1 ' position du premier espace, celui qu'on vient de rajouter
  Do Until PosEsp = 0 ' tant qu'il y a un espace a traiter
    ' pointe sur l'espace suivant si il est a moins de 5 positions
    PosEspSuiv = InStr(Mid$(chaine, PosEsp + 1, 5), " ")
    ' remplace l'espace et le mot eventuel par un +
    chaine = Left$(chaine, PosEsp - 1) & "+" & Mid$(chaine, PosEsp + 1 + PosEspSuiv, Len(chaine))
    ' ne passe a l'espace suivant que si pas trouve de mot a remplacer pour le cas de plusieurs mots de moins de 5 lettres se suivant
    If PosEspSuiv = 0 Then PosEsp = InStr(chaine, " ")
  Loop
  ' si au moins un mot de + de 5 lettres trouve, on retire les "+" du debut et de la fin
  TraiteChaine = IIf(Len(chaine) > 2, Mid$(chaine, 2, Len(chaine) - 2), "")
 
End Function

Je détecte tous les mots, quel que soit leur longueur ! je ne m'arrete pas au mot de 9 lettres c'est mon test '< 10' qui vous fait penser cela ?
Le Lenb() retourne la longueur d'une chaine ... en octet, donc le double d'un Len() ! C'est pourquoi, afin de stopper les mots de mois de cinq lettre je fait un test de Lenb(Mot(i)) par rapport à 10 (=5*2).
Pourquoi utiliser Lenb() plutot que Len() !! Car Lenb() est plus rapide que Len(). En effet, Len() fait appel à Lenb et ensuite, il divise le résultat par deux !! On gagne donc une division par deux (d'accord c'est une opération tres rapide : décalage d'un bit sur la droite) mais c'est toujours ca de gagner ! j'ai l'habitude de l'utiliser quand ca ne complique pas le code.
Pour ce qui est des + en début et en fin (je n'avais pas fait attention car j'ai pondu le code sans le tester ) Il suffit de remplacer la dernière ligne par TRaiteChaine = Mid$(Buffer, 2, Len(Buffer)-2) ! Et la, ce n'est pas un Lenb() !! C'est bien un Len() !!
Pour ce qui est de al version Split() en vB5, il existe plein de version de cette fonction (il y en a sans doute içi meme sur ce site, je n'ai pas regardé mais je doute fort que cette question n'ai jamais trouvé de solution !)Sans doute Idem pourle Join() qui doit aussi te manquer en VB5

Christophe R