Satýr 4: Public Shared Function ReplaceTR(ByVal incoming As String) As String
Satýr 5: 'Return incoming.Replace("Ý", "Ý").Replace("ý", "ý").Replace("þ", "þ").Replace("Þ", "Þ").Replace("Ð", "Ð").Replace("ð", "ð")
Satýr 6: Return incoming.Replace("Ä°", "Ý").Replace("ı", "ý").Replace("ü", "ü").Replace("ö", "ö").Replace("Åž", "Þ").Replace("Äž", "Ð").Replace("Ã?", "Ö").Replace("Ã?", "Ü").Replace("Å?", "þ").Replace("ç", "ç").Replace("Ã?", "Ç")
Satýr 7: End Function
Satýr 8: End Class
|