VB: in Textdatei zu beginn springen und darüber schreiben

Chrisi99 · 04.09.2005, 23:10

ich bräuchte diese Funktion für eine Protokollierfunktion:

ich öffne eine Textdatei, das Programm springt an den Anfang und fügt den Text aus einer Textbox darüber ein.

Private Sub cmdSave_Click()
Dim FN As Integer

FN = FreeFile()
Open m_strFileName For Output As #FN
Write #FN, Text1.Text
Close #FN
End Sub

kann ich diese Funktion dazu verwenden- und wie schaut das ganze aus?

liebe Grüße

Sesa_Mina · 04.09.2005, 23:50

OPEN ... for OUTPUT

öffnet bzw. erzeugt ein file. Die Schreibposition wird an den Dateianfang gesetzt. Eventuell vorhandener Inhalt wird gelöscht.

OPEN ... for APPEND

Wie oben, nur wird am Dateiende angehängt und etwaig vorhandener Inhalt bleibt bestehen.

Chrisi99 · 05.09.2005, 00:13

wenn ich mich recht entsinne wird ja mit BOF (Gegenteil zu EOF) der Beginn einer Datei markiert--- kann man das verwenden?

ich denke da an etwas ala ICQ-Logfile. Da wird ja auch immer oben dazu geschrieben

grüße

Sesa_Mina · 05.09.2005, 00:30

Du legst hier beim *öffnen* der Datei fest was passiert bzw. ob das file überschrieben wird oder die Daten angehängt werden.

EOF dient beim Einlesen einer Datei mittels read/input zur Überprüfung ob das Dateiende bereits erreicht wurde um nicht darüber hinaus zu lesen (was in einer Fehlermeldung enden würde).

=> while not eof(foo)
=> line input #foo,bar
=> wend

wenn du an beliebiger stelle in der datei schreiben willst dann geht das über OPEN ... for BINARY as ... [Len=RecordLen]
dann kannst per get/put direkt schreiben / lesen.

=> get #foo,filepos,bar
=> put #foo,filepos,bar
wobei filepos beim ersten mal angegeben werden sollte und danach weggelassen werden kann wenn das lesen/schreiben sequentiell erfolgt.

Das mit dem "oben" dazuschreiben wird einfach so gelöst dass das file eingelesen wird und von hinten nach vorne angezeigt wird. mehr is dat nich.

Chrisi99 · 05.09.2005, 07:23

ok!

wie lege ich die Reihenfolge beim Lesen fest?

btw: Guten Morgen!

wbendl · 05.09.2005, 11:28

Hi!

Zuerst zeilenweise in ein Array einlesen, und dann das Array "im Rückwärtsgang" durchlaufen.

mfg

WB

04.09.2005, 23:10	#1
Chrisi99 Inventar Registriert seit: 22.12.2002 Alter: 39 Beiträge: 2.644 Mein Computer	VB: in Textdatei zu beginn springen und darüber schreiben ich bräuchte diese Funktion für eine Protokollierfunktion: ich öffne eine Textdatei, das Programm springt an den Anfang und fügt den Text aus einer Textbox darüber ein. Private Sub cmdSave_Click() Dim FN As Integer FN = FreeFile() Open m_strFileName For Output As #FN Write #FN, Text1.Text Close #FN End Sub kann ich diese Funktion dazu verwenden- und wie schaut das ganze aus? liebe Grüße ____________________________________ Der Unterschied zwischen Theorie und Praxis ist, das es in der Theorie keinen Unterschied zwischen Theorie und Praxis gibt, in der Praxis aber schon. Wer schreibt, der bleibt!

04.09.2005, 23:50	#2
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	OPEN ... for OUTPUT öffnet bzw. erzeugt ein file. Die Schreibposition wird an den Dateianfang gesetzt. Eventuell vorhandener Inhalt wird gelöscht. OPEN ... for APPEND Wie oben, nur wird am Dateiende angehängt und etwaig vorhandener Inhalt bleibt bestehen. ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

05.09.2005, 00:13	#3
Chrisi99 Inventar Registriert seit: 22.12.2002 Alter: 39 Beiträge: 2.644 Mein Computer	wenn ich mich recht entsinne wird ja mit BOF (Gegenteil zu EOF) der Beginn einer Datei markiert--- kann man das verwenden? ich denke da an etwas ala ICQ-Logfile. Da wird ja auch immer oben dazu geschrieben grüße ____________________________________ Der Unterschied zwischen Theorie und Praxis ist, das es in der Theorie keinen Unterschied zwischen Theorie und Praxis gibt, in der Praxis aber schon. Wer schreibt, der bleibt!

05.09.2005, 00:30	#4
Sesa_Mina Schwarzfußfrettchen Registriert seit: 28.01.2001 Beiträge: 2.071	Du legst hier beim öffnen der Datei fest was passiert bzw. ob das file überschrieben wird oder die Daten angehängt werden. EOF dient beim Einlesen einer Datei mittels read/input zur Überprüfung ob das Dateiende bereits erreicht wurde um nicht darüber hinaus zu lesen (was in einer Fehlermeldung enden würde). => while not eof(foo) => line input #foo,bar => wend wenn du an beliebiger stelle in der datei schreiben willst dann geht das über OPEN ... for BINARY as ... [Len=RecordLen] dann kannst per get/put direkt schreiben / lesen. => get #foo,filepos,bar => put #foo,filepos,bar wobei filepos beim ersten mal angegeben werden sollte und danach weggelassen werden kann wenn das lesen/schreiben sequentiell erfolgt. Das mit dem "oben" dazuschreiben wird einfach so gelöst dass das file eingelesen wird und von hinten nach vorne angezeigt wird. mehr is dat nich. ____________________________________ Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\" http://www.dream.at/gizmo/bunny.gif Image is © 2001 Merle Sterndalsäg.. ähh... jäger

05.09.2005, 07:23	#5
Chrisi99 Inventar Registriert seit: 22.12.2002 Alter: 39 Beiträge: 2.644 Mein Computer	ok! wie lege ich die Reihenfolge beim Lesen fest? btw: Guten Morgen! ____________________________________ Der Unterschied zwischen Theorie und Praxis ist, das es in der Theorie keinen Unterschied zwischen Theorie und Praxis gibt, in der Praxis aber schon. Wer schreibt, der bleibt!

05.09.2005, 11:28	#6
wbendl Master Registriert seit: 22.03.2000 Alter: 66 Beiträge: 550	Hi! Zuerst zeilenweise in ein Array einlesen, und dann das Array "im Rückwärtsgang" durchlaufen. mfg WB

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)