[VB6] Txt Datei in Textbox

[BadboyGER]

Hey ich hab mal eine Frage :

Wenn ich eine *.txt datei in eine Textbox laden will wird mir immer nur die erste Zeile der .txt datei angezeigt , falls es wichtig ist ich hab es auf multiline gestellt.

Ich bitte um hilfe ...

MfG.
BadboyGER

[Darkraiser]

du musch da sozusagn mit tabs arbeiten .. also gug einfach ma bei google da sollteste alles finden oder frag ma bei vb-x.org an

[BadboyGER]

Ok google kann ich probieren nur vb-x.org ist down ...

[th3flo0d]

Hi sowas habe ich gestern auch noch gesucht .

Vielleicht hilft dir ja das hier auch:

http://www.schmittis-page.de/vb/t141.htm

Einfach mal die Beispiel-Datei laden und schauen :wink:

MfG
th3flo0d

[enco]

Benutz das hier:

Open "Textdatei.txt" for input as #1
   While not EOF(1)
      Line Input #1, data
      Textbox.text = Textbox.text & data & vbNewline
   Wend
Close #1

[DizzY_D]

Ich habe das selbe Problem.
@enco
Wenn das so einfach wäre hätte hier glaube ich niemand gefragt (bei mir zumindest geht es so auch nicht)

@th3flo0d
Ich habe mal meine TXT Datei auf meinen FTP hochgeladen und dann versucht mit diesem programm den Text auszulesen ,jedoch kam da nur Error.

Ich wäre sehr dankbar für eine Lösung wei lich schon am verzweifeln bin.
MFG DizzY_D

[enco]

Du musst natürlich die Textbox und den Dateipfad editieren, das funktioniert perfekt.
Ich schreib doch kein snippet ohne es zu testen :?

[DizzY_D]

jaja das ist mir schon kar ich bin ja auch kein VB Noob mehr.
Nur trotzdem steht da nur die erste zeile der Datei in der Textbox und ich weis absolut nicht warum...

Edit:
Ich hab gerade gesehen ,dass doch ein Paar Zeilen mehr als die erste eingelesen werden jdoch noch lange nicht alles.
Woran kann das liegen???

[Kur0k]

Private Sub Form_Load()
Text1.text =ReadFile("C:\boot.ini")
end Sub

Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  
  'Falls nicht vorhanden, nichts zurückgeben:
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
  
  'Datei einlesen:
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = Space$(LOF(FileNr))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function

Einfach kopieren ncoh ne textbox erstellen fertig !! was ist daran so schwer XD?

[DizzY_D]

Dein Code liest auch nicht mehr von der Datei ein als der von enco...