OpenOffice.info

Hallo,
ich brings einfach nicht hinne ! :(
Eine vorhandene dbf Datei aus einem Makro heraus öffnen schlägt genau so wie beschrieben fehl.

Könnten Sie bitte mal ihren vollständigen problemlösenden Modulcode zum Nachvollziehen ins Forum stellen. Ich verzweifle nämlich langsam aber sicher. Die Importmethoden aus Fachbüchern (Thomas Krumbein) funktionieren bei mir einfach nicht . Ihre Lösung würde ich gerne ausprobieren, mir fehlt allerdings die Einbindung der Funktion. Auch kann ich mit dem Begriff "Perl-Newsgroup" nichts anfangen.

Bitte helfen sie mir weiter.

Vielen Dank

Jürgen

use strict;

my $dir = ("-Pfad zu OO-Calc-");
my $file = "-Pfad zur DBF-Datei-";
my $enc  = "IBMPC_850";  'das ist der wesentliche Zeichensatz, den dBase verwendet
 
my @cmd = (
    $dir."scalc.exe",
    qq[macro:///Standard.Module1.openDBFwithEnc("$file","$enc")]
);
 
system( @cmd );

Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
	Dim oPropertyValue As New com.sun.star.beans.PropertyValue
	If Not IsMissing( cName ) Then
		oPropertyValue.Name = cName
	EndIf
	If Not IsMissing( uValue ) Then
		oPropertyValue.Value = uValue
	EndIf
	MakePropertyValue() = oPropertyValue
End Function


sub openDBFwithEnc( iFile As String, inputCharset As String )
'    dim document as object
    dim oDoc as object
 
    inURL = ConvertToURL( "-Pfad zur DBF-Datei-" )
 
    oDesk = createUNOService("com.sun.star.frame.Desktop")
 
    oDoc = oDesk.loadComponentFromURL( inURL, "_blank", 0, Array(_
    MakePropertyValue("FilterOptions", inputCharset),_
    MakePropertyValue("FilterName", "dBase"),_
    MakePropertyValue("Hidden", False) ) )

end sub

Hallo,

ich hab's inzwischen raus bekommen.
Christian Winter aus der Perl-Newsgroup hat's gewusst:
[code]use strict;

my $dir = ("-Pfad zu OO-Calc-");
my $file = "-Pfad zur DBF-Datei-";
my $enc = "IBMPC_850"; 'das ist der wesentliche Zeichensatz, den dBase verwendet

my @cmd = (
$dir."scalc.exe",
qq[macro:///Standard.Module1.openDBFwithEnc("$file","$enc")]
);

system( @cmd );[/code]
Im "Standard.Module1" braucht man dann dieses Makro mit der Funktion(auch von Christian Winter):
[code]Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
Dim oPropertyValue As New com.sun.star.beans.PropertyValue
If Not IsMissing( cName ) Then
oPropertyValue.Name = cName
EndIf
If Not IsMissing( uValue ) Then
oPropertyValue.Value = uValue
EndIf
MakePropertyValue() = oPropertyValue
End Function


sub openDBFwithEnc( iFile As String, inputCharset As String )
' dim document as object
dim oDoc as object

inURL = ConvertToURL( "-Pfad zur DBF-Datei-" )

oDesk = createUNOService("com.sun.star.frame.Desktop")

oDoc = oDesk.loadComponentFromURL( inURL, "_blank", 0, Array(_
MakePropertyValue("FilterOptions", inputCharset),_
MakePropertyValue("FilterName", "dBase"),_
MakePropertyValue("Hidden", False) ) )

end sub[/code]
Vielleich interessiert es ja jemanden.

Gruß, Hago

siehe http://de.openoffice.info/viewtopic.php?f=18&t=16481

Das bekommst Du auch in Perl verpackt?!

Hallo,

ich lasse mit einem Perl-Script eine dBase Datei von OOCalc öffnen.
Das klappt, nur nicht ganz so, wie ich es will.

Sofort nach dem Start von OO poppt das kleine Fenster hoch ("DBaseimport"), in dem ich nach dem zu verwendenden Zeichensatz gefragt werde.
Das möchte ich gerne vermeiden.
Gibt es irgendeine Möglichkeit, diese Entscheidung beim Aufruf als Parameter mit anzugeben oder einen Standard im Programm festzulegen?

Ich wäre für Hilfe sehr dankbar.

Gruß, Hago