[VB6] Txt Datei in Textbox

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

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

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

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

Benutz das hier:

Code:

---

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

---

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

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

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???

Code:

---

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?

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

Zitat:

---

Zitat von 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

---

Eigentlich kann das nicht sein, denn mein programm nutzt zu 90% denselben code und ich habe auch einen ftp :?:

Ich kann mir auch nicht erklären wodran das liegt...

Es kann eigendich nur noch an der Datei liegen. Aber der TXT Editor kiregt die Datei ja auch komplett eigelesen.
Ich habe echt keine Ahnung mehr wodran das liegen könnte.