læse linje X fra en txt fil

Private Sub cmdopen_Click()

Open "C:\test.txt" For Input As #1
   
Do Until EOF(1)

        Input #1, Data
        text1.text = text1.text + Data + vbNewLine
    EOF (1)
    Loop
    Close #1
   
End Sub

Sådan åbner og læser du ihvertfald en fil :)

ok.. Tak.. Hvilken en linje læser den så?

alle sammen, en efter en.
tror vist ikke den sidste EOF (1) skal være der dog.

Denne funktion kan vælge hvilken linie der skal læses

Public Function ReadLine(fName As String, LineNumber As Long) _
    As String

'Parameters: fName = FullPath to File
'            LineNumber = LineToRead

'Returns:    Contents of the line, or a blank string if
'            LineNumber is greater than the total number of lines

'Requires:  Reference to Microsoft Scripting Runtime

'Example: MsgBox ReadLine("C:\AutoExec.bat", 3)
'          Displays third line of autoexec.bat
                                                 

  Dim oFSO As New FileSystemObject
  Dim oFSTR As Scripting.TextStream
  Dim ret As Long
  Dim lCtr As Long
 
  If oFSO.FileExists(fName) Then
    Set oFSTR = oFSO.OpenTextFile(fName)
    Do While Not oFSTR.AtEndOfStream
        lCtr = lCtr + 1
        If lCtr = LineNumber Then
            ReadLine = oFSTR.ReadLine
            Exit Do
        End If
        oFSTR.SkipLine
    Loop
    oFSTR.Close
    Set oFSTR = Nothing

  End If
End Function

'Example: MsgBox ReadLine("C:\AutoExec.bat", 3)

Så hvis du bare paster den funktion ind i din kode og kalder den med:

text1.text = ReadLine("C:\minfil.txt", 3) så vil indholdet af text1.text være minfil.txt linie 3

hva nu hvis man har forskellige "colloner"? ligesom i en tabel .... ?
id navn
1 niXir
2 mcgoat

noget i den stil .. hvad gør jeg så hvis jeg skal kunne hive både id og navn ud af tekst-filen hver gang ?

hvis det bare står ved siden af hinanden så er det vel nok bare at hente linie 2 for at få: "2 mcgoat" ud

hmm.. Den laver fejl på funktionen.. Jeg har bare kopieret det der, sat ind, og så skrevet

MsgBox ReadLine("C:\Documents and Settings\Bille\Skrivebord\Visual Basic.txt", 2)

Den skriver:

Compile Error
UPser-defined type not defined

og så mærkere den "oFSO As New FileSystemObject"

Hjælp :( hehe

prøv:

you will need to add a reference to the Scripting Runtime library in VB6 from the Project|References menu. (Check the Microsoft Scripting Runtime reference and click OK

det jeg ente var om man unne adskilde det på en måde så man kan bruge det uafhægigt af hinanden ... ? fx nixir har id 1

nu kommer der da ikke nogen fejl, men hmm.. Visual Basic.txt indeholder følgende:
slette alle txt filer (cookies) i en mappe..
Kill("C:\Documents and Settings\Bille\Cookies\*.txt*")

når jeg så køre
MsgBox ReadLine("C:\Documents and Settings\Bille\Skrivebord\Visual Basic.txt", 2) får jeg et output på "3"... hmmm??

nej undskyld.. Hvis jeg bruger MsgBox ReadLine("C:\Documents and Settings\Bille\Skrivebord\Visual Basic.txt", 1) får jeg 3, bruger jeg MsgBox ReadLine("C:\Documents and Settings\Bille\Skrivebord\Visual Basic.txt", 2) får jeg ingenting (altså en tom MsgBox..

Hilfe :)

nåå. Det er fordi der ikke må ligge komandoer i selvfølgelig.. Mange tak for svarene :)