Functie Join

Retourneert een tekenreeks uit een aantal subtekenreeksen in een tekenreeksarray.

Syntaxis:


Join (SourceArray As Object, delimiter As String) As String

Geretourneerde waarde:

String

Parameters:

SourceArray: Een tekenreeksmatrix.

delimiter: Een optioneel tekenreeksteken dat wordt gebruikt om de subtekenreeksen in de resulterende tekenreeks te scheiden. Het standaardscheidingsteken is het spatieteken. Als Delimiter een tekenreeks is met lengte nul "", worden de subtekenreeksen samengevoegd zonder scheidingsteken.

Voorbeeld:


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

Tekenreeksfuncties