Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: William Wallace am 29.11.05 - 14:30:42
-
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)
-
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
-
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)
-
@Thomas,
du hast natürlich recht, Counter beginnen bei 0 und nicht bei 1. Korrekt ist natürlich >6 und nicht >7.
Gruss
Willi
-
Hallo und Danke,
das war einfach zu einfach - der Urlaub war wohl zu lange ;)
Gruß,
William