Join Function

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

Cú pháp:

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

GIá trị trả về:

Chuỗi

Tham số :

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.

Thí dụ :

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