Moin Leute,
ich habe einen Agent geschriben, der Kundendaten(~16.000 Datensätze) aus einer CSV-Datei importieren soll. der Seperator ist ein Semikolon. Leider ist dieser Import einfach zu langsam. Später soll dieser Import nicht nur importieren sondern auch den bestehenden Datenbestand abgleichen. Weiß einer von euch, wie ich das alles beschleunigen kann?
--------------------CODE----------------------------
Code
Dim ws As New NotesUIWorkspace
Dim path As Variant
Dim num(1 To 12) As String
Dim s As New notesSession
Dim tre As String
Dim zäh As Integer
Dim wer(12) As String
Dim zwe As String
Dim zei As String
Dim doc As NotesDocument
Dim datNR As Integer
Dim db As NotesDatabase
Dim pos As Integer
Dim item As NotesItem
wer(1) = "ef_nr"
wer(2) = "ef_name"
wer(3) = "ku_nr"
wer(4) = "ku_name"
wer(5) = "obligo"
wer(6) = "inanspruchnahme"
wer(7) = "sicherheiten"
wer(8) = "freie_sicherheiten"
wer(9) = "wirtsch_sicherheiten"
wer(10) = "gueltig_ef"
wer(11) = "mber_ef"
wer(12) = "oe_ef"
zäh = 1
tre = ";"
Set db = s.CurrentDatabase
datNr = Freefile()
path = ws.OpenFileDialog(False, "Bitte wählen Sie die CSV-Datei", "KredInfo|*.csv", , )
If Not( Isempty(path)) Then
Open path(0) For Input As #datNr
Seek datNr, 1
Do While Not Eof(datNr)
Line Input #datNr, zei
Set doc = db.createDocument
doc.form = "main"
If doc.ComputeWithForm(False,False) Then
While Instr(zei,tre) > 0
pos = Instr(zei,tre)
zwe = Left(zei,(pos - 1))
zei = Mid(zei,(pos + 1))
Set item = doc.ReplaceItemValue(wer(zäh),zwe)
zäh = zäh + 1
Wend
Set item = doc.ReplaceItemValue(wer(12),zei)
Call doc.save(False,False)
zäh = 1
End If
Yield
Loop
End If
Alles anzeigen