Keskustelu: Ohjelmointikysymykset: VB6: VB:n tiedostofunktioita taasen

Oppaista yritin etsiä tähän apua mutta en löytänyt...

Eli ongelmia on kaksi:

1) Yritän hakea teksti.txt -nimisestä tiedostosta tekstiä, jossa on välilöyntejä, listboxiin mutta esim. teksti "tämä on testi" jonka pitäisi olla näin:

Tämä on testi

Onkin näin:

Tämä
on
testi

2) Textboxiin saa useampia rivejä ja tekstitiedostossa on tekstiä joka tähän halutaan lisätä. Eli rivien määrää ei tiedetä ja niitä on useampia, mutta sen pitäisi lukea ja lisätä textboxiin kaikki ne rivit. Ikävä kyllä pelkkä input lisää vain ensimmäisen rivin... Ja tätä koetin:

Do
Input #1, temp
Text1.Text = temp
Loop Until EOF(1)

Mutta tällä tulee vain viimeinen rivi.

Tällaisia ongelmia tällä kertaa...

Voisikohan se toimia, jos sitä muuttaisi tällaiseksi? En ole ollenkaan varma tästä, sillä en ole kauheasti käyttänyt VB:tä.

Do
Input #1, temp
Text1.Text = Text1.Text + temp
Loop Until EOF(1)

Tuon kanssa se laittaa eri riveillä olevat tekstit perätysten, tapaan:

Tämä
on
teksti

tuleekin

Tämäonteksti

No
lisää
sinne
rivinvaihtoja
väliin.

Tyhmä kysymys: mihin? :)

No kokeileppa tuohon malliin:

Open "teksti.txt" For Input As #1
Do Until EOF(1)

'Luetaan koko rivi
Line Input #1, rivi$

'Lisätään rivi (vbCrLf = rivinvaihto)
Text1.Text = Text1.Text + rivi$ + vbCrLf

Loop
Close #1

Katso myös trinitin vaihtoehtoinen, nopeampi tapa lukea tiedosto tekstialueeseen: https://www.ohjelmointiputka.net/koodivinkit/23513-vb6-tiedoston-lukeminen-kerralla

Paljon kiitoksia Pekka ja Antti, pelastitte miut :)