Spaltenüberschriften in CSV Datei mit exportieren

[Alperen15]

Hallo alle zusammen,

ich komme nicht weiter und bräuchte eure unterstützung
ich habe einen Agenten der greift auf eine Ansicht in der NotesDB zu und exportiert die Ansicht in ein definiertes Verzeichnis als csv Datei. Gleichzeitig wird eine Mail an einen User gesendet mit den Doclinks.

1.)Wie bekomme ich die Spaltenüberschriften auch in die CSV Datei?
2.) Es gibt ein fdDescription Feld in der CSV Datei wird nur die erste Zeile angezeigt. Obwohl es mehrere Zeile lang sein kann. Es ist ein reines Textfeld kein Richtext Feld

Sub Initialize
   Dim session As New NotesSession   
   Dim db As NotesDatabase
   Dim oView As NotesView
   Dim oHeute As NotesDateTime
   Dim vec As NotesViewEntryCollection
   Dim entry As NotesViewEntry
   Dim oDoc As NotesDocument, oSendDoc As NotesDocument, oProfilDoc As NotesDocument   
   Dim cSendTo As String, cSubject As String, cAusgabe As String
   Dim FileHandle As Integer
   Dim FileName As String
   Dim cDate As String, cDocID As String
   Dim i As Integer
   Dim sTemp As String
   
   
   On Error Goto ErrorSend  
   
   Set db = session.Currentdatabase
   Set oSendDoc = New NotesDocument(db)      
   Set oProfilDoc = db.GetProfileDocument("PDAllgemein")
   Set oHeute = New NotesDateTime(Now)                     ' *** Akt. Datum   
   cDate = (oHeute.DateOnly)   
   cDate = Cstr(Year(oHeute.DateOnly) * 10000 + Month(oHeute.DateOnly) * 100 + Day(oHeute.DateOnly))
   Set oView = db.GetView("vwReport")                                    
   Set vec = oView.AllEntries
   Set oDoc = oView.GetFirstDocument   
   Set oSendDoc = New NotesDocument(db)   
   
   cSendTo = "Peter Malsam/Firma/de"
   cSubject = "Access Management Report"
   
   FileName = "E:\TestKUR\Report_Access_Request" + cDate + ".csv"                      ' *** Definition der Exportfile - Pfad und Name
   FileHandle = Freefile()                                                                           ' *** Erstelle eine leere file
   If Not (oDoc Is Nothing) Then
      Open FileName For Output As FileHandle                                        ' *** definiere als Output
   End If
   
   While Not (oDoc Is Nothing)
      
      Set entry = vec.GetEntry(oDoc)
      sTemp = ""
      i = 0
      Forall vwCol In oView.Columns
         If Not vwCol.IsHidden Then
            sTemp = sTemp + """" +Cstr(entry.ColumnValues(i)) + """" + ";"
         End If
         i = i+1
      End Forall
      
      sTemp = Left(sTemp, Len(sTemp)-1)
      Print #FileHandle, sTemp
      
      Call oDoc.ReplaceItemValue("fdUniversalid", cDocID)
      Call oDoc.save(False,True)
      Set oDoc = oView.GetNextDocument(oDoc)
      
NextDoc:
   Wend
   
   Close FileHandle                          ' *** csv - File abschließen
   'Call SendMail
   
   Goto AllesEnde   
   
ErrorSend:
   Resume Next
AllesEnde:
   Call SendMail
   
End Sub

Danke im voraus für eure Tipps.

[ascabg]

Hallo,

Schau Dir doch mal die Klasse NotesViewColumn an.


Andreas

[Alperen15]

Hallo Andreas,

ich habe es mir angeschaut
Set entry = vec.GetEntry(oDoc)
      sTemp = ""
      i = 0
      Forall vwCol In oView.Columns
         If Not vwCol.IsHidden Then
            sTemp = sTemp + """" +Cstr(entry.ColumnValues(i)) + """" + ";"
         End If
         i = i+1
      End Forall
i ist auf 0 gleichgesetzt, 0 bedeutet die erste Zeile und wie bekomme ich die Spaltennamen von der Ansicht?

[ascabg]

Die Klasse hat doch eine Property mit dem Namen Title.


Andreas

[klaussal]

Code

To get: title$ = notesViewColumn.Title