Keskustelu: Ohjelmointikysymykset: VB6: filun tiedot muuttujaan(vb6)

Miten sais avattuu filun ja laitettuu sen tiedot muuttujaan, niin, että kaikki rivit menevät muuttujaan eikä vain ensimmäinen rivi. Lähdekoodi jota yritin:

Dim i As Integer, Muuttuja
Open "C:\testi.txt" For Input As #1
For i = 1 To 5
   Input #1, Muuttuja
Next
Close #1

ja tolla tulee vaa eka rivi.

Koodisi lukee jokaisen rivin samaan muuttujaan. Siksi viimeinen rivi on ainoa, joka jää pysyvästi talteen. Lue siis rivi ensin erilliseen muuttujaan ja lisää se sitten varsinaiseen tekstiin rivinvaihdon kera.

Dim rivi As String, teksti As String
Open "c:\testi.txt" For Input As #1
Do Until Eof(1)
    Input #1, rivi
    teksti = teksti & rivi & vbCrLf
Loop
Close #1

Nopeampi tapa lukea koko tekstitiedosto yhdellä kertaa muuttujaan on tässä:

Dim teksti As String
Open "c:\testi.txt" For Input As #1
teksti = Input(LOF(1), 1)
Close #1

edit: Ehdit näköjään poistaa jo viestisi, mutta minun oli pakko palauttaa se, jotta tämä vastaus ei näyttäisi oudolta. :)