Domino 9 und frühere Versionen > Entwicklung

Import CSV-Datei: Fehler im Script

(1/2) > >>

emadowo:
Hallo Forum!

Ich nutze gerne dieses Forum, um mich in LotusScript zurechtzufinden. Darin habe ich auch die Hinweise zum Import von CSV-Dateien gefunden. Vielen Dank alle Forum-Betreiber, einfach gut!

Jetzt aber zur Sache: Schaut euch bitte untenstehendes Script an, es stammt aus der "IBM Sandbox". leicht abgeändert. Der Debugger meckert diese Zeilen an:
------------------------------------------------------------------------
FieldArray = "parseall(InputStr$,delimiter,cells)"
response% = CreateDocument("FieldArray")
------------------------------------------------------------------------
Weder zu "parseall" noch zu "CreateDocument" finde ich
Erläuterungen in den Online-Hilfen!?

Hier das komplette Script:
------------------------------------------------------------------------
Sub Click(Source As Button)
     Dim session As New notessession
     Dim db As notesdatabase
     Dim doc As notesdocument
     Dim fileNum As Integer, cells As Integer, k As Integer
     Dim fileName As String
     Dim InputStr As String
     Dim delimiter As String
     
     resp% = Messagebox ( "Wollen Sie wirklich alle Prüfungen aus  C:\jbfhome\gek529.CSV importieren", 36 , "Prüfungen importieren" )
     
   REM Yes
     If resp% = 6 Then     
          fileNum% = Freefile()
       ' Dateipfad
          fileName$ = "C:\jbfhome\gek529.CSV"
      ' Trennzeichen
          delimiter = ";"
      ' Anzahl der Zellen plus 1
          cells = 14 + 1
          k = 0
         
          Open fileName$ For Input As fileNum%
          Do While Not Eof(fileNum%)
         ' Zeile für Zeile einlesen
               Line Input #1,  InputStr$
               FieldArray = "parseall(InputStr$,delimiter,cells)"
               response% = CreateDocument("FieldArray")
               k = k + 1
         ' Info in der Fußzeile ausgeben
               Print Cstr(k) + " Prüfungen importiert."
          Loop
          Close fileNum%
     Else
          Exit Sub
     End If
End Sub
------------------------------------------------------------------------
Danke euch!

Semeaphoros:
Kannst Du auch nicht. paresall ist kein LS Befehl und CreateDocument muss eine selber geschriebene Subroutine sein. Sprich, Du hast offenbar das Script nicht vollständig. Was meckert denn der Debugger, dass er CreateDocument nicht finden kann? Und schau noch einmal dort, wo Du das Teil her hast, ob Du da noch mehr finden kannst.

koehlerbv:
Jo, das fehlen schlicht zwei Functions. Sprich, Du hast was abgekupfert, aber nicht verstanden. Das kann üble Folgen haben.

Bernhard

emadowo:
Meine Beichte: JA, ich habe abgekupfert und nicht verstanden.   :'(

Und nun???   ???


Die zweite Beichte: ich habe noch nicht viel Ahnung von Script. Habe bereits
zwei Bücher hinter mir (das eine "brachte mir nur die MsgBox bei und das zusammenzählen zweier Variablen", das ist das große grüne Buch, das zweite ist mir zu hoch). Weiß jemand Literatur oder Quellen, wo ich Script lernen könnte? Syntax-Bücher gut und recht, aber wie anwenden? Ich bräuchte Praxisbeispiele, Muster-DBs mit Erläuterungen oder einen Fernkurs.

Nochmals DANKE! Hatte nicht so schnell mit Antworten gerechnet!

koehlerbv:
Schau Dir das mal an:

ftp://ftp.lotus.com/pub/lotusweb/tlc/ls50ltlc.zip

Eine Notes-DB, die ich vielen schon erfolgreich empfohlen habe.

HTH,
Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite