Function formatname(text0 As String)As String
Dim As String abcd="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 '-_éèçà&ù,;:!*?./"
Dim As String utf8="éèçà ùâêîôûÂÊÎÔÛäëïöüÄËÃÖÜÉÈÇœ"
Dim As String ansi="eecauaeiouAEIOUaeiouAEIOUEECe" '"éèçàùâêîôûÂÊÎÔÛäëïöüÄËÏÖÜÉÈÇœ"
Dim As String text,c,cc
Dim As Integer i,li,j,k
text="":li=Len(text0)
For i=1 To li
c=Mid(text0,i,1)
If InStr(abcd,c)>0 Then
text+=c
ElseIf i<li Then
cc=Mid(text0,i,2)
j=InStr(utf8,cc)
If j>0 And (j Mod 2)=1 Then
text+=Mid(ansi,Int(j/2+1),1)
i+=1
Else
text+="."
EndIf
Else
text+="."
EndIf
Next
Return text
End Function
No comments:
Post a Comment