Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Kuinka tiedostosta voisi lukea kaikki rivit?

Sivun loppuun

Kingi [03.04.2005 15:30:50]

#

Kuinka tiedostosta voisi lukea kaikki rivit?
esimerkiksi jos muistio.txt tied. sisältö olisi:
rivi 1
rivi 2
rivi 3

niin miten nuo kaikki rivit saisi näkymään text1 nimisessä textboxissa?

Blaze [03.04.2005 15:48:24]

#

Muuten hyvä, mutta väärä kieli.

https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=vbo_8

Meitsi [03.04.2005 15:53:51]

#

Oho :D katoin vahingossa että tää oli PHP alue...

EDIT: (poistin viestin)

Kingi [03.04.2005 16:13:07]

#

Ei noista mikään toimi halutulla tavalla...
sen pitää tulostaa noi kaikki rivit!
kertokaa mitä tolle pitäis tehä et se toimis:

Open App.Path & "\muistio.txt" For Input As #1
Input #1, muisti
Close #1

Blaze [03.04.2005 16:56:43]

# 

Open App.Path & "\muistio.txt" For Input As #1
Do Until EOF(1)
  Line Input #1, Muuli
  Kaikki = Kaikki & Muuli
Loop
Close #1

hunajavohveli [03.04.2005 18:10:06]

#

LOF-funktiota voi myös käyttää, jos haluaa lukea kaiken kerralla, mutta monessa tilanteessa rivi kerrallaan lukeminen on parempi ratkaisu.

LOF:n avulla:

Open tiedosto For Input As #1
Text = Input(LOF(1), 1)
Close #1

setä [03.04.2005 18:11:49]

# 

Open App.Path & "\muistio.txt" For Input As #1
Text1 = Input(LOF(1),1)
Close #1

meni näköjään päällekkäin!

tuomas [03.04.2005 18:47:33]

#

tai jos tekee mieli lukea vaikka taulukkoon:

dim taulu(1 to 10) as string
open app.path & "\jeejee.txt" for input as #1
     do until eof(1)
        line input #1, rivi
        i = i + 1
        taulu(i) = rivi
        doevents
     loop
close #1

Kingi [03.04.2005 20:05:26]

#

Erittäin paljon kiitoksia noista vinkeistä... Enköhän saa edes yhden toimimaan :D
Tuo Blazen lähettämä vinkki tulosti kaiken samalle riville.

Niko [04.04.2005 00:28:32]

# 

Open App.Path & "\muistio.txt" For Input As #1
Do Until EOF(1)
  Line Input #1, Muuli
  Kaikki = Kaikki & vbNewLine & Muuli
Loop
Close #1

Sivun alkuun

Vastaus

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

Tietoa sivustosta