Discussion :

[zooffy]

Salut

j'ai un petit souci avec du VBSCRIPT, mais du vrai, celui qu'on utilise dans les fichier VBS en local.
Je fais une fonction qui va cherche des nom et prénom dans un fichier EXCEL. Jusque là, pas de soucis.

Ce que je voudrais faire c'est remplacer tous les caractère spéciaux par un caractère normal, par exemple le é par un e, le à par un a;

Cette remontée de chaine c'est pour faire des compte utilisateur dans le domaine.

Alors la question est : est ce que vous connaissez une fonction particulière qui fait çà, ou est ce que je dois me palucher une routine qui va vérifier tous les caractères les uns aprés les autres ?

Merci pour aide.

[pitchalov]

Bonjour

J'ai trouvé ça, mais je ne sait plus où.
c'était en VB je l'ai passé en VBS.
Je m'en sert pour renommer des répertoires.

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
22
23
24
25
26
27
28
29
Const ACCENT = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const NOACCENT = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
 
Function SansAccents(strAvecAccents)
 
	' Définition des variables locales
	Dim i
	Dim lettre
	Dim strSansAccents
 
	strSansAccents = strAvecAccents
	  For i = 1 To Len(ACCENT)
	    lettre = Mid(ACCENT, i, 1)
	    If InStr(strSansAccents, lettre) > 0 Then
	       strSansAccents = Replace(strSansAccents, lettre, Mid(NOACCENT, i, 1))
	    End If
	  Next
	SansAccents = strSansAccents
 
	' Libération des variables locales
	Set i = Nothing
	Set lettre = Nothing
	Set strSansAccents = Nothing
 
End Function 
 
'Utilisation : 
Wscript.Echo SansAccents("jöbî, jôbà")
'devrait afficher jobi, joba

[zooffy]

Merci beaucoup pour ta fonction.

Je viens de la transmettre à l'admin qui en avait besoins il est trés content.

@+