🚀 go-pugleaf

On Sat, 01 Jul 2000 12:30:47 +0200, Tony <dewty@village.uunet.be> wrote:

>Hallo,
>
>Is het mogelijk om in VB een textfile te lezen en bijvoorbeeld regel
>#6 in een label te plakken, regel #10 in het volgende label
>enzoverder?
>
>Zoja kan er dan iemand eens een een stukje voorbeeldcode geven, ik kom
>er niet uit.
>
>Alvast bedankt
>Groeten
>Tony

Private Sub Voorbeeld()

  Dim FileName As String
  Dim FileNr As Integer
  Dim OneLine As String
  Dim LineCounter As Long

  FileName = "Invoer.txt"

  FileNr = FreeFile
  Open FileName For Input As #FileNr

  LineCounter = 0

  Do While Not EOF(FileNr)
    LineCounter = LineCounter + 1
    Line Input #FileNr, OneLine
    Select Case LineCounter
      Case 6
        lbl6.Caption = OneLine
      Case 10
        lbl10.Caption = OneLine
    End Select
  Loop
  
  Close #FileNr

End Sub