Contents
Index 🔎︎

# 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:

Chuỗi

### 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

Chủ đề Liên quan

String functions