Fehler

Computer: Software & Programmierung Visual Basic
#1

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

#2

Hallo,

der einzige Fehler, den Du gemacht hast, Du hast beim Kopieren die Zeilen falsch zusammengefügt. :smile:
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
#3

Vielen Dank! Hat Funktioniert!

#4

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?

#5

Hallo,

zur Laufzeit geht das nur so, aber ich finde es auch nicht umständlich. :smile:

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

#6

Geht das nicht irgendwie mit einer ListBox?

#7

Geht das nicht mit einer ListBox?

#8

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

#9

Habs jetzt selbst mit ner ComboBox hinbekommen. Trotzdem Vielen Dank!