Aus einer bestimmten Zeile in txt Lesen

[knop]

o.k.

hier der Code:

Private FS as Object
Private DT as Object

Sub Form1_Load()
    set FS = CreateObject("Scripting.FileSystemObject")
    set DT = FS.OpenTextFile("C:\beispiel.txt")

    Dim X    

    TextBox1.Clear
    For X = 0 to 5
        TextBox1.Add DT.ReadLine
    Next X
    
    DT.close
End Sub

Falls Probleme mit der Verwendung der Text-Dateien auftreten, habe ich kein Einflüß drauf...

 

[gabrielgsell]

Meine Variante...

Habs mir angeschaut und den Fehler behoben, jetzt funktioniert es. Sogar getestet

Dim KNr As Integer
Dim Inhalt As String
Dim Zeile() As String
Dim Datei As String
 
Datei = "C:\Datei.txt"
KNr = FreeFile
Inhalt = Space(FileLen(Datei))
 
Open Datei For Binary As KNr
Get KNr, , Inhalt
Zeile = Split(Inhalt, vbNewLine)
MsgBox Zeile(0)
Close KNr

Grüsse