Ative o JavaScript no navegador para exibir as páginas da Ajuda do LibreOfficeDev.
Função Join
Retorna uma string de um número de substrings em um vetor de strings.
Join (SourceArray As Object, delimiter As String) As String
String
SourceArray: uma array de string.
delimiter: Um caractere opcional que é usado para separar as subcadeias de caracteres na cadeia de caracteres resultante. O delimitador padrão é o caractere espaço. Se delimiter é uma cadeia de caracteres de comprimento zero "", as subcadeias são unidas sem 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, 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