Einlesen funktioniert nicht

[Kyrodust]

Hi Leute! Ich muss euch leider wieder mit so einer einfachen Sache nerven aber ich finde den Fehler einfach nicht.

  Open "C:\Schriftart.txt" For Input As #1
  Do While Not EOF(1)
  Schriftart.Text = Schriftart.Text
  Line Input #1, Text
  Loop
  Close #1

Kann mir jemand sagen, wo der Fehler liegt, denn wenn ich das Programm starte, und das Event ausführen will, ist das Textfeld leer. Ich bekomme weder eine Fehlermeldung noch sonst irgendwas in der Richtung. Wäre über Hilfe sehr froh.

cu LordAlucard

 

[Dario Linsky]

Schriftart.Text = Schriftart.Text

Was soll das denn?

 

[Kyrodust]

Das ist das Feld, in das eingelesen werden soll. Wenn ich das nur 1x eingebe sprich

  Open "C:\Schriftart.txt" For Input As #1
  Do While Not EOF(1)
  Schriftart.Text
  Line Input #1, Text
  Loop
  Close #1

dann kriege ich vom Programm ne nette Fehlermeldung von VB...
"Ungültige Verwendung der Eigenschaft" oder sowas ähnliches.


cu LordAlucard

 

[Dario Linsky]

Ja, das ist mir schon klar. Aber was soll die Zuweisung, das versteh ich nicht ganz. Wieso willst Du als Text in der TextBox den Text von der TextBox anzeigen? Das macht doch gar keinen Sinn, logisch oder?

Ich vermute mal, was Du haben willst, müsste eher so aussehen:

Schriftarten.Text = Text

 

[Daniel Toplak]

Dann aber bitte nach dem Input!

Schriftart.Text = "" 'leer machen
Open "C:\Schriftart.txt" For Input As #1
Do While Not EOF(1)
  Line Input #1, Text
  Schriftart.Text = Schriftart.Text & vbcrlf & Text
  ' setzt natürlich vorraus, daß das Textfeld auf Multiline
  ' steht
Loop
Close #1

Ich glaub das wolltest du machen oder?

Gruss Homer