'**********************************************************************************************************
' Nazwa:                usunSpacje
' Autor:                mielk | 2012-11-18
'
' Opis:                 Funkcja usuwająca z danego tekstu spacje, tabulatory, przejścia do nowej linii i
'                       inne białe znaki.
'
' Argumenty:
'   tekst               Tekst bazowy, z którego mają zostać usunięte spacje, tabulatory i inne znaki białe.
'                       Przekazana wartość musi posiadać typ String lub inny typ konwertowalny na String
'                       (czyli de facto każdy prosty typ zmiennej).
'
'                       Znaki uznawane przez tę funkcję za znaki białe zostały wymienione poniżej:
'
'                                   Znak                    |  ASCII code
'                                   ------------------------|--------------
'                                   tabulator               |        9
'                                   znak końca wiersza      |       10
'                                   znak końca wiersza      |       13
'                                   spacja                  |       32
'                                   spacja                  |      160
'
' Zwraca:
'   String              Tekst bazowy pozbawiony spacji i innych białych znaków.
'
'
' --- Zmiany ----------------------------------------------------------------------------------------------
' 2012-11-18        mielk           Utworzenie funkcji.
'**********************************************************************************************************
Public Function usunSpacje(ByVal tekst As String) As String
    Const NAZWA_METODY As String = "usunSpacje"
    '------------------------------------------------------------------------------------------------------

    usunSpacje = VBA.Replace(tekst, VBA.Chr$(9), "")         '..........................tabulator
    usunSpacje = VBA.Replace(usunSpacje, VBA.Chr$(10), "")   '................ znak końca wiersza
    usunSpacje = VBA.Replace(usunSpacje, VBA.Chr$(13), "")   '................ znak końca wiersza
    usunSpacje = VBA.Replace(usunSpacje, VBA.Chr$(32), "")   '............................ spacja
    usunSpacje = VBA.Replace(usunSpacje, VBA.Chr$(160), "")  '............................ spacja

End Function