Import von csv ab der der 7. Zeile

[William Wallace]

Hallo,

ich möchte gerne eine CSV-Datei in Notes importieren. Jedoch sollen beim Import erst die Werte ab der siebten Zeile gezogen werden. Da ich die CSV-Datei nicht jedesmal editieren möchte - geht das per Script und wenn ja wie ?

Hier mein Agent (relevanter Teil):


   ^{Dim pathName As String, fileName As String
   pathName$ = "C:\Telekom\Einzelnachweise\Mobil\Neu\*.*"
   path$ = "C:\Telekom\Einzelnachweise\Mobil\Neu\"
   fileName$ = Dir$(pathName$, 0)
   
   Do While fileName$ <> ""
      count = 0
      fileName$ = path$+fileName$
      Open fileName$ For Input As #1
      Set doc = db.CreateDocument
      doc.Form="Einzelnachweise\Mobil3"
      Call doc.ComputeWithForm(False,False)
      Call doc.Save(True,False)
      While Not Eof(1)
         Line Input #1,a
         For z=1 To Len(a)
            If Mid(a,z,1)=|"| Then
               a=Left(a,z-1)+" "+Mid(a,z+1)
            End If
         Next
         f=|@Explode(@ReplaceSubstring("|+a+|";"   ";" ");";")|
         v=Evaluate(f)}

[Wilhelm]

Hi,

bau doch einfach einen zweiten Zähler ein, den Du bei jedem Durchlauf um 1 erhöhst und dann deine weitere Verarbeitung erst starten läßt wenn Zähler > 7 ist.

Gruß

Willi

[Thomas Schulte]

Indem du einfach einen Counter mitlaufen lässt der erst bei der siebten Zeile die Verarbeitung zulässt.
While Not Eof(1)
         Line Input #1,a
if Counter2 >6 then
         For z=1 To Len(a)

[Wilhelm]

@Thomas,

du hast natürlich recht, Counter beginnen bei 0 und nicht bei 1. Korrekt ist natürlich >6 und nicht >7.


Gruss

Willi

[William Wallace]

Hallo und Danke,

das war einfach zu einfach  - der Urlaub war wohl zu lange

Gruß,
William