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