Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Alperen15 am 18.09.12 - 09:22:24

Titel: Spaltenüberschriften in CSV Datei mit exportieren
Beitrag von: Alperen15 am 18.09.12 - 09:22:24

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.

Titel: Re: Spaltenüberschriften in CSV Datei mit exportieren
Beitrag von: ascabg am 18.09.12 - 09:28:50

Hallo,

Schau Dir doch mal die Klasse NotesViewColumn an.


Andreas

Titel: Re: Spaltenüberschriften in CSV Datei mit exportieren
Beitrag von: Alperen15 am 18.09.12 - 11:36:31

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?

Titel: Re: Spaltenüberschriften in CSV Datei mit exportieren
Beitrag von: ascabg am 18.09.12 - 11:40:34

Die Klasse hat doch eine Property mit dem Namen Title.


Andreas

Titel: Re: Spaltenüberschriften in CSV Datei mit exportieren
Beitrag von: klaussal am 18.09.12 - 11:43:55

Code

To get: title$ = notesViewColumn.Title