IBM Lotus Symphony
|
Devuelve una cadena a partir de varias subcadenas de una matriz.
Join (Texto As String Array, delimitador)
Cadena
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.
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, LaMatriz)
l = LBound(LaMatriz)
u = UBound(LaMatriz)
total$ = "=============================" + Chr$(13) + JoinStr + Chr$(13) + Chr$(13)
For i = l To u
total$ = total$ + LaMatriz(i) + Str(Len(LaMatriz(i))) + Chr$(13)
Next i
MsgBox total$
End Sub