Bonjour,
Pour r�pondre aux attentes des utilisateurs Linux de mes filtres "fusion xml", je suis en train d'apporter quelques modifications aux macros qui accompagnent ces filtres.
Pour OOo 1.1.x, tout va bien, mais je bloque sur un probl�me avec la beta 2.0.
Le stockage des param�tres de configuration a �t� enti�rement revu. En particulier pour les param�tres de filtres qui se trouvent maintenant sous le r�pertoire :
share\registry\modules\org\openoffice\TypeDetection\Filter\
comment fait-on pour y acc�der ? j'ai fais plusieurs tentatives (voir extrait de code ci-dessous), mais sans succ�s.
je n'ai pas trouv� de litt�rature sur le sujet pour la version 2.0 !
d'avance merci pour votre aide
Cordialement
Bob
'********************************************************************************************
ooName = ConfigurationAccess("/org.openoffice.Setup/Product", "ooName")
ooSetupVersion = ConfigurationAccess("/org.openoffice.Setup/Product", "ooSetupVersion")
if (left(ooSetupVersion, 4) = "1.1.") then
FilterData = ConfigurationAccess("/org.openoffice.Office.TypeDetection/Filters/Filter['" & FilterName & "']", "Data")
elseif (left(ooSetupVersion, 4) = "1.9.") then
'RMQ: �a ne marche pas !!! apparemment, le chemin d'acc�s au package n'est pas le bon !
' le nouveau fichier est certainement : share\registry\modules\org\openoffice\TypeDetection\Filter\fcfg_xslt_filters.xcu
' comment y acc�der ? myst�re !
FilterData = ConfigurationAccess("/org.openoffice.TypeDetection.Filter.fcfg_xslt_filters/Filters/Filter['" & FilterName & "']", "Data")
end if
'********************************************************************************************
function ConfigurationAccess(theNodePath as String, thePropName as String) as string
Dim aSettings, aConfigProvider Dim aParams(0) As new com.sun.star.beans.PropertyValue
aConfigProvider = createUnoService( "com.sun.star.configuration.ConfigurationProvider" )
aParams(0).Name = "nodepath"
aParams(0).Value = theNodePath
aSettings = aConfigProvider.createInstanceWithArguments( "com.sun.star.configuration.ConfigurationAccess", aParams() )
ConfigurationAccess = aSettings.getbyname(thePropName)
end function
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
