PDA

Vollständige Version anzeigen : abspeichern


Byti
31.05.2001, 09:48
Hallo

Angenommen ich habe zwei RichTextBoxen. Dort schreibe ich etwas hinein und will es mit einem Button in eine Datei sagen wir test.rtf abspeichern. Mit einer RichTextBox geht das aber wie bekomme ich den Inhalt der 2. auch in die selbe Datei so das beide Einträge abgespeichert werden. Könnte man in diesem Zusammenhang die Werte auch getrennt aufrufen bzw. laden?

Stefan Kulpa
31.05.2001, 10:36
<font face="Verdana" size="2">Hallo,

nachfolgend dazu ein Beispiel:</font>

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Command1_Click()

<FONT COLOR=#000080>Const</FONT> MyFile = "C:\WINNT\TEMP\TEST.RTF"

<FONT COLOR=#000080>Dim</FONT> iFile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>
<FONT COLOR=#000080>Dim</FONT> lOffset <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Testdatei zum Schreiben öffnen</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
iFile = FreeFile
<FONT COLOR=#000080>Open</FONT> MyFile <FONT COLOR=#000080>For</FONT> <FONT COLOR=#000080>Output</FONT> <FONT COLOR=#000080>As</FONT> #iFile
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Inhalt der RichTextBox1 schreiben</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#000080>Print</FONT> #iFile, RichTextBox1.TextRTF
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Aktuelle Position in der Datei merken</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
lOffset = LOF(iFile)
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Inhalt der RichTextBox2 schreiben</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#000080>Print</FONT> #iFile, RichTextBox2.TextRTF
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Datei wieder schließen</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#000080>Close</FONT> #iFile
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Zu Testzwecken die Controls initialisieren</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
RichTextBox1.Text = vbNullString
RichTextBox2.Text = vbNullString
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Testdatei zum Lesen öffnen</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
iFile = FreeFile
<FONT COLOR=#000080>Open</FONT> MyFile <FONT COLOR=#000080>For</FONT> <FONT COLOR=#000080>Input</FONT> <FONT COLOR=#000080>As</FONT> #iFile
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Anhand der ermittelten Offset die ersten Daten lesen</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
RichTextBox1.TextRTF = <FONT COLOR=#000080>Input</FONT>(lOffset, #iFile)
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// ... und den Rest in 2. RTF-Box schreiben ...</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
RichTextBox2.TextRTF = <FONT COLOR=#000080>Input</FONT>(LOF(iFile) - lOffset, #iFile)
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#008000>'// Datei wieder schließen</FONT>
<FONT COLOR=#008000>'// =========================================================</FONT>
<FONT COLOR=#000080>Close</FONT> #iFile

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></PRE>

<font face="Verdana" size="2">Dieses Beispiel hat allerdings nur erklärenden Charakter, da der Offset als Trennpunkt der Inhalte direkt wieder verwendet wird. Wenn das Schreiben/Lesen regelmäßig passiert und die bestehenden Inhalte nicht überschrieben werden sollen, funktioniert's nicht mehr ...

Gruß</font>