• Home
 · 
• Miscellaneous
 · 
• Small function for translation non-english characters to english chars only

Small function for translation non-english characters to english chars only

Small function for translation non-english characters to english chars only

Rate Small function for translation non-english characters to english chars only

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'***to english chars - modify it for your language

Public Function NoEngToEng(xString As String) As String
If xString = "" Then
    NoEngToEng = ""
    Exit Function
End If
xInput = xString
xString = ""
strNoEng = "ÁáČčĎďĚÉěéÍíŇňÓóŘřŠšŤťÚŮúůÝýŽž"
strEng = "AaCcDdEeeeIiNnOoRrSsTtUUuuYyZz"
For i = 1 To Len(xInput)
    xOutput = Mid(xInput, i, 1)
    xPosition = InStr(1, strNoEng, xOutput)
    If xPosition > 0 Then xOutput = Mid(strEng, xPosition, 1)
    xString = xString & xOutput
Next
NoEngToEng = xString
End Function