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
Je n’avais pas vu la réponse, bizarre, arrivée depuis fort longtemps.
C’est en y repensant que je suis tombé dessus.
Ce n’était pas non plus un besoin vital.
Il faudrait qu’à l’ouverture d’un fichier, s’affiche la partie extraite du nom du fichier, à l’endroit désiré.
C’est pour l’édition d’un devis ou d’une facture.
Le nom du fichier est composé d’un n° puis de texte, nom…
Je souhaiterais qu’à l’ouverture d’un fichier, la partie extraite du nom, en l’occurence un numéro, vienne se placer là où je l’ai décidé, automatiquement.
Actuellement, sans ce programme, j’ai placé le nom avec l’extension dans un cadre de texte, trop petit, ne laissant pas la place pour tout afficher.
Merci.