| Jak usunąć polskie znaki (ogonki) z tekstu? |
|
Problem: Mam listę pracowników. Dla każdego pracownika potrzebuję utworzyć adres e`mail, który będzie się składać z pierwszej litery imienia, kropki i nazwiska. Muszę usunąć polskie znaki (ogonki). ![]() Rozwiązanie: Możesz skorzystać np. z takiej funkcji własnej. Function AdresEmail(sImieNazwisko As String) As String Dim sImie As String Dim sNazwisko As String Dim iLicznik As Integer Dim sAdres As String Const sFIRMA As String = "@mojafirma.pl" 'Tablice z polskimi znakami i ich angielskie odpowiedniki polskie = Array("ą", "ć", "ę", "ł", "ń", "ó", "ś", "ż", "ź") angielskie = Array("a", "c", "e", "l", "n", "o", "s", "z", "z") 'Petla po wszystkich elementach tablicy 'podmienia wszystkie osiem znakow For iLicznik = LBound(polskie) To UBound(polskie) sImieNazwisko = WorksheetFunction.Substitute(LCase(sImieNazwisko), polskie(iLicznik), angielskie(iLicznik)) Next iLicznik 'Imie i nazwisko sImie = Left(sImieNazwisko, InStr(1, sImieNazwisko, " ") - 1) sNazwisko = Right(sImieNazwisko, Len(sImieNazwisko) - InStr(1, sImieNazwisko, " ")) 'Generuje caly adres e`mail sAdres = Left(sImie, 1) & "." & sNazwisko & sFIRMA AdresEmail = LCase(sAdres) End Function |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 20:24 ) |
