Modifier les caractéres spéciaux et les Majuscules d'une variable

Modifier les caractéres spéciaux et les Majuscules d'une variable - VB/VBA/VBS - Programmation

Marsh Posté le 23-11-2005 à 12:41:41    

Bonjour ,
 
Mon script maintenant bientôt fini, je bloque encore sur un petit problème.
Je dois créer plusieurs adresses mails sur un Exchange 2000 ( Alias SMTP )
Je suis arrivé à créer tout cela mais je rencontre un problème.
 
Lors de la création des alias mon script prend le prénom + nom d'une personne dans l'active directory.  
Le gros problèmes c'est quand dans ces nom et prénoms il y a des caractères spéciaux ( à,â,é,è,ê;äë) etc. ... ainsi que des Majuscules. Je souhaite dans mon script remplacer ces caractères spéciaux par des caractères sans accent etc. ... es-ce qu'il existe une fonction qui permette cela ? si non comment faire ?  
 
Bien à vous  
JuVeNaL

Reply

Marsh Posté le 23-11-2005 à 12:41:41   

Reply

Marsh Posté le 23-11-2005 à 12:54:52    

Pour les majuscules j'ai trouvé LCase , mais pour les caractéres spéciaux je n'ai rien trouvé . Donc si quelqu'un a une idée ?  
 
JuVeNaL

Reply

Marsh Posté le 23-11-2005 à 14:32:34    

Bonjour,
 
Tu fais une boucle sur ta chaine de caractère
 
for i = 1 to len(MaChaine)
   Caract = mid(MaChaine, i, 1)
   select case Caract
      case "é", "è", "ê"
         Caract = "e"
      case "à"
         Caract = "a"
      case ",", ";"
         Caract = ""
   end select
   MaChaine = MaChaine & LCase(Caract)
Next i
 
 
 

Reply

Marsh Posté le 23-11-2005 à 15:32:17    

pc75 a écrit :

Bonjour,
 
Tu fais une boucle sur ta chaine de caractère
 
for i = 1 to len(MaChaine)
   Caract = mid(MaChaine, i, 1)
   select case Caract
      case "é", "è", "ê"
         Caract = "e"
      case "à"
         Caract = "a"
      case ",", ";"
         Caract = ""
   end select
   MaChaine = MaChaine & LCase(Caract)
Next i


 
Bonjour PC75,
 
Merci pour ta réponse .
J'ai fait un test avec la partie du code que tu m'as transmit mais je recontre un probléme  
Voici le code test  
 
Dim test1
test1 ="Détéctà"
for i = 1 to len(test1)
   Caract = mid(test1, i, 1)
   select case Caract
      case "é", "è", "ê"
         Caract = "e"
      case "à"
         Caract = "a"
      case ",", ";"
         Caract = ""
   end select
   test1 = test1 & LCase(Caract)
   Wscript.echo test1
Next i
 
et j'ai l'erreur a la ligne 16 , 1 donc le " Next i"  
l'erreur est Expected en of statement.
peux-tu m'éclairer sur cette erreur ?  
 
Bien à toi
JuVeNaL

Reply

Marsh Posté le 23-11-2005 à 15:35:09    

Re,
 
Voila une fonction complète
 
Function FormatNom(NOM)
   ' Fonction de formatage du nom
   For i = 1 To Len(NOM)
      Car = Mid(NOM, i, 1)
      Select Case Car
         Case " "
            Car = "-"
         Case "'"
            Car = ""
         Case Else
            Car = Car
      End Select
      FormatNom = FormatNom & LCase(Car)
   Next i
End Function
 
PS : C'est du VB6, si tu codes en vbScript ou VBA, remplace le Next i par Next (sans le i)

Reply

Marsh Posté le 23-11-2005 à 15:44:58    

pc75 a écrit :

Re,
 
Voila une fonction complète
 
Function FormatNom(NOM)
   ' Fonction de formatage du nom
   For i = 1 To Len(NOM)
      Car = Mid(NOM, i, 1)
      Select Case Car
         Case " "
            Car = "-"
         Case "'"
            Car = ""
         Case Else
            Car = Car
      End Select
      FormatNom = FormatNom & LCase(Car)
   Next i
End Function
 
PS : C'est du VB6, si tu codes en vbScript ou VBA, remplace le Next i par Next (sans le i)


 
Merci beaucoup ça marche .. vais voir pour quand meme un peut comprendre le code ...  
car mon but n'étais pas davoir le code tout fait .. mais grand merci quand meme pour la solution  
 
Bien à toi
JuVeNaL

Reply

Marsh Posté le 23-11-2005 à 16:00:04    

Re,
 
De rien. Si tu veux des précisions, n'hésites pas.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed