Checkbox aus CSV Datei importieren

[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

[koehlerbv]

Und was machst Du, wenn das Importfile noch ein Keyword oder zwei liefert?

[Michael Kl]

Das ist ausgeschlossen, da es nur die 3 Kategorien gibt.

[ERR]

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

Hallo Michael,

sinnvoller wäre es trotzdem, wie in deinen ersten Versuchen, die Werte mit einem Komma getrennt zu verwenden. Dann hättest du es auch mit der folgenden Zeile hinbekommen:

Code

document.Kategorie = Split(Fulltrim (Strtoken(strZeile, ";",17)), ",")

Das Split mit dem Parameter "," teilt den String wieder in ein Array auf, das zur Feldzuweisung verwendet werden kann.

Als Entwickler tut es mir ein bisschen weh, wenn andere Entwickler sich mit der in dem Moment "simplen" Lösung zufrieden geben, denn an anderen Stellen funktioniert diese Lösung dann wieder nicht mehr (wie z.B. von Bernhard vorgetragen) und dann muss wieder eine weitere "simple" Lösung gebastelt werden, die eigentlich nicht nötig wäre... Der "einfache" Weg ist nicht immer der Beste.

MFG
ERR

[Michael Kl]

Danke ERR,

für das nächste Mal werde ich diese Zeile anwenden