Discussion :

[spiral]

Bonjour,

j'ai besoin de lire des propriétés dans un fichier texte pour les intégrer dans un document Writer, de pouvoir modifier ces propriétés depuis le document, et de ré-écrire le fichier texte si une propriété a changé...

Le problème fondamental que j'ai est que le fichier texte a un nom fixe, mettons "toto.txt", et doit se trouver dans le même répertoire que le document Writer que j'ai ouvert. Je n'arrive pas à accéder au fichier texte en chemins relatifs pour le moment, ni en mettant des "./" ou même ".\" dans le chemin... J'ai envisagé d'essayer de trouver le répertoire du chemin document avec ThisComponent, mais je n'ai pas réussi à lister les attributs et fonctions que je peux appeler sur ThisComponent ni à trouver de référence à ce sujet dans l'aide.

J'ai regardé les exemples de manipulation de fichiers sur le site developpez.com, mais ils sont tous en chemins absolus...

Merci d'avance de me donner des pistes,

Cordialement,

[Invité]

Bonjour

Tu peux trouver certaines propriétés (dont le chemin de ton fichier) dans cet exemple de la FAQ OpenOffice :

Comment récupérer des informations sur les propriétés des fichiers ? en utilisant : ParentFolder.Path et shortpath.

Philippe

[spiral]

Mon problème principal est que je ne connais pas le chemin absolu, et les méthodes que tu m'indiques ont justement besoin de ce-dit chemin... Tout ce que je sais sur le fichier, c'est qu'il est dans le même répertoire que mon document OpenOffice, mais ça s'arrête là... J'avais déjà vu cette partie de la doc, mais ça ne résout pas mon problème.

[Invité]

Bonjour

Quelques petits détails en fonction de mes connaissances

OpenOffice travaille principalement en chemin URL, c'est à dire que :

C:\Test\Test.odt devient file:///C:/Test/Test.odt

Voici une petite routine qui est à mettre dans les macros de ton fichier

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub RecupChemin
	' déclaration des variables
	Dim objWriter As Object			' déclaration de notre fichier
	Dim strCheminParent As String	' chemin sans le fichier	
	Dim tab() As String				' tableau permettant d'avoir le détail du chemin
	Dim i As Integer
 
	objWriter = ThisComponent
	tab() = Split(Right(objWriter.URL,Len(objWriter.URL)-8),"/")
	For I = 0 to Ubound(tab())-1
		strCheminParent =strCheminParent & tab(i)&"\"
	Next I
	MsgBox strCheminParent
 
End Sub

Celle-ci va convertir le chemin de ton fichier URL en chemin Windows, et sans le nom du fichier, ainsi tu auras le répertoire contenant ton fichier Writer, et tu n'auras plus qu'à le concaténer avec ton fichier Texte.

Tu peux remplacer la dernière ligne par

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ConvertToURL(strCheminParent)

pour avoir ton chemin au format URL.

Il y a surement plus simple, mais de cette manière tu peux récupérer le dossier où se trouve ton fichier Writer de deux manières et en concaténant tu as ton fichier Texte.

Philippe

[spiral]

Avec la fonction URL, j'ai réussi à trouver mon bonheur en effet... Dommage que l'IDE d'OpenOffice soit si restreint, avec une complétion automatique ou au moins une vraie doc, ça aurait pu être réglé en 2 minutes.

[Bidouille]

avec une complétion automatique ou au moins une vraie doc, ça aurait pu être réglé en 2 minutes.

Le projet OpenOffice.org est constitué de bénévoles. Toutes les propositions sont donc les bienvenues.

Pour la doc, vous pouvez également enrichir le Wiki francophone.

Comme je dis souvent : beaucoup se plaignent et peu se donne la peine de contribuer.