OpenOffice.info

@Toxitom

Hi Thomas,

mir fliegt das Blech weg! Das is'n Ding ! Ohauerha - daran wär ich im Leben nicht d'rauf gekommen :oops: .

Vielleicht liegt's daran, dass ich Dein Buch "[color=red]Makros in OpenOffice.org 2.0[/color]" noch nicht ganz gelesen habe :roll: . Übrigens [u][b]ein klasse Buch, sehr zu empfehlen[/b][/u] :!:

Aber vielleicht kannst Du dieses Problem in der nächsten Auflage gleich mit ins Kapitel 1.2 aufnehmen :?:

Du hast natürlich absolut recht:
Ich hab' mir bereits einen Teil des [i]DevelopersGuide[/i] reingezogen und da steht's ja auch geschrieben, dass praktisch alles ab dem Desktop ein Objekt - ggf. mit Unterobjek(en) ist(sind). Somit ist natürlich klar, dass ein Modul ebenfalls ein Objekt sein muss. Und das darf natürlich nicht den gleichen Namen wie eine verwendete Variable haben.
Aber wenn man so davor sitzt, denkt man im ersten Moment nicht daran...

Ich glaub , das wird mir nun nicht mehr so schnell passieren :oops:

Herzlichen Dank für Deine schnelle Hilfe - jetzt kann ich wenigstens mit meinem Projekt weitermachen.

P.S.: Ich verwende OOo 2.1 auf W2k SP4 und XP SP2

Viele Grüsse,
keyboard-billy

Hey Billy,

[quote]Vielleicht hast Du ja noch 'nen heißen Tipp für mich? [/quote]

Leider nein, zu dem es eigentlich korrekt ist und funktionieren müsste (tut es übrigens bei mir auch....)

Bleibt die Frage: Welches BS verwendest du, welche OOo Version?

Viele Grüße
Thomas

Edit: Doch einen Fehler gefunden! Du hast ja die Variabennamen doppelt verwendet - dann kann es nicht gehen! Die Module kanst du natürlich nicht genauso benennen wie deine Funktionen, Module sind Objekte und das ist spätestens bei Modulübergreifenden Funktionen ein Namenskonflikt!
Nenn mal Dein Modul "printGreetz" in "Mod_printGreetz" um, dann funktioniert es auch bei dir :-)

Option Explicit

Sub test1
 MsgBox (printGreetz$("Billy"), 0, "test1")
End Sub

Function printGreetz$(name$)
  name$ = "Hallo " & name$ & "!" & chr$(13) & _
          "Wie geht's?"
  printGreetz$ = name$
End Function

Option Explicit

Function printGreetz$(name$)
  name$ = "Hallo " & name$ & "!" & chr$(13) & _
          "Wie geht's?"
  printGreetz$ = name$
End Function

Sub test1
 MsgBox (printGreetz$("Billy"), 0, "test1")
End Sub

@Toxitom

Hallo Thomas,

ich hab' Deinen Vorschlag befolgt. Im Stepmodus wir die Variable [color=green]documentName$[/color] nicht belegt.

Stellt man die [color=darkblue]Sub[/color] und die [color=darkblue]Functions[/color] in ein Modul, dann wird die Variable belegt und alles läuft optimal.

Ich hab' nun einen einfacheren Test gemacht:
Zunächst hab ich ein Modul names "[i]printGreetz[/i]" mit folgendem Code erstellt:
[code]Option Explicit

Sub test1
MsgBox (printGreetz$("Billy"), 0, "test1")
End Sub

Function printGreetz$(name$)
name$ = "Hallo " & name$ & "!" & chr$(13) & _
"Wie geht's?"
printGreetz$ = name$
End Function[/code]

Wenn ich die Sub starte erhalte ich ein Korrekte Ausgabe :D :

[img]http://www.nefkom.net/bernd.bierlein/OOo-Screenshots/sshot-1.gif[/img]

Als nächstes habe ich das Modul "[i]printGreetz[/i]" auf folgenden Code reduziert:

[code]Option Explicit

Function printGreetz$(name$)
name$ = "Hallo " & name$ & "!" & chr$(13) & _
"Wie geht's?"
printGreetz$ = name$
End Function[/code]

... und den Aufruf der Funktion [color=green]printGreetz$()[/color] über die [color=darkblue]Sub test1[/color] in ein extra Modul namens "[i]Module1[/i]" kopiert:

[code]Sub test1
MsgBox (printGreetz$("Billy"), 0, "test1")
End Sub[/code]

Ich starte nun [color=darkblue]Sub test1[/color]. Anschließend passiert folgendes:

[img]http://www.nefkom.net/bernd.bierlein/OOo-Screenshots/sshot-2.gif[/img]

... nach betätigen des OK-Buttons :x :

