Domino 9 und frühere Versionen > ND7: Entwicklung

.dat Dateien öffnen, Zeilen löschen, neu schreiben

<< < (2/2)

Demian:
Also, ich habe eben Rückmeldung erhalten -> die Dateien können kurzzeitig gelöscht werden. Vereinfacht die Sache ungemein. Da die ersten beiden und die letzte Zeile für die jeweiligen Dateien konstant sind, werde ich die jeweiligen Werte in Notesdokumente schreiben, und in den Ansichten für die einzelnen Dateien irgendwie kennzeichnen, damit sie in der richtigen Zeile erscheinen.

Vielen Dank Bernhard.

Gruß
Demian

Demian:
Moin,moin,

habe da doch noch ein kleines Problem. Ich erzeuge die Datei mit folgendem Code:


--- 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
--- Ende Code ---

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

m3:
Die Designer-Hilfe Dein Freund ist. Nachlesen in dem Kapitel "Write # Statement" Du kannst:

Data type:
String   
Write # statement behavior
Encloses all strings in double quotation marks. Pads fixed-length strings with spaces as needed.

LN4ever:
Nimm PRINT anstelle von WRITE, wenn du die Anführungszeichen nicht brauchst.

Gruß

Norbert

Demian:
Moin,moin,

ich dachte write wäre das Gegenstück zu Datei.writeline bei Scripting.FileSystemObject, deswegen habe ich in der Hilfe das auch gar nicht gesehen. Aber gut zu wissen, werde dann print nehmen.

Danke euch beiden.

Gruß
Demian

Navigation

[0] Themen-Index

[*] Vorherige Sete