Keskustelu: Ohjelmointikysymykset: QB, VB6: vbdos ongelma

#Ohjelmointiputka kanavalla tai kuinka se nyt sitten sanotaan niin ihmettelin yhtä ongelmaa, joten ajattelin laittaa sen tänne niin esimerkiksi neuvominen on helpompaa vaan en ole tapaa keksinyt eikä vielä ole myöskään neuvotut tavatkaan toimineet.

Eli minulla on C:\t.txt tiedosto, jossa on kuusi riviä tekstiä ja haluaisin sen kaiken näkymään text1.text (textbox), mutta kuinka?

Siis KOKO tiedoston sisältö pitäisi saada text1.text:iin.

r = "C:\t.txt"
If r = "" Then Exit Sub
Open r For Input As #1
Do Until EOF(1)
    Input #1, tieto
    Text1.Text = tieto
Loop
Close #1

Tolleen toimii... eli Doo loop lukee kaiken kunnes EOF eli tiedosto tulee loppuunsa ja sit se laittaa noi moskat text objektiin.

Muuten, mutta näköjään vbdos ei ymmärrä tuota ja se näyttää vikan rivin.

No siis, onko VBDOS:issa jotain "multiline"-ominaisuutta sillä tekstiboksilla? Jos on, niin se päälle ja eipä sitten muuta kuin:

dim t as string
open "foo.txt" for binary as #1
get #1,,t
close #1
text1.text = t

Fawkz, siellä on multiline valinta, mutta ei vaan saa toimimaan, kun se näyttää vain tyhjää textboxia tuolla sinunkin koodi esimerkilläsi.