Revision: 38785
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at January 7, 2011 20:19 by erne100
Initial Code
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
Initial URL
Initial Description
Initial Title
Zamiana polskich znaków na angielskie
Initial Tags
Initial Language
Visual Basic