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 30 31 32 33
|
'-- on entre ce que l'on veut : "Hébé oui voilà !"
function strRewrite(sStr)
Dim sSpeciaux : sSpeciaux = "&#{}[]()-|_@°=+*%!?,.;/:'$^"
Dim sAccent : sAccent = "àâäéèêëìîïöôùüûçÀÂÄÉÈÊËÌÎÏÖÔÙÜÛÇ"
Dim sReplace : sReplace = "aaaeeeeiiioouuucAAAEEEEIIIOOUUUC"
Dim i, j
Dim sCharverif
'-- on remplace chaque accent
for i = 1 to len(sAccent)
sCharverif = ""
sCharverif = Mid(sAccent,i,1)
if InStr(sStr,sCharverif) then
sStr = replace(sStr, sCharverif, Mid(sReplace,i,1))
end if
next
'-- puis, on retire les spéciaux
for j = 1 to len(sSpeciaux)
sCharverif = ""
sCharverif = Mid(sSpeciaux,j,1)
if InStr(sStr,sCharverif) then
sStr = replace(sStr,sCharverif,"")
end if
next
'-- enfin on remplace tous les " " par des "-"
sStr = trim(sStr)
sStr = replace(sStr," ", "-")
sStr = trim(sStr)
strRewrite = sStr
end function
'-- elle retournera dans cette exemple : "hebe-oui-voila" |
Partager