Keskustelu: Ohjelmointikysymykset: VB6: Ongelmia! *VB*

Niin, voisiko joku ystävällisesti kirjoittaa palan koodia tälläiseen ongelmaan.
Koodin pitäisi laittaa esim. määrätystä tiedostosta rivillä 3 oleva teksti tekstikenttään.

Tiedosto voisi näyttää vaikka tältä:
(rivi 1) hui
(rivi 2) 2555
(rivi 3) 265
(rivi 4) koira

Niinkun jotenkin: jotain.Text = rivin 3 teksti.
Toivottavasti joku ymmärsi mitä tarkoitin. :)

Dim MoneskoRivi As Integer
Dim LuettuRivi As Integer
Dim ff As Integer
Dim rr As String

MoneskoRivi = 3
LuettuRivi = 1
ff = FreeFile

Open "tiedoston.nimi" For Input As #ff
  Do Until EOF(ff)
    Line Input #ff, rr
    If LuettuRivi = MoneskoRivi Then
      Text1.Text = rr
      Exit Do
    Else
      LuettuRivi = LuettuRivi + 1
    End If
  Loop
Close #ff

Esimerkki avaa tiedoston "tiedoston.nimi" lukua varten ja lukee sieltä rivejä kunnes LuettuRivi on yhtäsuurikuin MoneskoRivi (rivi, jonka teksti luetaan tekstikenttään)

Kiitos paljon! :)

Tosin tuossa MoneskoRivi on turhaan määritelty muuttujaksi vaikka vakio olisi parempi vaihtoehto.
Eli 'Dim MoneskoRivi As Integer' pois ja
'MoneskoRivi = 3' => 'Const MoneskoRivi = 3'

Mutta TH:han kirjoitti "...esim. määrätystä tiedostosta rivillä 3 oleva teksti tekstikenttään" jolloin oletin, että luettavaa riviä voidaan vaihtaa. Vakiosta on tietysti se hyöty, että ohjelmakoodista saadaan selvempi ja kääntäjä pystyy valvomaan ettei vakion arvoa muuteta.