# Split Function

## Szintaxis:

`Split (SzĂ¶veg As String, elvĂˇlasztĂł, szĂˇm)`

String (karakterlĂˇnc)

elvĂˇlasztĂł (opcionĂˇlis): A SzĂ¶veg elvĂˇlasztĂˇsĂˇra hasznĂˇlt karakter. Az alapĂ©rtelmezett karakter a szĂłkĂ¶z.

szĂˇm (opcionĂˇlis): A visszakapni kĂ­vĂˇnt rĂ©szkarakterlĂˇncok szĂˇma.

`Dim a(3)`

`Sub main()`

`    a(0) = "ABCDE"`

`    a(1) = 42`

`    a(2) = "MN"`

`    a(3) = "X Y Z"`

`    JStr = Join1()`

`    Call Show(JStr, Split1(JStr))`

`    JStr = Join2()`

`    Call Show(JStr, Split1(JStr))`

`    JStr = Join3()`

`    Call Show(JStr, Split1(JStr))`

`End Sub`

` `

`Function Join1()`

`    Join1 = Join(a(), "abc")`

`End Function`

` `

`Function Join2()`

`    Join2 = Join(a(), ",")`

`End Function`

` `

`Function Join3()`

`    Join3 = Join(a())`

`End Function`

` `

`Function Split1(aStr)`

`    Split1 = Split(aStr, "D")`

`End Function`

` `

`Sub Show(JoinStr, TheArray)`

`    l = LBound(TheArray)`

`    u = UBound(TheArray)`

`    total\$ = "=============================" + Chr\$(13) + JoinStr + Chr\$(13) + Chr\$(13)`

`    For i = l To u`

`        total\$ = total\$ + TheArray(i) + Str(Len(TheArray(i))) + Chr\$(13)`

`    Next i`

`    MsgBox total\$`

`End Sub`