[VB SCRIPT] changer les caractères spéciaux en caractères normaux

Version imprimable

13/03/2007, 09h56
zooffy

[VB SCRIPT] changer les caractères spéciaux en caractères normaux

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.

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:

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

03/04/2007, 17h06
zooffy

Merci beaucoup pour ta fonction.

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

@+