Keskustelu: Ohjelmointikysymykset: VB6: Tiedoston kaikkien rivijen avaus

Miten voi avata ja tulostaa tekstbox:iin kaikki tekstitiedostossa olevat rivit?

Tämä tulostaa vain yhden rivin.

Open "c:\teksti.txt" For Input As #1
   Input #1, r
   teksti.Text = r
Close #1
End Select

Jos taas käytän For silmukkaa, niin se tulostaa vain ne rivit, jotka on määritetty...

Kokeile lukea tidoston sisältöä while/do-silmukalla, kunnes tiedoston loppu tulee vastaan. Esimerkkinä seuraava (ei kuitenkaan tulosta mitään):

Dim vapaa As Integer, r As String
  vapaa = FreeFile
  Open "c:\teksti.txt" For Input As #vapaa
  Do Until EOF(vapaa)
    Input #vapaa, r
  Loop
  Close #vapaa

Nytten se tulostaa vain ja ainoastaan viimeisen rivin...

Laita se tulostus tuon loopin sisälle. Tuo r-muuttujahan ylikirjotetaan joka rivin lukemisen yhteydessä.

jpe jpe tarkoitatko näin

Dim vapaa As Integer, r As String
  vapaa = FreeFile
  Open "c:\teksti.txt" For Input As #vapaa
  Do Until EOF(vapaa)
    Input #vapaa, r
   teksti.Text = r
  Loop
  Close #vapaa

Tämä justiinsa tulostaa vain viimeisen rivin

Tai voit käyttää lukemiseen Input-funktiota:
Texti.text = Input$(LOF(vapaa),vapaa)
eikä tarvita luuppia lainkaan.

kayttaja-3842 kirjoitti:

Tämä justiinsa tulostaa vain viimeisen rivin

No koska ylikirjotat tuon tekstilaatikon tekstin joka rivin lukemisen yhteydessä sen sijaan, että vain lisäisit tuon tekstin edellisen perään.

Ts. mitä haet on teksti.Text = teksti.Text & r

lainaus:

Ts. mitä haet on teksti.Text = teksti.Text & r

No siis toihan toimii,mutta toi ei lisää rivin vaihto, vaan printaa kaikki yhtenä pötkönä

https://www.ohjelmointiputka.net/koodivinkit/23513-vb6-tiedoston-lukeminen-kerralla
Löytyy ihan putkan omistak oodivinkeistä