[img]http://www.nefkom.net/bernd.bierlein/OOo-Screenshots/sshot-3.gif[/img]

Something strange seems to be happen .... :evil:

Vielleicht hast Du ja noch 'nen heißen Tipp für mich?

Greets,
keyboard-billy

sub test
  goto getFileLocations
  Fortsetzung:
'...weiterer Code
  exit sub

  getFileLocations:
'....Code
  goto Fortsetzung
end sub

sub test
  getFileLocations$([arg])
' .... weiterer Code
end sub

function getFileLocations$([arg])
' .... weiterer Code
end function

@stbuerg

also, es geht in diesem Thread nicht um die Frage, wie man Funktionen behandelt und warum.

Aber zu Deiner Info: Die Funktion hat ja einen ÜbergabeParameter - nämlich den Dateinamen eines bestimmten Dokumentes.
Wenn ich in meinem Programmablauf zunächst ein paar Parameter aus einer externen Datei einlesen möchte um mit diesen Parametern weiterarbeiten zu können, nutze ich eine Funktion. Funktionen können Rückgabewerte erhalten, müssen aber nicht.

In Old-Style-Basic hätte man geschrieben:

[code]sub test
goto getFileLocations
Fortsetzung:
'...weiterer Code
exit sub

getFileLocations:
'....Code
goto Fortsetzung
end sub
[/code]

Die sicher besserer Alternative ist:

[code]sub test
getFileLocations$([arg])
' .... weiterer Code
end sub

function getFileLocations$([arg])
' .... weiterer Code
end function
[/code]

Das ist ganz einfach ein übersichtlicherer Programmierstil. Außerdem kann die Funktion in einem eigenen Modul abgelegt werden. Dieses Modul kann man dann in eine x-beliebige Bibliothek einbinden, und die Funktion kann dann quasi "von überall her" verwendet (=aufgerufen) werden.

Weiterer Vorteil: Der Code muß nur ein mal geschrieben werden.

So, ich hoffe dass Du nun den "Holzweg" wieder verlassen kannst ... :wink:

Greetz,
keyboard-billy[/code]

Vielleicht bin ich ja ganz auf dem Holzweg.
Aber warum werden hier FUNKTIONEN definert, und nachher wie SUBs behandelt, also erwartet OO nicht so etwas wie
x = getFileLocations$("Repertoire.odb")
anstatt nur
getFileLocations$("Repertoire.odb")

Wundert mich nur, vielleicht hat das ja auch einen tieferen Sinn und mit dem Fehler nichts zu tun?

Hey billy,

hmm, also ich finde nichts dramatisches. Sollte so funktionieren. Warum deien Variablen leer sind, kann ich dir nicht sagen, aber nimm doch mal deine Basic-IDE, füge die Varaiblen den Beobachter zu (Debug-Modus), und gehen dann einmal schrittweise dein Makro durch (Step into). Dann siehst du doch genau, welchen Wert die Varaiblen wann annehmen - und erkennst auch, ob die Schleifen überhaupt ausgeführt werden.
Ich denke, das sollte dir zur Fehlersuche helfen.

Viele Grüße
Thomas

'----------------------------------------------------------------
' Function:    getCurDir$()
' Author:      keyboard-billy
' Version:     1.00
' Date:        28.02.2007
' Description: Die Funktion emittelt unabhängig vom genutzen 
'              Betriebssystem das aktuelle Programmverzeichnis.
'              Der Rückgabewert erfolgt in URL-Notation.
'----------------------------------------------------------------

Option Explicit

