OpenOffice.info

Alles funktioniert wie geschmiert :-)

Danke Euch Beiden für die Hilfe.

dofbi82

      Dim sFileNo As Integer
      Dim CurrentLine As String
      Dim sFilename As String
      'Dim sListe (0)
      Dim sListe ()
      
      sFilename = "c:\test.txt"            ' Define file name
      sFileNo = FreeFile               ' free file handle
      
      Open sFilename For Input As #sFileNo         ' Open file (reading mode)
      i=0
        Do While not eof(sFileNo)
         Line Input #sFileNo, CurrentLine
         redim preserve sListe(i)
         sVergleich = CurrentLine
         sListe(i) = svergleich
         i=i+1
        Loop
       Close #sFileNo                  ' Close file
 

                       'Erste ComboBox
         oMod=oDlg.getControl("Drucker")
         oMod = oCB.getModel()
         oCB.setDesignMode(true)   'Nur im Designmode kannst du malen
         oMod.setPropertyValue("Text",sListe(0))   ' Eigenschaft setzen
         oCB.setModel(oMod)     ' Box vom Modell ableiten
         oCB.setDesignMode(false)  ' Box wird wieder sichtbar
         
         'Zweite ComboBox
         'Hier soll Currentline den Wert der zweiten Zeile übernehmen
         oMod.setPropertyValue("Text",sListe(1))         
         'Dritte ComboBox
         'Hier soll Currentline den Wert der dritten Zeile übernehmen
         oMod.setPropertyValue("Text",sListe(2))

Hallo,
so z.B
[code] Dim sFileNo As Integer
Dim CurrentLine As String
Dim sFilename As String
'Dim sListe (0)
Dim sListe ()

sFilename = "c:\test.txt" ' Define file name
sFileNo = FreeFile ' free file handle

Open sFilename For Input As #sFileNo ' Open file (reading mode)
i=0
Do While not eof(sFileNo)
Line Input #sFileNo, CurrentLine
redim preserve sListe(i)
sVergleich = CurrentLine
sListe(i) = svergleich
i=i+1
Loop
Close #sFileNo ' Close file


'Erste ComboBox
oMod=oDlg.getControl("Drucker")
oMod = oCB.getModel()
oCB.setDesignMode(true) 'Nur im Designmode kannst du malen
oMod.setPropertyValue("Text",sListe(0)) ' Eigenschaft setzen
oCB.setModel(oMod) ' Box vom Modell ableiten
oCB.setDesignMode(false) ' Box wird wieder sichtbar

'Zweite ComboBox
'Hier soll Currentline den Wert der zweiten Zeile übernehmen
oMod.setPropertyValue("Text",sListe(1))
'Dritte ComboBox
'Hier soll Currentline den Wert der dritten Zeile übernehmen
oMod.setPropertyValue("Text",sListe(2))[/code]
Hiermit liest Du in der Schleife zunächst alle Zeilen deines Textfiles in die Variable sListe() ein und fragst sie später anhand des Indexes (0,1,2) wieder ab.

Gruß R

Edit: Wenn Du die drei Eigenschaften einem Dokument zuordnen willst, kannst du sie auch in den [url=http://de.openoffice.info/viewtopic.php?f=18&t=41407&hilit=DocumentProperties.UserdefinedProperties]Dokumenteigenschaften[/url] ablegen, bis auf Base, da könntest du sie in eine Tabelle abspeichern.

Suchbegriff: persistente Speicherung.

Geht über die OOo Registry - einfacher aber über eine Textdatei, die nach der Auswahl erstellt und geschrieben wird.

Willkommen im Forum.

Und... Deine Frage?


Wenn Du "Text hier" dauerhaft im Control haben willst: dann schreibe es in der IDE rein...

oMod=oDlg.getControl("Drucker")
oMod = oCB.getModel()
oMod.setPropertyValue("Text", "Text hier")   ' Eigenschaft setzen
oCB.setDesignMode(true)   'Nur im Designmode kannst du malen
oCB.setModel(oMod)     ' Box vom Modell ableiten
oCB.setDesignMode(false)  ' Box wird wieder sichtbar

Hallo Basic-Gemeinde!

Ich habe ein Dialogfenster mit Kombinationsfeldern über die IDE erstellt und diese per Makro manipuliert. Bis jetzt hat auch alles funktioniert bis auf die Tatsache, dass die ausgewählten Inhalten beim nächsten Makro-Aufruf nicht gespeichert werden können.

Folgender Code ändert zwar die Eigenschaft während der Laufzeit, jedoch nicht dauerhaft.
[code]
oMod=oDlg.getControl("Drucker")
oMod = oCB.getModel()
oMod.setPropertyValue("Text", "Text hier") ' Eigenschaft setzen
oCB.setDesignMode(true) 'Nur im Designmode kannst du malen
oCB.setModel(oMod) ' Box vom Modell ableiten
oCB.setDesignMode(false) ' Box wird wieder sichtbar[/code]

Vielen Dank im Voraus.

dofbi82