[VB6] Text in Datei suchen / größere Datei einlesen

-> Hab ne ca. 500 kb große Datei die ich weder mit Readline einlesen kann noch sonst, ich weiß ich kann die datei splitten und einlesen jedoch hab ich wenig schimmer wie sowas geht und erhoffe mir deshalb eure Hilfe !


-> Möchte z.B. die 3000. Zeile einer Datei lesen und in die Textbox.



Help me & thx !

Wenn du die 3.000 Zeile einlesen willst, musst du mit Line Input arbeiten:

Diese Funktion sollte dir weiterhelfen.

Code:

---

Public Function ReadLine(ByVal sFilename As String, _
  ByVal LineToRead As Long) As String
  Dim F As Integer
  Dim sLine As String
  Dim reihe As Long
 
  reihe = 0
    FF = FreeFile
    Open sFilename For Input As #FF
    While Not EOF(FF) And reihe < LineToRead
      reihe = reihe + 1
      Line Input #FF, sLine
    Wend
    Close #F
 
  If reihe < LineToRead Then _
    sLine = ""
 
  ReadLine = sLine
End Function

---

Der Aufruf, um die 3000 Zeile aufzurufen wäre folgendermaßen:

Code:

---

Zeile = ReadLine("Pfad", 3000)

---

MfG

danke hab eich auch gesucht