hello
i have a script in lotusscript.
with this script i can import a comma separated file into my database.
now i wonder if i can make this script dynamic so that if the comma separated file changes i don’t have to change my script.
this is the script i have:
Sub Initialize
Dim fileNum As Integer
Dim fname As String
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim item As NotesItem
Dim session As New NotesSession
Set db = session.CurrentDatabase
path = Inputbox$("Voer het pad in","Voer het pad in","C:\Documents and Settings\wtaal\Bureaublad\lotusscript\Import\m301103a.csv")
fname = path
fileNum% = Freefile()
Open fname For Input As fileNum%
While Not Eof (filenum)
Input #fileNum%, Column1, Column2, Column3, Column4, Column5, Column6, Column7, Column8, Column9, Column10, Column11, Column12, Column13, Column14, Column15, Column16, Column17, Column18, Column19, Column20, Column21, Column22, Column23, Column24, Column25, Column26, Column27, Column28, Column29, Column30, Column31, Column32
Set doc = db.createDocument
Set item = doc.ReplaceItemValue( "Form", "formDeelnemer" )
Set item = doc.ReplaceItemValue("fieldDeelnrIDnr", Column17)
Set item = doc.ReplaceItemValue("fieldDeelnrRoepnaam", Column18)
Set item = doc.ReplaceItemValue("fieldDeelnrVoornaam", Column19)
Set item = doc.ReplaceItemValue("fieldDeelnrTussenvoegsel", Column20)
Set item = doc.ReplaceItemValue("fieldDeelnrAchternaam", Column21)
Set item = doc.ReplaceItemValue("fieldDeelnrGeslacht", Column22)
Set item = doc.ReplaceItemValue("fieldDeelnrGeboorteDatum", Column23)
Set item = doc.ReplaceItemValue("fieldDeelnrAdres", Column24)
Set item = doc.ReplaceItemValue("fieldDeelnrHuisnr", Column25)
Set item = doc.ReplaceItemValue("fieldDeelnrToevoegingAdres", Column26)
Set item = doc.ReplaceItemValue("fieldDeelnrPostcode", Column27)
Set item = doc.ReplaceItemValue("fieldDeelnrWoonplaats", Column28)
Set item = doc.ReplaceItemValue("fieldDeelnrTelefoonnr", Column29)
Set item = doc.ReplaceItemValue("fieldDeelnrKlas", Column30)
Set item = doc.ReplaceItemValue("fieldDeelnrStatusSemester", "1")
Call doc.Save (True,False)
Wend
Close fileNum%
End Sub
thanks
wolter taal