Moin,moin,
ich habe eine .dat Datei, die folgendermaßen aufgebaut ist:
[KOSTENTRAEGER]
=Ohne Kostenträger
10 =Automation Allgemein
10842 =
10844 =Fuhrpark DO Schloss.
10845 =Fuhrpark DO Schloss.
10853 =Reinig. Werksh. 2003
10854 =Reinigung Schloss.
10855 =Reinigung Schloss.
10863 =Werkz. Lag. Schloss.
10864 =WZL Schlosserei
10865 =WZL Schlosserei
10892 =
00001281003E2633
Ist es möglich diese Datei mittels open...for.. as filenum zu öffnen, die ersten beiden und die letzte Zeile zu erhalten oder in Variablen zu speichern und alle Zeilen dazwischen zu löschen, damit die Daten neu eingelesen werden können?
Gruß
Demian
PS: Bin mir nämlich nicht sicher, ob die Dateien einfach gelöscht und neu erstellt werden können. Sie stammen aus unserem Zeiterfassungssystem.
Moin,moin,
habe da doch noch ein kleines Problem. Ich erzeuge die Datei mit folgendem Code:
Function ZMKST0bis8dat_exportieren(Datei As String)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim filenum As Integer
Set db = s.CurrentDatabase
'Start = 9, da Verzeichnis = "T:\Zeit\
Set view = db.GetView(Mid(Datei,9,10))
Set doc = view.GetFirstDocument
test = doc.Text(0)
filenum = Freefile
Open Datei For Output As filenum
For i = 1 To view.AllEntries.Count
Write #filenum, doc.text(0)
Set doc = view.GetNextDocument(doc)
Next
Close filenum
End Function
Funktioniert an sich auch wunderbar, jedoch schreibt er mir den Inhalt des Feldes doc.Text mit " " in die Datei. Woran liegt das, bzw. wie kann man das beheben?
Gruß
Demian