@ata:
Also, so sieht jetzt der code aus:
--------------------------------------------------------------------
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim dsp As gtDataRec2
Dim vArray As Variant
Dim sZeile As String
Dim vtxt As Variant
Dim Item As Notesitem
Dim i As Integer
Set gUIDoc = workspace.CurrentDocument
Set gDoc = gUIDoc.document
Set gvRTitem = gDoc.GetFirstItem( "ObjCont" )
Set Item = gDoc.GetFirstItem( "dspProjekte_3_1_2" )
gsUnid = gDoc.UniversalID
' Pfade werden zugewiesen
gsWorkDir="c:\"
gsFileName1 = "projekte1.txt" 'Für den Export nach Word
gsFileName2 = "projekte2.txt" 'Für die Berechnug/Anzeige in dem Dokument
vtxt=gDoc.GetItemValue( "dspProjekte_3_1_2" )
giFileNum1% = Freefile()
Open gsWorkDir+gsFileName1 For Output As giFileNum1%
giFileNum2% = Freefile()
Open gsWorkDir+gsFileName2 For Output As giFileNum2%
Forall a In vtxt
sZeile=a
vArray = Evaluate({@Explode( sZeile ; "|" )})
For i = 0 To Ubound(vArray)
If i = 0 Then
dsp.SDat = vArray(0)
Elseif i = 1 Then
dsp.EDat = vArray(1)
Elseif i = 2 Then
dsp.Firma = vArray(2)
Elseif i = 3 Then
dsp.Branche = vArray(3)
Elseif i = 4 Then
dsp.Funktion = vArray(4)
Elseif i = 5 Then
dsp.Task = vArray(5)
End If
Next
gsWritestr=dsp.SDat+"|"+dsp.EDat+"|"+dsp.Firma+"|"+dsp.Branche+"|"+dsp.Funktion+"|"+dsp.Task+"$"
Print #giFileNum1% ,gsWritestr
Write #giFileNum2% _ ,dsp.SDat,dsp.EDat,dsp.Firma,dsp.Branche,dsp.Funktion,dsp.Task
End Forall
Close giFileNum1%
Close giFileNum2%
dspMask
Attach
Call ReOpen(gDoc)
End Sub
-----------------------------------------------------------------------------------
allerdings wird in vArray(0) nichts eingelesen.
Wenn ich das richtig verstanden habe, dann müßte,
'vArray = Evaluate({@Explode( sZeile ; "|" )})',
doch die Zeile innerhalb von vArray aufbröseln.
@Bernhard:
Der Code enstpricht doch ungefähr deinem Vorschlag, nur das mit der Plausibilitäts-Prüfung habe ich noch nicht ganz geschnallt.
Gruß
Hitcher