Function getCurDir$(fileName$)
  GlobalScope.BasicLibraries.LoadLibrary("Tools")

  Dim oDocs As Object, oDoc As Object, oComponents As Object
  Dim FileN$, DirName$, URL$
  Dim found As Boolean : found = false

  oComponents = StarDesktop.getComponents()                               'Alle geöffneten Komponenten ermitteln
  oDocs = oComponents.createEnumeration()                                 'Index für alle geöffneten Komponenten erstellen
    Do While oDocs.hasMoreElements()                                      'Suchroutine
    oDoc = oDocs.nextElement()
    On Error Goto go_on
    URL$ = oDoc.getURL()
    FileN$ = FileNameoutofPath(URL$)                                      'Funktion der Globalen Bibliothek "Tools"
    If FileN$ = fileName$ Then
      DirName$ = DirectoryNameoutofPath(URL$, "/")                        'Funktion der Globalen Bibliothek "Tools"
      found = true
    End If
  go_on:
  Loop
  If found = false Then
     MsgBox ("Die Datei """ & fileName$ & """ ist zur Zeit nicht geöffnet!", 48, "Fehler")
  End If
  getCurDir$ = DirName$
End Function

'----------------------------------------------------------------
' Function:    getFileLocations$()
' Author:      keyboard-billy
' Version:     1.00
' Date:        28.02.2007
' Description: Die Funktion sucht im aktuellen 
'              Programmverzeichnis nach einer Template-Datei
'              {Dokumentname}.ini
'              Anschliessend wird die ini-Datei nach
'              den Parametern "Template_Path", "Template_File"
'              "Output_Path" und "Output_File" abgesucht.
'              Die zugehörigen Parameter werden ausgelesen und
'              in den öffentlichen Variablen "templatePath$",
'              "templateFile$", "outputPath$" und "outputFile$"
'              abgelegt.
'----------------------------------------------------------------

Option Explicit

'Global documentName$
'Global templatePath$, templateFile$
'Global outputPath$, outputFile$

Public documentName$
Public templatePath$, templateFile$
Public outputPath$, outputFile$

Function getFileLocations$(documentName$)
  Dim fileP$, iniFile$, recordLine$, text$
  Dim tmp$(2)
  Dim fileMask%, inputFileHandle%
  Dim pos% : pos% =1
  Dim lPos%, uPos%

  iniFile$ = Left((documentName$),Len("documentName$")-3) & ".ini"        'Dateiname der Datei {documentName$}.ini

  If getCurDir$(documentName$) <> "" Then
    fileP$ = getCurDir$(documentName$)
    If FileExists(fileP$ & "/" & iniFile$) Then                           'Verzeichnis-Separator ist "/" in URL-Notation!
      'ini-Datei einlesen
      inputFileHandle% = Freefile()
      Open fileP$ & "/" & iniFile$ For Input As #inputFileHandle
      Do While Not EOF(#inputFileHandle)
        Line Input #inputFileHandle, recordLine$
        'Parser
        If InStr(pos%, recordLine$,"Template_Path=") <> 0 Then
          tmp$ = Split(recordLine$, "=", 2)
          templatePath$ = tmp$(1)
        End If
        If InStr(pos%, recordLine$,"Template_File=") <> 0 Then
          tmp$ = Split(recordLine$, "=", 2)
          templateFile$ = tmp$(1)
        End If
        If InStr(pos%, recordLine$,"Output_Path=") <> 0 Then
          tmp$ = Split(recordLine$, "=", 2)
          outputPath$ = tmp$(1)
        End If
        If InStr(pos%, recordLine$,"Output_File=") <> 0 Then
          tmp$ = Split(recordLine$, "=", 2)
          outputFile$ = tmp$(1)
        End If
      Loop 
      Close #inputFileHandle
    Else
      'ini-Datei nicht vorhanden
      MsgBox("Datei """& iniFile$ & """ in Pfad """ & _
             ConvertFromURL(fileP$) & """ nicht vorhanden!", 48, "Fehler")
    End If
  End If
End Function

Sub test
  getFileLocations$("Repertoire.odb")                        'getFileLocations$({Dateiname des Dokuments})
  MsgBox("Template_Path=""" & templatePath$ & """" & chr$(13) & _
         "Template_File=""" & templateFile$ & """" & chr$(13) & _
         "Output_Path=""" & outputPath$ & """" & chr$(13) & _
         "Output_File=""" & outputFile$ & """" & chr$(13))
End Sub

Hallo Leutz,

ich habe 2 Funktionen in verschiedenen Modulen:

1. Modul heißt [i]getCurDir[/i], die Funktion darin heißt [i]getCurDir$()[/i]
2. Modul heißt [i]getFileLocations[/i], die Funktion darin heißt [i]getFileLocations$()[/i]

Die Funktion im 1. Modul wird von der Funktion im 2. Modul aufgerufen.
[i]getFileLocations$()[/i] wird von einer Testroutine ([i]Sub test[/i]), die sich einem 3. Modul [i]Modul1[/i] befindet, gestartet.

[u]Problem:[/u]
Wenn ich alle Funktionen zusammen mit der Sub in einem Modul habe, klappt alles prima.
Wenn ich die Funktionen und die Sub auf verschiedene Module verteile klappt nichts mehr.

Ich habe die o.g. Module in eine Bibliothek namens [i]HTML_Code_Generator[/i] eingehängt.
Die Bibliothek hängt an einem Formular einer Datenbank.

Der Code von Modul "[i]getCurDir[/i]":
[code]'----------------------------------------------------------------
' Function: getCurDir$()
' Author: keyboard-billy
' Version: 1.00
' Date: 28.02.2007
' Description: Die Funktion emittelt unabhängig vom genutzen
' Betriebssystem das aktuelle Programmverzeichnis.
' Der Rückgabewert erfolgt in URL-Notation.
'----------------------------------------------------------------

Option Explicit

Function getCurDir$(fileName$)
GlobalScope.BasicLibraries.LoadLibrary("Tools")

Dim oDocs As Object, oDoc As Object, oComponents As Object
Dim FileN$, DirName$, URL$
Dim found As Boolean : found = false

oComponents = StarDesktop.getComponents() 'Alle geöffneten Komponenten ermitteln
oDocs = oComponents.createEnumeration() 'Index für alle geöffneten Komponenten erstellen
Do While oDocs.hasMoreElements() 'Suchroutine
oDoc = oDocs.nextElement()
On Error Goto go_on
URL$ = oDoc.getURL()
FileN$ = FileNameoutofPath(URL$) 'Funktion der Globalen Bibliothek "Tools"
If FileN$ = fileName$ Then
DirName$ = DirectoryNameoutofPath(URL$, "/") 'Funktion der Globalen Bibliothek "Tools"
found = true
End If
go_on:
Loop
If found = false Then
MsgBox ("Die Datei """ & fileName$ & """ ist zur Zeit nicht geöffnet!", 48, "Fehler")
End If
getCurDir$ = DirName$
End Function
[/code]

Der Code von Modul "[i]getFileLocations[/i]":
[code]'----------------------------------------------------------------
' Function: getFileLocations$()
' Author: keyboard-billy
' Version: 1.00
' Date: 28.02.2007
' Description: Die Funktion sucht im aktuellen
' Programmverzeichnis nach einer Template-Datei
' {Dokumentname}.ini
' Anschliessend wird die ini-Datei nach
' den Parametern "Template_Path", "Template_File"
' "Output_Path" und "Output_File" abgesucht.
' Die zugehörigen Parameter werden ausgelesen und
' in den öffentlichen Variablen "templatePath$",
' "templateFile$", "outputPath$" und "outputFile$"
' abgelegt.
'----------------------------------------------------------------

Option Explicit

'Global documentName$
'Global templatePath$, templateFile$
'Global outputPath$, outputFile$

Public documentName$
Public templatePath$, templateFile$
Public outputPath$, outputFile$

Function getFileLocations$(documentName$)
Dim fileP$, iniFile$, recordLine$, text$
Dim tmp$(2)
Dim fileMask%, inputFileHandle%
Dim pos% : pos% =1
Dim lPos%, uPos%

iniFile$ = Left((documentName$),Len("documentName$")-3) & ".ini" 'Dateiname der Datei {documentName$}.ini

If getCurDir$(documentName$) <> "" Then
fileP$ = getCurDir$(documentName$)
If FileExists(fileP$ & "/" & iniFile$) Then 'Verzeichnis-Separator ist "/" in URL-Notation!
'ini-Datei einlesen
inputFileHandle% = Freefile()
Open fileP$ & "/" & iniFile$ For Input As #inputFileHandle
Do While Not EOF(#inputFileHandle)
Line Input #inputFileHandle, recordLine$
'Parser
If InStr(pos%, recordLine$,"Template_Path=") <> 0 Then
tmp$ = Split(recordLine$, "=", 2)
templatePath$ = tmp$(1)
End If
If InStr(pos%, recordLine$,"Template_File=") <> 0 Then
tmp$ = Split(recordLine$, "=", 2)
templateFile$ = tmp$(1)
End If
If InStr(pos%, recordLine$,"Output_Path=") <> 0 Then
tmp$ = Split(recordLine$, "=", 2)
outputPath$ = tmp$(1)
End If
If InStr(pos%, recordLine$,"Output_File=") <> 0 Then
tmp$ = Split(recordLine$, "=", 2)
outputFile$ = tmp$(1)
End If
Loop
Close #inputFileHandle
Else
'ini-Datei nicht vorhanden
MsgBox("Datei """& iniFile$ & """ in Pfad """ & _
ConvertFromURL(fileP$) & """ nicht vorhanden!", 48, "Fehler")
End If
End If
End Function[/code]

der Code von Modul "[i]Modul1[/i]":
[code]Sub test
getFileLocations$("Repertoire.odb") 'getFileLocations$({Dateiname des Dokuments})
MsgBox("Template_Path=""" & templatePath$ & """" & chr$(13) & _
"Template_File=""" & templateFile$ & """" & chr$(13) & _
"Output_Path=""" & outputPath$ & """" & chr$(13) & _
"Output_File=""" & outputFile$ & """" & chr$(13))
End Sub[/code]

Warum sind in der MsgBox die Variablen [color=green]templateFile$[/color], [color=green]templateFile$[/color], [color=green]outputPath$[/color] und [color=green]outputFile$[/color] alle samt leer?

Ich hab' die Variablen im Modul "[i]getFileLocations[/i]" auch schon als Global deklariert. Aber das bringt auch nix.

Ich mach hier bestimmt was ganz elementares falsch
:? . Aber ich komm einfach nicht weiter, woran's liegt....

Greetz,
keyboard-billy