/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Option Explicit Public Function pol2eng(sSource As String) As String Dim iCounter As Integer Dim sDestination As String Dim aPolish As Variant Dim aEnglish As Variant aPolish = Array("Ä…", "ć", "Ä™", "Å‚", "Å„", "ó", "Å›", "ż", "ź", "Ä„", "Ć", "Ę", "Å", "Ń", "Ó", "Åš", "Å»", "Ź") aEnglish = Array("a", "c", "e", "l", "n", "o", "s", "z", "z", "A", "C", "E", "L", "N", "O", "S", "Z", "Z") sDestination = sSource For iCounter = LBound(aPolish) To UBound(aEnglish) sDestination = Replace(sDestination, aPolish(iCounter), aEnglish(iCounter)) Next iCounter pol2eng = sDestination End Function