OpenOffice.info

Ablaufplan:


* erzeuge ein neues Writer Dokument
* erzeuge einen TextCursor
* schreibe die Variablen in NeuWriter mittels TextCursor
* rufe SichernUnter-Dialog auf


Für jeden Schritt findest Du Beispiele (hier im Forum, bei meinen Makros).

Hallo,

die Aufgabe ist aber, das ich Inhalte diverser Variablen aneinander gereiht in die Txt Datei schreiben muss. Direkt aus dem Makro heraus...

Gruß
Matze

[quote="MHage"]Wie kann ich dem "Speichern unter" Dialog sagen, er soll Hallo Welt in eine Text Datei schreiben?[/quote]
Dem Dialog sagst Du das gar nicht.

Erstelle erst mal ein neues Writer-Dokument, schreibe Deine "mehrere 100" Variablen rein - und rufe dann das "Speichern unter"-Makro auf.


Hilft das weiter?

REM  *****  BASIC  *****
Sub SpeichernUnter()

   Doc = ThisComponent

   'Starting FilePicker
   sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
   oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
   With oFilePicker
      .Initialize ( sFilePickerArgs() )
      .SetDefaultName ("test")
      .AppendFilter( "Textdatei (.txt)", "*.txt" )     
      .SetCurrentFilter( "Textdatei (.txt)" )
      .SetValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION, 0, true)
   End With
   
    'Save Document
   If oFilePicker.execute() Then
      sFiles = oFilePicker.getFiles()
      sFileURL = sFiles(0)
      Dim oMediaDescriptor(0) as new com.sun.star.beans.PropertyValue
      oMediaDescriptor(0).Name = "FilterName"
      oMediaDescriptor(0).Value = oFilePicker.CurrentFilter 
      Doc.storeToURL( sFileURL, oMediaDescriptor() )
      MsgBox "Datei als " & oFilePicker.CurrentFilter & " gespeichert"
   Else
      MsgBox "Speicherung abgebrochen"
   End If
   
End Sub

1 = Freefile              				
Open Filename For Output As #1        
Print #1, "Hallo Welt"  
Close #1           

Hallo zusammen,

ich hoffe hier auf ein wenig Hilfe bei meinem Vorhaben. Ich komme nicht so richtig weiter...

Ich Sammel mit einem Makro verschiedene Werte aus einer Calc Tabelle, die ich in Variablen schreibe um sie zu "Formatieren". Das ist aber nicht so wichtig.
Diese Inhalte schreibe ich anschließend in eine in eine Textdatei.
Um den Speicherort flexibel wählen zu können, würde ich gern den "Speichern unter" Dialog verwenden.
Nach langem Suchen, habe ich einige Code-Fetzen gefunden, die mir aber nicht wirklich weiter helfen.

Das habe ich aus dem Netz gefischt und ein wenig abgewandelt:
[code]REM ***** BASIC *****
Sub SpeichernUnter()

Doc = ThisComponent

'Starting FilePicker
sFilePickerArgs = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
With oFilePicker
.Initialize ( sFilePickerArgs() )
.SetDefaultName ("test")
.AppendFilter( "Textdatei (.txt)", "*.txt" )
.SetCurrentFilter( "Textdatei (.txt)" )
.SetValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION, 0, true)
End With

'Save Document
If oFilePicker.execute() Then
sFiles = oFilePicker.getFiles()
sFileURL = sFiles(0)
Dim oMediaDescriptor(0) as new com.sun.star.beans.PropertyValue
oMediaDescriptor(0).Name = "FilterName"
oMediaDescriptor(0).Value = oFilePicker.CurrentFilter
Doc.storeToURL( sFileURL, oMediaDescriptor() )
MsgBox "Datei als " & oFilePicker.CurrentFilter & " gespeichert"
Else
MsgBox "Speicherung abgebrochen"
End If

End Sub[/code]

Vorher habe ich mit folgendem gespeichert:

[code]1 = Freefile
Open Filename For Output As #1
Print #1, "Hallo Welt"
Close #1
[/code]


Wie kann ich dem "Speichern unter" Dialog sagen, er soll Hallo Welt in eine Text Datei schreiben?
Dies ist von mir natürlich sehr vereinfacht dargestellt... Die zu speichernden Infomationen sind mehrere 100 Zeilen...

Gruß
Matze