Parcourir une chaine de caractère

Bonjour,

Je cherche quelques objects de manipulation de chaine en vbs

Exemple

Code:

---

machaine = "analyse d'une chaine de caractere"

---

une fonction qui permettrai de remplacer tous les espaces par un _

Code:

---

machaine = "analyse_d'une_chaine_de_caractère"

---

La fonction instr permet uniquement de trouver une seule occurence malheureusement et ne permet pas le replace directement.

Je cherche également une fonction qui permet de mettre en majuscule la premiere lettre d'un mot. Car Ucase met tous les caractères en majuscules.

Code:

---

machaine = "Analyse D'une Chaine De Caractère"

---

Si rien de tout cela ne vous parait possible, je cherche tout simplement à parcourir une chaine caractère par caractère.

Merci par avance.
Julien

Bonjour,

La fonction Replace n'existe pas en VbScript ?

bonjour,

je pense que tu peux t'orienté vers les regex
en effet les expression reguliere permet de faire plien de truc ... comme remplacer des caractere par d'autre

exemple :

Code:

---

1 2 3 4 5 6

text1"<ton caractere recherché>" Set re = New RegExp re.Pattern = re.Global = True text2 = re.Replace(<ta chaine de caractere>, <caractere de remplacement>) msgbox text1 &"=>"& text2

---

voila le tour est joué :D

- xanatox -

Bonjour,

la fonction Replace existe en vbscript.

Sinon, pour mettre la premiere lettre de chaque mot en majuscule et les autres en minuscules, je fais comme ca:

Code:

---

1 2 3 4 5 6

arrTemp = split(machaine, " ") machaine = "" For j = Lbound(arrTemp) To Ubound(arrTemp) machaine = machaine + UCase(Left(arrTemp(j), 1)) + LCase(Right(arrTemp(j), Len(arrTemp(j))-1)) + " " Next machaine = RTrim(machaine)

---

voilà

C'est tres joli ta facon de faire et je suis un peu dégouté de ne pas etre venu plus tot car je m'en suis également sorti pour passer en majuscule mais c'est bien plus complexe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

While Out <> 1 'temp qu'on a pas mis toutes les majuscules Espace = InStr (Espace,monfichiertemp, " ") 'recherche du premier espace   If Espace = 0 Then 'si pas d'espace c'est qu'on est sur le premier caractere CarMin = Mid (monfichiertemp, 1, 1) 'on recupere le premier caractere Out = 1 ' si pas d'espace on demande au programme de sortir Else CarMin = Mid (monfichiertemp, Espace, 2) 'sinon on recupere l'espace plus le caractere suivant End If   CarMaj = UCase (CarMin) 'on passe en majuscule le caractere   If CarMaj <> CarMin Then monfichiertemp = Replace(monfichiertemp, CarMin, CarMaj, 1, 1, 1) 'si le caractère est passé en majuscule alors on le remplace la chaine End If   If Espace <> 0 Then Espace = Espace +1 'on incrémente espace pour que dans la boucle il aille chercher l'espace suivant End If Wend

---