Hallo, ich versuche gerade ein Programm zum öffnen von .txt Dateien zu schreiben. Dafür benutze ich diesen Code zum Öffnen:
Private Sub Command1_Click()
Dim ContentFile As String
On Error GoTo A
CommonDialog1.DialogTitle = „Textdokument öffnen“
CommonDialog1.Filter = „Text Files (*.txt)|*.txt“
Form1.CommonDialog1.ShowOpen
Open Form1.CommonDialog1.FileName For Input As #1 Do Until EOF(1) Input #1, ContentFile Form1.Text1 = ContentFile Loop
Close #1
A:
End Sub
Jedoch bekomme ich eine Fehlermeldung:
Fehler beim kompilieren: Syntaxfehler
Wer kann mir helfen?
Vielen Dank im Vorraus
Hallo,
der einzige Fehler, den Du gemacht hast, Du hast beim Kopieren die Zeilen falsch zusammengefügt. 
An die richtige Stelle ein Zeilenvorschub und der Code läuft. Zeigt aber immer nur den Schluss der Datei an. Alles davor wird wieder überschrieben.
#1 geht zwar, ist aber Fehleranfällig. Besser ist es, Freefile in eine Variable zu schreiben.
Dein Code, praktisch ohne Änderung, nur die Zeilen an der richtigen Stelle beendet.
Gruß Rainer
Private Sub Command1\_Click()
Dim ContentFile As String
On Error GoTo A
CommonDialog1.DialogTitle = "Textdokument öffnen"
CommonDialog1.Filter = "Text Files (\*.txt)|\*.txt"
Form1.CommonDialog1.ShowOpen
Open Form1.CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Input #1, ContentFile
Form1.Text1 = ContentFile
Loop
Close #1
A:
End Sub
Vielen Dank! Hat Funktioniert!
Jetzt hätte ich noch eine ander Frage:
Die Schriftart lässt sich ziemlich umständlich mit
Text1.Font = Text2
ändern.
Gibt es da noch eine andere Möglichkeit?
Hallo,
zur Laufzeit geht das nur so, aber ich finde es auch nicht umständlich.
Allerdings habe ich es noch nie gebraucht, zur Laufzeit die Schriftart zu wechseln und stelle das immer in der Entwicklungsumgebung in den Eigenschaften ein, das erspart den Code.
Gruß Rainer
Geht das nicht irgendwie mit einer ListBox?
Geht das nicht mit einer ListBox?
Geht das nicht irgendwie mit einer ListBox?
Ja klar, das ist doch praktisch das Selbe. Ob die Information nun aus einem Textfeld, einer Listbox, einer Combobox oder sonstwo her kommt, macht keinen Unterschied.
Beschreibe doch mal genauer, was Du vor hast, dann kann ich auch Code liefern.
Gruß Rainer
Habs jetzt selbst mit ner ComboBox hinbekommen. Trotzdem Vielen Dank!