Advanced Search

Return to Snippet

Revision: 38785
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