Space1000

Libreoffice has built-in function to explode strings called Split. To join array into string there is an opposite "implode" function Join.

Sub Main

	Dim str As String	
	Dim arr() As String

	str = "Calc||Microsoft Excel 97/2000/XP|xls|MS Excel 97"
	arr = Split(str,"|")
	MsgBox(arr(0))        ' "Calc"                                                '
	MsgBox(arr(4))        ' "MS Excel 97"                                         '
	MsgBox(Join(arr,",")) ' "Calc,,Microsoft Excel 97/2000/XP,xls,MS Excel 97"    '
	
End Sub

Описание:
Вышепредставленный программный код на бейсике для макросов либреофиса для разделения строк использует аналоги PHP-функций explode и implode, называемые Split и Join. Split разделяет строку при помощи разделителя в массив, а Join собирает массив в строку, объединяя указанным разделителем.