VB6 læs en linje

http://www.eksperten.dk/spm/61736

/hiks

Dette læser én linie ad gangen fra en .txt fil.

Copy - paste...

Dim dintekstfil As String
Dim fHandle As Integer
Dim tekstlinie As String
 
  dintekstfil = "C:\dintekstfil.txt"
 
    fHandle = FreeFile
    Open dintekstfil For Input As #fHandle
   
    While Not EOF(fHandle)
      Line Input #fHandle, tekstlinie
     
      Wend
   
    Close fHandle

Overvej evt. at bruge random access files, hvori du kan indlæse records - smart! Så kan du nappe lige den record fra din fil du ønsker, uden at skulle læse de første 1000 linier hvis du skal have fat i linie 1001

Åbne en typebestemt fil:
  Open Filnavn for RANDOM as filnummer Len=Recordlen)

Læse records til en variabel "Minvariabel" fra en typebestemt fil:
  Get #Filnummer, aktuelrecord, Minvariabel

Skrive records:
  Som at læse, skriv Put i stedet for Get

Mere om Rancom Access File (i modsætning til sekventielle filer):

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusingrandomfileaccess.asp

NB: "Len=Recordlen)" var en fejl - slet det!

Ps. jeg er verdens største noob! så kan i ikke skrive en kode der kan bruges med det samme?

Du skal bare copy og paste den stump kode ind som jeg skrev som svar til dig...

Du skal enten paste det ind i form_load eller f.eks. under en knaps click event.

Det virker.

Det eneste du skal rette er variablen: dintekstfil -> til den fil som du vil læse i...

Ja det ved jeg men din kode læser kun den sidste linje, og jeg vil gerne være i stand til at kunne vælge en linje eks: linje 3 ud af 5.

OK. Men koden løber alle linierne i tekstfilen igennem og ikke kun den sidste :-)

Ok men jeg vil have linje 3 af de 5!
hvordan gør jeg det ?

Du kan da bare sætte en counter på.
F.eks.
Dim i as Integer
Dim dintekstfil As String
Dim fHandle As Integer
Dim tekstlinie As String
 
  i = 1

  dintekstfil = "C:\dintekstfil.txt"
 
    fHandle = FreeFile
    Open dintekstfil For Input As #fHandle
   
    While Not EOF(fHandle)
     
    if i = 3 then
      'GØR ÈT ELLER ANDET...   
    end if

    Line Input #fHandle, tekstlinie
     
      i = i +1
    Wend
   
    Close fHandle

Hvordan sætte jeg en counter?

Og hvordan får jeg den viklet ind i koden?

Muuu: "Hvordan sætte jeg en counter? Og hvordan får jeg den viklet ind i koden?"

Kik på svaret fra hanstik. Han har gjort det for dig

Hmmm (JEG ER DUM!!!)

Private Sub Command1_Click()
Dim i As Integer
Dim dintekstfil As String
Dim fHandle As Integer
Dim tekstlinie As String
 
  i = 1

  dintekstfil = "C:\dintekstfil.txt"
 
    fHandle = FreeFile
    Open dintekstfil For Input As #fHandle
   
    While Not EOF(fHandle)
     
    If i = 3 Then
      MsgBox i
    End If

    Line Input #fHandle, tekstlinie
     
      i = i + 1
    Wend
   
    Close fHandle

MsgBox ? Det input jeg skal bruge! ?

End Sub

I text filen har jeg skrevet:
11
22
33
44
55
66
77
88
99

Og jeg vil have linje 3 som input!
Altså: msgbox "33"

Ps. Den løber alle linjer igennem MEN er der mere end 3 linjer bliver "tekstlinie", til den sidste linje den støder på.

PsPs. :D  Altså: "99"

Ret "MsgBox i" til "MSgbox tekstlinie"
Og flyt Line input op OVER i= i+1
Og vælg så en Exit Sub i din If...
Og erklær tekstlinie som en global variabel

Altså

Option Explicit
Dim tekstlinie As String

Private Sub Command1_Click()
  Dim i As Integer
  Dim dintekstfil As String
  Dim fHandle As Integer
  i = 1
  dintekstfil = "C:\dintekstfil.txt"
  fHandle = FreeFile
  Open dintekstfil For Input As #fHandle
  While Not EOF(fHandle)
    Line Input #fHandle, tekstlinie
    If i = 3 Then
      MsgBox tekstlinie
      Exit Sub
    End If
    i = i + 1
  Wend
  Close fHandle
End Sub


Og få fat i en bog om VB - der sparer dig meget tid ;o)

Tak!
Det virker!

:D

Giv de fleste points til hanstik - det er hans løsning jeg har brygget videre på

hanstik = 40
martin_moth = 20

Ok?

:o)

Ved nærmere eftertanke bør det nok være

hanstik = 41
martin_moth = 19