Domino 9 und frühere Versionen > ND8: Entwicklung

Checkbox aus CSV Datei importieren

(1/2) > >>

Michael Kl:
Einen wunderschönen Freitag,

passend zum Wochenausklang habe ich für euch noch eine vielleicht leichte Frage.
Ich habe eine neue Datenbank, die ich mit Daten aus einer CSV Datei füllen möchte.
Soweit so gut, eigentlich klappt alles... und jetzt das große ABER
Ich habe eine Checkbox die für die Kategorisierung der Daten zuständig ist.

Die Möglichkeiten der Checkbox sind die folgenden:
"Armaturen" "Kunststoff" und "Stahl / Edelstahl"

Solange die Kategorien nur einzeln sind werden sie beim Import sauber übernommen und auch als gewählte Kategorie angezeigt.

Mein Problem ist, dass ich nicht weiß, wie ich mehrere Kategorien übernehmen kann.
Ich habe es versucht indem ich die Kategorien auf verschiedenster Art angereiht habe..
Armaturen;Kunststoff | Armaturen,Kunststoff | Armaturen; Kunstoff und und und...

Könnt ihr mir da vielleicht weiterhelfen?

Anbei noch meinen ImportCode, der über einen Agenten gesteuert ist.

Besten Dank im Voraus! ;)


Sub Initialize
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim document As  NotesDocument
   Set db = session.CurrentDatabase
   Set document = db.CreateDocument
   Set profiledoc = db.GetProfileDocument( "Konfig" )
   Dim Firmen() As String
   Dim fggroesse As Integer
   
   
   Dim bpl As String
   Dim fg As Variant
   Dim pfad As Variant
   
   
   
   
   impfile = Inputbox("Eingabe","Dateiimport","c:\Import\IndustrieProjekte.csv")
      'impfile = pfad(0)+"f"+Firmen(i)+".csv"
   intNum = Freefile()
   
   Open impfile For Input As intNum
   
   Do While Not Eof(intNum)
      Set document = db.CreateDocument
      document.form="IProjekt"
      Line Input #intNum, strZeile
      
      document.Kunde_0 = Fulltrim (Strtoken(strZeile, ";",1))
      document.Kundennummer_0 = Fulltrim(Strtoken(strZeile, ";",2))
      document.Status = Fulltrim (Strtoken(strZeile, ";",3))
      document.Ansprechpartner_0 = Fulltrim (Strtoken(strZeile, ";",4))
      document.Ansprechpartnertel_0 = Fulltrim (Strtoken(strZeile, ";",5))
      document.Planer = Fulltrim (Strtoken(strZeile, ";",6))
      document.Planertel = Fulltrim (Strtoken(strZeile, ";",7))
      document.Angebotsnummer = Fulltrim (Strtoken(strZeile, ";",8))
      document.Angebotsdatum = Fulltrim (Strtoken(strZeile, ";",9))
      document.Projektnummer = Fulltrim (Strtoken(strZeile, ";",10))
      document.Projektbezeichnung = Fulltrim (Strtoken(strZeile, ";",11))
      document.Wiedervorlage = Fulltrim (Strtoken(strZeile, ";",12))
      document.Vam_0 = Fulltrim (Strtoken(strZeile, ";",13))
      document.VIM_0 = Fulltrim (Strtoken(strZeile, ";",14))
      document.Wert = Fulltrim (Strtoken(strZeile, ";",15))
      document.NIntern = Fulltrim (Strtoken(strZeile, ";",16))
      document.Kategorie = Fulltrim (Strtoken(strZeile, ";",17))
      Call document.Save(True,True)
      
   Loop
   
   
   
End Sub

koehlerbv:
Du musst im Fall mehrerer Keywords ein entsprechend dimensioniertes Array bilden und dieses LS-Array dem Item Kategorie zuweisen.

Bernhard

Michael Kl:
Danke Bernhard,

nun informiere ich mich mal über dimensionierte Arrays :)
Hab ich leider noch nie genutzt.

koehlerbv:
Dynamic Arrays in der DesignerHelp, Dim und Redim als weitere Begriffe.

Michael Kl:
Vielen Dank ;)
Ich habe mich informiert und bin zu der folgenden Lösung gekommen...

      Dim kategorie(2) As String
      kategorie(0) = Fulltrim (Strtoken(strZeile, ";",17))
      kategorie(1) = Fulltrim (Strtoken(strZeile, ";",18))
      kategorie(2) = Fulltrim (Strtoken(strZeile, ";",19))
      
      document.Kategorie = kategorie

Damit wird die Checkbox richtig gefüllt.

Ich bedanke mich und wünsche ein schönes Wochenende ;)

Navigation

[0] Themen-Index

[#] Nächste Seite