| FreeFile, Open, Close, EOF |
| |
| |
| Public Const pfadt$ = "D:\Verzeichnisname\Dateiname.txt" | Konstante für Pfad verwenden. Wird kein Pfad verwendet, |
| Private kanal#, datei$ | wird die Datei im selben Pfad wie dieses Programm |
| angelegt. |
| Private Sub cmdLaden_Click() | Speichern-Button muß unsichtbar sein! Speichern |
| Dim NeuZeichen$, AltZeichen$ | vor Laden der Datei löscht den Dateiinhalt ! |
| kanal = FreeFile | |
| datei = pfadt | |
| Open datei For Input As #kanal | Textdatei zum Lesen in Speicher laden. |
| Do | |
| NeuZeichen = Input(1, kanal) | Variablen erhalten Werte aus Speicher. |
| AltZeichen = AltZeichen & NeuZeichen | |
| Loop Until EOF(kanal) | Lesen, bis Ende der Datei erreicht wurde. |
| Close #kanal | Speicher leeren. |
| rtbText.Text = AltZeichen & NeuZeichen | RichTextBox erhält Werte aus Variablen. |
| cmdLaden.Visible = False | |
| cmdSpeichern.Visible = True | |
| End Sub | |
| |
| Private Sub cmdSpeichern_Click() | |
| kanal = FreeFile | |
| datei = pfadt | |
| Open datei For Output As #kanal | Datei zum Speichern in Speicher laden. |
| Print #kanal, rtbText.Text | Textdatei übernimmt die neuen Werte der RichTextBox. |
| Close #kanal | Speicher leeren. |
| End Sub | |
| |
| Private Sub cmdFarbe_Click() | |
| rtbText.SelColor = vbRed | Selektierter Text wird rot markiert. |
| End Sub | |
| |
| Private Sub cmdFett_Click() | |
| rtbText.SelBold = True | Selektierter Text wird fett markiert. |
| End Sub | |
| |
| Private Sub cmdUnter_Click() | |
| rtbText.SelUnderline = True | Selektierter Text wird unterstrichen markiert. |
| End Sub | |
 | |
|
|
|
|
|
|
|
| Private Sub Form_Load() | |
| cmdSpeichern.Visible = False | Beim Laden den Speichern-Button unsichtbar machen; das |
| End Sub | Speichern vor Laden der Datei löscht den Dateiinhalt ! |
| |
zurück