Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Tietyn tekstitiedoston tietyn rivin tekstejen lataaminen Text1.Textii (vb6)

Monkkats [14.12.2003 17:19:41]

#

Miten sais ladattua tietyn tiedoston tietyn rivin kaikki tekstit Text1.Textii?

sqwiik [14.12.2003 17:27:30]

#

Avaat tiedoston ja luet rivi kerrallaan (Line Input) tiedostoa, ja kun tulee oikea rivi vastaan niin copy copy...

Dim rivi As Integer, luetut As Integer, rivi As String * 255
rivi = 2 'Luetaan toinen rivi
Open "koe.txt" For Input As #1
For luetut = 1 To rivi
  Line Input #1, rivi
  If Eof(1) Then Exit For
Next luetut
Close #1
Text1.Text = rivi

trinit [14.12.2003 20:01:45]

#

sqwiik:n esimerkki on hieman omanlaisensa mutta toimiva. Itse kuitenkin tekisin tuon näin:

Dim ff As Integer
Dim luerivi As Integer
Dim luetturivi As Integer
Dim rivi As String

luerivi = 7     ' Lue 7. rivi tiedostosta
luetturivi = 0  ' Kuinka mones rivi on luettu

ff = FreeFile

Open "koe.txt" For Input As #ff
    Do Until EOF(ff)
        Line Input #ff, rivi: luetturivi = luetturivi + 1

        If luetturivi = luerivi Then
            Text1.Text = rivi
            Exit Do
        End If
    Loop
Close #ff

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta