Domino 9 und frühere Versionen > Entwicklung

periodischer Export in "structured text", wenn bestimmtes Flag gesetzt

<< < (2/2)

koehlerbv:
Bedeutend einfacher wäre es aber, wenn man das CSV-File direkt aus Notes heraus erzeugt.
Folgender Beispielcode aus der Designerhelp beschreibt das ganze simple Verfahren - lediglich ums ErrorHandling muß man sich noch etwas mehr kümmern.

--- Code: ---Example: Write # statement  

Dim fileNum As Integer, empNumber As Integer, I As Integer
Dim fileName As String, empName As String
Dim empLocation As Variant
Dim empSalary As Currency

fileNum% = FreeFile()
fileName$ = "data.txt"

' Write out some employee data.

Open fileName$ For Output As fileNum%
Write #fileNum%, "Joe Smith", 123, "1 Rogers Street", _
    25000.99
Write #fileNum%, "Jane Doe", 456, "Two Cambridge Center", _
    98525.66
Write #fileNum%, "Jack Jones", 789, "Fourth Floor", 0
Close fileNum%

' Read it all back and print it.
Open fileName$ For Input As fileNum%

For I% = 1 To 3
   Input #fileNum%, empName$, empNumber%, empLocation, _
      empSalary@
   Print empName$, empNumber%, empLocation, empSalary@
Next I%

Close fileNum%
' Output:
' LotusScript prints out the contents of the file
' C:\data.txt in groups of four values each. Each group
' consists of a String, an Integer, a Variant, and
' a Currency value, in that order.
--- Ende Code ---

Bernhard

my head:
fehlen nur zwei funktionen "designbuild" und "designdelete"...

ist aber ja nicht so wichtig... wichtig ist, wie du excel öffnen und schließen kannst und wie du werte in die zellen bekommst...

my head:
für deinen zweck ist das script von bernhard, wahrscheinl. bedeutend einfacher...

koehlerbv:
Das Script ist nicht von mir, sondern kullert für alle lesbar in der DesignerHelp 'rum ;-)
Und es ist definitiv einfacher, da es sofort ein CSV-File erzeugt ;-)

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete