Función Join

Devuelve una cadena a partir de varias subcadenas de una matriz.

Sintaxis:

Join (Texto As String Array, delimitador)

Valor de retorno:

Cadena

Parámetros:

Texto: Una matriz de cadenas.

Delimitador (opcional): Un carácter que se utiliza para separar las subcadenas en la cadena resultante. El delimitador predeterminado es el carácter espacio. Si el delimitador es una cadena de longitud cero "", las subcadenas se unen sin utilizar ningún separador.

Ejemplo:

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