Hallo,
es ist mal wieder Freitag und ich seh den Wald vor Bäumen nicht und bräuchte mal wieder einen kleinen Schubser. Ich importiere einen Ascii-File der die werte mit Tabulatoren getrennt enthält. Soweit kein Problem. Jetzt sind aber manche Werte in diesem Ascii-File mit Hochkommas umgeben und manche nicht. Die Hochkommas möchte ich natürlich nicht in meinen Notesfelder drin stehen haben, sondern nur den reinen Text. Ich bring das irgendwie nicht hin.
Anbei das Script, das schon dabei aussteigt, wenn ich den Beginner auslesen will.
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As notesDatabase
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim view As NotesView
Dim thr_rec(1 To 11)
Set db = session.currentdatabase
Set docDummy=New NotesDocument(db)
fileNum% = Freefile()
counter% = 0
filename= ws.OpenFileDialog(False, "Bitte Importdatei auswählen !", "", "c:")
If filename(0) ="" Then
Msgbox "Dateiname nicht angeben !"
Exit Sub
End If
Open filename(0) For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #fileNum%, txt$
counter% = counter% + 1
Loop
Seek fileNum%, 1
For countRec% = 1 To counter%-1
spos=1
epos=1
string2 = Chr$(34)
string1 = Chr$(9)
i = 1
j = 11
Line Input #fileNum%, txt$
epos =Instr ( spos, txt$, string1)
Do
length = epos - spos
thr_rec(i)=Trim(Mid (txt$, spos,length))
beginner = Evaluate( | @Left("| + thr_rec(i) + |";1)|)
'hier versuch ich die Hochkommas anhand der Position gar nicht erst in den String zu lesen
'Aber es kommt der Fehler: Operation failed, wenn es mit einem Hochkomma beginnt.
If beginner(0) = string2 Then
thr_rec(i)=Trim(Mid (txt$, spos+1,length-1))
End If
spos = epos + 1
epos =Instr ( spos, txt$, string1)
i = i+1
Loop Until epos = 0
Set doc = New NotesDocument(db)
doc.Form="Videos"
doc.AN = thr_rec(1)
doc.NA = thr_rec(2)
doc.NA1 = Strleft(doc.NA(0),",")
doc.TI = thr_rec(3)
doc.DA = thr_rec(4)
doc.AB = thr_rec(5)
doc.CL = thr_rec(6)
doc.CO = thr_rec(7)
doc.CH = thr_rec(
doc.ME = thr_rec(9)
doc.LE = thr_rec(10)
doc.LI = thr_rec(11)
Call doc.save(True,True)
Next
Print countRec%
Close fileNum%
Vielen Dank
