utf8 to ansi

Function formatname(text0 As String)As String
    Dim As String abcd="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 '-_éèçà&ù,;:!*?./"
    Dim As String utf8="éèçàùâêîôûÂÊÎÔÛäëïöüÄËÏÖÜÉÈÇ"
   Dim As String ansi="eecauaeiouAEIOUaeiouAEIOUEEC" '"éèçàùâêîôûÂÊÎÔÛäëïöüÄËÏÖÜÉÈÇ"
    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