Discussion :

[jnauche]

Bonjour,

Je cherche quelques objects de manipulation de chaine en vbs

Exemple

Code :

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

machaine = "analyse d'une chaine de caractere"

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

Code :

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

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 :

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

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

[pc75]

Bonjour,

La fonction Replace n'existe pas en VbScript ?

[xanatox]

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 :

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

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é

- xanatox -

[pitchalov]

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 :

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

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à

[jnauche]

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 :

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
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