Werte aus Feldern in txt-Datei schreiben

[maxwell]

Hi,

ist es möglich Feldwerte aus einem StarOffice XML-Formular auszulesen und in eine externe TextDatei zu schreiben?

Ich habe bisher noch keine wirklichen Erfahrungen mit der Makro-Programmierung und weiss nicht so genau wie ich das Problem angehen soll...

Besteht die Möglichkeit dies zu realisieren und wenn ja wie?

Vielen Dank im Voraus

maxwell

[zap]

Hi,

meinst du mit XML-Formular ein XForms-Formular (also OOo 2)?
Mit Werten meinst du wahrscheinlich das, was der Benutzer eingetragen hat?
In welchem Format moechtest du die Werte denn haben?
z.B.
- ein Formular pro Datei
- Formulardaten an bestehende Datei anhängen
- csv-Format

Zap

[thinklink]

Wenn ich Dich richtig verstanden habe:

Auslesen der Werte funktioniert so:

...
oAktuellesDocument = StarDesktop.CurrentComponent
Xray.Xray oAktuellesDocument
oForms = oAktuellesDocument.Drawpage.Forms

oForm = oForms.getByIndex(0)

If oForm.HasByName("NAME DES FORMULARELEMENTES") Then
oCtl = oForm.GetByName("NAME DES FORMULARELEMENTES")
sTag = oCtl.getCurrentValue()
MsgBox sTag
...

Nun in eine Datei schreiben:

...
Open "c:\meinOrdner\test.txt" For Append As #1
Write #1, "sTag"
Close #1
...