Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: burkert am 24.11.09 - 13:40:54

Titel: Feldwerte in Text File ausgeben
Beitrag von: burkert am 24.11.09 - 13:40:54

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

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: ascabg am 24.11.09 - 13:44:50

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

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: burkert am 24.11.09 - 13:54:15

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)

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: Thomas Schulte am 24.11.09 - 13:55:53

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.

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: ascabg am 24.11.09 - 13:57:51

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

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: burkert am 24.11.09 - 14:23:40

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.

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: ascabg am 24.11.09 - 14:29:00

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

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: koehlerbv am 24.11.09 - 15:05:05

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

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: burkert am 25.11.09 - 10:39:48

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

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: koehlerbv am 25.11.09 - 19:35:07

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

Bernhard

Titel: Re: Feldwerte in Text File ausgeben
Beitrag von: burkert am 26.11.09 - 08:13:53

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