Hi Leute,
habe mir mal Codes angeschaut und mit nem Tipp von Thomas Schulte (danke nochmals
) einfach mal rumprobiert.
Angemerkt sei, dass LS derzeit bei mir "noch" nicht richtig angekommen ist.
Der Grund-Kurs schafft hoffentlich Abhilfe.
Dennoch hoffe ich auf Hilfe, wo ich was komplett falsch codiert hab.
Es soll eine csv-Datei mit dem Namen test1.csv vom Laufwerk C: importiert werden. Die Datei enthält beliebig viele Infos über Nutzer.
Die Felder im csv sowie in der Maske "Main" lauten: sn, gn und l
Für jede Zeile soll ein neues Dok angelegt werden.
Hier der Code:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim fileNum As Integer, cells As Integer, k As Long
Dim fileName As String
Dim InputStr As String, delimiter As String
Dim FieldArray As Variant
If resp% = 6 Then
fileNum% = Freefile()
fileName$ = "C:\test1.csv"
delimiter = ","
'Hier habe ich noch keine Ahnung
cells = 14 + 1
k = 0
Open fileName$ For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #1, InputStr$
Print Cstr(k) + " Alle Nutzer wurden angelegt."
Loop
Close fileNum%
Else
Exit Sub
End If
End Sub
Function CreateDocument(FieldArray As Variant) As Integer
Dim session As New notessession
Dim db As notesdatabase
Set db = session.currentdatabase
Dim doc As New notesdocument(db)
doc.Form = "Main"
doc.sn = FieldArray(1)
doc.gn = FieldArray(2)
doc.l = FieldArray(3)
Call doc.save(1,0)
End Function
