✔ datei einlesen >multiline textfeld<

[antonioli]

Hallo,
Ich hab ein kleines Problem. Wenn ich eine txt Datei in ein Mehrzeiliges Textfeld einlese dann bleibt die erste Zeile im Textfeld immer leer

Ich weiß ja warum die leer ist aber mir fehlt nichts ein wie ich das Problem beseitigen soll

Hier der Code

Dim FNr As Integer
Dim nextline, pat As String
FNr = FreeFile
pat = App.Path + "\text.txt"
  Open pat For Input As #FNr
  Do Until EOF(FNr)
   Line Input #FNr, nextline
   Text1.Text = Text1.Text + nextline + vbCrLf
Loop
Close #FNr

 

[wincnc]

Hallo

Versuch die Datei statt zeilenweise mal komplett einzulesen.

Dim FNr As Integer

  Text1.Text = ""

  FNr = FreeFile

  Open App.Path + "\text.txt" For Input As #FNr
    'Datei komplett einlesen
    Text1.SelText = Input(LOF(FNr), #FNr)
  Close #FNr

  Text1.SetFocus

 

[antonioli]

Hat Super geklappt vielen vielen dank