by Luculus (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 24th May 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Small function for translation non-english characters to english chars only
VBcoders
'***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
No comments have been posted about Small function for translation non-english characters to english chars only. Why not be the first to post a comment about Small function for translation non-english characters to english chars only.