Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 421 fois - Téléchargée 19 fois
'Fonction strtr similaire à celle de PHP 'Par Francis Hilaire 'http://www.prometee-creation.com '@param1 => chaîne : chaîne à transformer '@param2 => chaîne : chaîne de caractères à remplacer '@param3 => chaîne : chaîne de caractères de remplacement function strtr(chaine, strFrom, strTo) Dim c0, c1, i for i = 1 to len(strFrom) 'récupération d'un caractère 'de la chaîne strFrom à la 'position i c0 = mid(strFrom, i, 1) 'Si la longueur de la chaîne 'strTo dépasse celle de strFrom 'alors on remplace par rien if i > len(strTo) Then c1 = "" else c1 = mid(strTo, i, 1) end if 'Remplacement des caractères 'dans la chaîne de départ chaine = Replace(chaine, c0, c1) next 'On renvoie la chaîne sans accents strtr = chaine end function '@param1 => chaîne : chaîne à transformer '@return => chaîne : retourne la chaîne traduite function removeAccents(chaine) Dim accent, noaccent accent = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ" noaccent = "AAAAAAACEEEEIIIIDNOOOOOOUUUUYbsaaaaaaaceeeeiiiidnoooooouuuyyby" removeAccents = strtr(chaine, accent, noaccent) end function
8 janv. 2008 à 15:53
20 août 2007 à 14:50
6 août 2007 à 12:45
6 août 2007 à 10:59
6 août 2007 à 10:57
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.