Extraire une partie d'un non de fichier Writer.

A partir des menus, nous pouvons afficher dans un texte “Writer” le nom du fichier en question avec son extension.
Il faudrait pouvoir n’afficher qu’un mot, par exemple :
Le fichier se nomme “3456 essai 2.odt”
Je voudrais n’extraire et donc n’inscrire dans le fichier que le premier mot, c’est-à-dire : 3456.
Il faudrait donc une fonction, qui existe certainement déjà, du type :
extraireDechaine(chaîne, place, caractère séparateur)
Dans le cas précédent, ce serait extraireDechaine(chaîne,1," ") chaîne étant le résultat obtenu par les menus, 1 étant donc la place et le caractère séparateur est un espace.
Le séparateur pourrait être un tout autre caractère.

Bonjour

option explicit

Sub Main

const SEP = " "
dim sTrav as variant
dim sFileName as string

globalscope.basicLibraries.loadLibrary("Tools")

if thiscomponent.haslocation then
	sFileName = FileNameoutofPath(convertFromUrl(thiscomponent.Url))
	sTrav = split(sFileName, SEP)
	print sTrav(0)
end if

End Sub

Cordialement