Módulo
Contenido
Índice 🔎︎

# 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