Join Function

Trả về một chuỗi từ một số các chuỗi phụ trong một mảng chuỗi.

Syntax:


Join (Text As String Array, dấu_tách)

Return value:

String

Parameters:

Text: một mảng văn bản.

dấu tách (tùy chọn): một ký tự chuỗi được dùng để phân cách các chuỗi phụ trong chuỗi kết quả. Dấu tách mặc định là ký tự khoảng trống. Nếu dấu tách là một chuỗi có chiều dài số không « », thì các chuỗi phụ được ghép nối, không định giới.

Example:


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

Please support us!