Module Sztring_kezelő_rutinok

    'Összefűzés
    Function Összefűz(ByVal Egyik, ByVal Másik) As String
        'Két szót összefűz
        Összefűz = Egyik & Másik
    End Function

    'StrComp
    Function Összehasonlít(ByVal Egyik, ByVal Másik) As Integer
        'Két szót összehasonlít
        '-1 ha Egyik < Másik, 0 ha Egyik = Másik, 1 ha Egyik > Másik
        Összehasonlít = StrComp(Egyik, Másik)
    End Function

    'LCase, UCase
    Sub KisbetűNagybetű(ByVal Szöveg As String, ByRef Kicsi As String, ByRef Nagy As String)
        'A beadott szöveget kis és nagybetűvé alakítja a Kicsi és Nagy változókba
        Kicsi = Szöveg.ToLower 'Kicsi = LCase(Szöveg)
        Nagy = Szöveg.ToUpper   'Nagy = UCase(Szöveg)
    End Sub

    'Len
    Function SzövegHossz(ByVal Szöveg) As Integer
        'Megmondja, hogy hány betűből áll a szöveg
        SzövegHossz = Len(Szöveg)
    End Function

    'Left
    Function Levág_Bal(ByVal Szöveg, ByVal Mennyit) As String
        'Levág a Szöveg bal oldalából Mennyit karaktert
        Levág_Bal = Left(Szöveg, Mennyit)
    End Function

    'Right
    Function Levág_Jobb(ByVal Szöveg, ByVal Mennyit) As String
        'Levág a Szöveg jobb oldalából Mennyit karaktert
        Levág_Jobb = Right(Szöveg, Mennyit)
    End Function

    'Trim
    Function Levág_Szóköz(ByVal Szöveg) As String
        Levág_Szóköz = Trim(Szöveg)
    End Function

    'StrDup
    Function Ismétlődő(ByVal Mennyit, ByVal Karakter) As String
        'Visszaad egy Mennyit hosszúságú karaktersorozatot
        Ismétlődő = StrDup(Mennyit, Karakter)
    End Function

    'Split
    Sub SplitKezelés()
        'Egy szöveget szétszed a ", " határoló jel alapján
        Dim Szöveg As String
        Dim a() As String
        Szöveg = "alma, körte, dió"
        a = Split(Szöveg, ", ")
        TömbKiír(a)

    End Sub

    'Join
    Sub JoinKezelés()
        'Egy tömböt összerak a ", " határolójelekkel
        Dim a() As String = {"alma", "körte", "dió"}
        Dim Szöveg As String
        Szöveg = Join(a, ", ")
        Debug.Print(Szöveg)
    End Sub

    'Join(Split...)...)
    Sub Csere()
        'Egy szövegben lecseréli a Mit-et Mi-re.
        Dim Szöveg, Mit, Mire As String
        Dim a() As String
        Szöveg = "Jó a kávé reggel."
        Debug.Print(Szöveg)
        Mit = "kávé"
        Mire = "tej"
        a = Split(Szöveg, Mit)
        Szöveg = Join(a, Mire)
        'Szöveg= Join(Split(Szöveg,Mit),Mire)) 'Így tömörebb
        Debug.Print(Szöveg)
    End Sub

    'Replace
    Sub Csere_Replace()
        'Egy szövegben lecseréli a Mit-et Mi-re.
        Dim Szöveg, Mit, Mire As String
        Szöveg = "Jó a kávé reggel."
        Debug.Print(Szöveg)
        Mit = "e"
        Mire = "a"
        Szöveg = Replace(Szöveg, Mit, Mire)
        Debug.Print(Szöveg)
    End Sub

    'UBound(Split(...))
    Sub KeresMennyi()
        'Egy szövegben megmondja, hogy hány Mit van.
        Dim Szöveg, Mit As String
        Dim Darab As Integer
        Dim a() As String
        Szöveg = "Jó a kávé reggel."
        Mit = "."
        'Darab = UBound(Split(Szöveg, Mit)) 'így tömörebb
        a = Split(Szöveg, Mit)
        Darab = UBound(a)
        TömbKiír(a)
        Debug.Print(Darab)
    End Sub

    'Mid
    Sub SzétszedBetűre(ByVal Szó)
        'Egy Szót szétszed betűire
        Dim i As Integer
        For i = 1 To Len(Szó)
            Debug.Print(Mid(Szó, i, 1))
        Next
    End Sub

    'InStr
    Function HolVan(ByVal Szöveg, ByVal Betű) As Integer
        'Egy szövegben megkeresi a betű első előfordulását. Nullát ad vissza, ha nincsen.
        HolVan = InStr(Szöveg, Betű)
    End Function

    'Asc, Chr
    Sub Betű_Kód()
        'Kiírja a karaktereket és kódjaikat 60-tól 70-ig
        Dim i As Int16
        For i = 60 To 70
            Debug.Print(Chr(i) & " " & i)
        Next
    End Sub

    'Format
    Sub Formázás()
        'Számot és dátumot formáz
        Debug.Print(Format(30000, "# ###.00"))
        Debug.Print(Format(Now(), "yyyy.mm.dd"))
        Debug.Print(Format(Now(), "hh:mm:ss"))
    End Sub


    Sub TömbKiír(ByVal a)
        'Kilistáz eg tömböt
        Dim i As Integer
        For i = LBound(a) To UBound(a)
            Debug.Print(a(i))
        Next
    End Sub
End Module