Ergebnis 1 bis 3 von 3
  1. #1
    Tron
    Registriert seit
    29.05.2007
    Beiträge
    894

    Standard [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 !

  2. #2
    It's Toasted!!
    Registriert seit
    08.08.2007
    Beiträge
    375

    Standard

    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

  3. #3
    Anfänger
    Registriert seit
    10.11.2007
    Beiträge
    13

    Standard

    danke hab eich auch gesucht

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •