Feldwerte in Text File ausgeben

[burkert]

Hallo,
ich möchte aus einer aktiven Maske alle Feldnamen und deren Werte in ein Textfile exportieren.(über eine Aktion)
Das Ergebnis sollte ungefähr so aussehen:
feld1 = wert1
feld2 = wert2
feld3 = wert3
....
....

und so weiter.
Kann mir hierzu jemand weiterhelfen?


Danke

[ascabg]

Hallo,

Schleife ueber alle Felder der Maske (des Dokumentes), Werte auslesen und in die Datei schreiben.

Hier noch ein kleiner Ansatz.

Code

Set doc = ...

Forall fld in doc.Items
  Write #1, fld.Name & "=" & fld.Text
Next

Andreas

[burkert]

Vielen Dank!
noch ganz kurz für nicht Entwickler.
Mach ich das über einen Agenten (lotusscript)?
Oder über eine Aktion?
Danke für Verständnis(Unwissenheit)

[Thomas Schulte]

Und einen Select Case für den Feldtyp mit einbauen. Sonst gibt es Probleme mit Richtext und DateRange Feldern was die Darstellung angeht. Außerdem solltest du noch mit Mehrfachwerten in den verschiedenen Feldtypen rechnen.
Script in Aktion oder Agent. Ist ziemlich egal.

[ascabg]

Auch bei einer Aktion kannst Du LotusScript-Code hinterlegen.
Du Kannst auch ebenso einen Agenten aufrufen, der den Code enthaelt.

Und so hast Du noch diverse andere Moeglichkeiten.


Andreas

[burkert]

Danke für die ganzen infos.
Wie kann ich jetzt aber in dem Script definieren, das er die Maske auslese, welche
ich geöffnet habe und vorallem den Pfad, wohin er die Werte exportieren soll.

[ascabg]

Aktuelles Dokument holen (etwas ausfuehrlicher)

Code

dim uiws as New NotesUIWorkspace
dim uidoc as NotesUIDOcument
dim doc as NotesDocument

set uidoc = uiws.CurrentDocument
set doc = uidoc.Document

Fuer den Pfad
==> siehe in der Designer-Hilfe unter "Opening files" bzw. "Open statement"

Auch die Klasse "NotesStream" ist hierfuer einen Blick wert.


Andreas

[koehlerbv]

Prinzipiell tut das aber doch schon ein simpler Export im Format "Structured Text" ... Und zum "schönen Ansehen" gibt es zum Beispiel den DocViewer von MayFlower Software.

Bernhard

[burkert]

Hallo Bernhard,
da hast Du natürlich recht. Sieht genauso aus wie ich das will.
Kann ich diese ganze Prozedur jetzt auch über eine Aktion (Button) auslösen?

Danke

[koehlerbv]

Theoretisch ja (mit dem FileExport-Command), praktisch nein (siehe DesignerHelp).

Bernhard

[burkert]

hab das jetzt mit @Command([FileExport];"Structured Text";"C:\\test.txt") mal getestet!
Bekomme aber immer die Fehlermeldung "Import/Export inst nicht konfiguriert".
Habe in der Notes.ini geprüft, ob die notwendigen Parameter vorhanden sind.

Die sehen so aus:
VIEWIMP1=Lotus 1-2-3,0,_IWKSV,,.123,.WK1,.WK3,.WK4,.WKS,.WR1,.WRK,,4,
VIEWIMP2=Structured Text,0,_ISTR,,.CGN,.LTR,.STR,._UNKNOWN,,,1,
VIEWIMP3=Tabular Text,0,_ITAB,,.PRN,.RPT,.TAB,.TXT,.TSV,,1,
VIEWIMP4=vCard,0,_IVCRD,,.VCF,,1,
VIEWIMP5=Calendar File (.ics),0,_IICAL,,.ICS,.VCS,,1,
VIEWIMP6=Comma Separated Value,0,_ICSV,,.CSV,,1,
VIEWEXP1=Comma Separated Value,0,_XCSV,,.CSV,,1,
VIEWEXP2=Lotus 1-2-3,0,_XWKS,,.123,.WK1,.WK3,.WK4,.WKS,.WR1,.WRK,,4,
VIEWEXP3=Structured Text,0,_XSTR,,.CGN,.LTR,.STR,._UNKNOWN,,1,
VIEWEXP4=Tabular Text,1,_XTAB,,.CGN,.LTR,.RPT,.TAB,.TXT,,1,
VIEWEXP5=vCard,0,_XVCRD3,,.VCF,,1,
VIEWEXP6=Calendar File (.ics),0,_XICAL,,.ICS,,1,
EDITIMP1=ASCII Text,0,_ITEXT,,.C,.H,.PRN,.RIP,.TXT,,1,
EDITIMP2=Binary with Text,0,_ISTRNGS,,.*,,1,
EDITIMP3=BMP Image,0,_IBMP,,.BMP,,18,
EDITIMP4=CGM Image,0,_IFL,,.CGM,.GMF,,8,
EDITIMP5=GIF Image,0,_IGIF,,.GIF,,18,
EDITIMP6=HTML File,0,_IHTML,,.HTM,.HTML,,1,
EDITIMP7=JPEG Image,0,_IJPEG,,.JPG,.JPEG,,18,
EDITIMP8=Lotus 1-2-3,0,_IW4W,_IWKSE,.123,.WK1,.WK3,.WK4,.WKS,.WR1,.WRK,,4,
EDITIMP9=Lotus PIC,0,_IPIC,,.PIC,,8,
EDITIMP10=Lotus Word Pro,0,_IW4W,,.LWP,,2,
EDITIMP11=Microsoft Excel,0,_IW4W,,.XLS,,4,
EDITIMP12=Microsoft RTF,0,_IRTF,_IW4W,.RTF,,2,
EDITIMP13=Microsoft Word,0,_IW4W,,.DOC,,2,
EDITIMP14=Network Portable Graphics,0,_IW4W,,.PNG,,18,
EDITIMP15=PCX Image,0,_IPCX,,.PCX,,18,
EDITIMP16=TIFF 5.0 Image,0,_ITIFF,,.TIF,,18,
EDITIMP17=WordPerfect,0,_IW4W,,.WPD,.WPT,,2,
EDITIMP18=Unsupported File as Text,0,_ITEXT,,.*,._UNKNOWN,,1,
EDITIMP19=Symphony Document (.ODT),0,_IW4W,,.ODT,,2,
EDITIMP20=Symphony Spreadsheet (.ODS),0,_IW4W,,.ODS,,2,
EDITIMP21=Symphony Presentation (.ODP),0,_IW4W,,.ODP,,2,
EDITIMP22=Microsoft Word 2007,0,_IW4W,,.DOCX,,2,
EDITIMP23=Microsoft Excel 2007,0,_IW4W,,.XLSX,,2,
EDITEXP1=ASCII Text,2,_XTEXT,,.C,.H,.PRN,.RIP,.TXT,._UNKNOWN,,1,
EDITEXP2=CGM Image,2,_XCGM,,.CGM,.GMF,,8,
EDITEXP3=Microsoft RTF,2,_XRTF,,.DOC,.RTF,,4,
EDITEXP4=TIFF 5.0 Image,2,_XTIFF,,.TIF,,18,
EDITEXP5=vCard,0,_XVCRD3,,.VCF,,1,

Sollte doch soweit in Ordnung sein?
Was kann noch ein Problem sein?

Danke