Discussion :

[Toudy]

Salut à tous !

J'aurais besoin d'un petit coup de main pour découper des mots trop longs dans une chaine de caractères... en fait j'ai un textarea, un utilisateur rentre des données puis quand il valide, un résumé de ce qu'il a entré est dispo dans un petit tableau html. Le truc c'est que s'il s'amuse à rentrer un enchainement de caractères sans espaces, au résumé si le mot est plus grand que mon tableau HTML, ça agrandit ce tableau, puis décalle toute mon interface... vous voyez le truc ?

J'ai fais quelques essais avec les expressions régulières mais sans succès... je voudrais simplement remplacer un mot de x caractères présent dans une chaine, par ce même mot coupé avec un retour chariot.

A vot' bon coeur msieur dame

[franculo_caoulene]

Salut,

Tu peux faire une recherche sur les fonction len et mid de vbscript.

[Toudy]

Merci, mais mon problème concerne des mots contenus dans une chaine de caractère, et non directement le mot tout seul...

[damn]

voila ce que je ferais
en gros tu récupères ta chaine
2 tu testes si il y a des espaces
si non
tu coupes ta chaine par la gauche de 5 caractères par exemple
tu récupères le reste
et tu reconstruit ta chaine en intégrant un saut de ligne <br>
si oui
ba rien

Code :

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

1
2
3
4
5
6
7
8
9
var = "abcdefghij"
if instr (var, " ") = 0 then
longueur_ch = len(var)
debut_ch = left(var, 5)
fin_ch = right(var, longueur_ch - 5)
response.write(debut_ch&"<br>"&fin_ch)
else 
response.write(var)
end if

[Toudy]

Oui, mais je ne peux encore pas gérer le cas d'une chaine de caractère à plusieurs mots (long ou pas)....
Enfin bref j'ai finalement trouvé une solution avec les expressions régulières merci !

[Mad666]

Tu peux la donner cette solution peut-être.

[Toudy]

Oups oui désolé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function couperMot(chaine, i)
 
Dim regExp 
 
Set regExp = New RegExp
 
regExp.IgnoreCase = false
 
regExp.Global = true
 
regExp.Pattern = "([\séèàùç:\!^'_()\[\]a-zA-Z0-9.-]{"&i&"})"
 
verifCarNum = regExp.replace(chaine,""&left("$1",i)&"-<br>"&right("$1",0)&"")
 
couperMot = verifCarNum
 
end Function

Donc voilà, la fonction découpe la chaine en scannant les mots trop longs (i caractères), qui sont découpé au i'ème caractères avec un saut de ligne.