Keskustelu: Ohjelmointikysymykset: QB: tektsi seuraavalle riville

käytössäni on QB 4.5 (kirjoitin nytten ettei kenenkään tarvii siitä valittaa.... :D )
mulla on semmoinen ongelma että osaan tallentaa yhden rivin verran teksiä
mutta miten saisin enemmänkin tallennettua eli toisin sanoen miten voin tehdä käskyn että aina kun painetaan enteriä niin rivi vaihtuu olisin iloinen jos joku tietää osaa ratkaista tämän
vai onko semmoinen komento jo valmiina QB:ssa?
eli niinkuin näin:
===========================================================
cls
print input v$
if v$ = (" ") then ? 'noitten sulkujen sisälle tulisi vaikka se että kun painaa enteriä ja sitten jatkuu "then" kohdan jälkeen kysymysmerkin tilalle tulisi se että rivi vaihtuu olen kuullut että on joku käsky millä voi vaihtaa riviä mutta en tiedä mikä se olisi
ja voiko edes tekstiä tallentaa enemmän kuin rivin?
olisin todella iloinen jos joku voisi auttaa mua tässä ongelmassa

oon pahoillani kauheasta tavasta selittää taikka kirjoittaa
enkä ole ehtinyt miettiä pilkkuja taikka pisteitä...
mutta koulussa ei voi kirjoittaa kun nopeasti koska ope on äkäne :D

ainii ja voiko itse määritellä tiedoston nimeä esim. kala.txt

onnistuisiko se inputin kautta?

Siis mitähän nyt haluat? Haluatko tallentaa jotain vai tulostaa näytölle.

tekstin tallentaminen ja varsinkin sen tiedoston nimen määrittäminen valmiissa ohjelmassa käyttäjän kirjoittamana nimenä. Tuohon tiedoston nimi: perään voi kirjoittaa vaikka hinku.vinku tai mitä vain ja se tekee tuon nimisen tiedoston sinne missä itse ohjelmakin sijaitsee. Siihen voi kirjoittaa myös vaikka "C:\hinku.vinku" ilman lainausmerkkejä niin se tekee C-asemalle tiedoston hinku.vinku.

input "tiedoston nimi: ", tiedosto$
input "teksti mitä haluat tallentaa: ", teksti$

open tiedosto$ for output as #1
print #1, teksti$
close #1

output:n tilalle append niin se tallentaa perään ja tekstin näyttäminen on vähän jännempi asia, mutta jotenkin näin se onnistuu (siis koko tiedosto)

input "tiedosto minkä haluat avata: ", tiedosto$
open tiedosto$ for input as #1
do
input #1, teksti$
loop until eof(1)
close #1

tekstinkirjoitus ohjelmastani:

input "minkä tiedoston haluat avata? ", tiedosto$
cls
PRINT "| EXIT |"
open tiedosto$ for output as #1
do
input #1, "", c$
if c$ = "exit" or c$ = "EXIT" then end
print #1, c$
loop
close #1

Tämä tekstinkirjoitus ohjelma kirjoittaa monta riviä, jolloin pitää painaa vain välillä enteriä, jotta se input vaihtuisi uudelleen, jolloin tuo jostain syystä nappaa toisen rivin tiedostosta käyttöön ja kirjoittaa taas sinne kaiken mitä inputilla kirjoitat ja, kun exit kirjoittaa niin tuo ei laita tiedostoon "exit" sanaa vaan sammuu ja, kun tiedostoa lähdet katsomaan niin siellä on kaikki mitä kirjoitit.

Pilkut ovat vaan ongelma.

Pilkutkin toimii, jos käytät joko lainausmerkkejä kirjoittaessasi tai LINE INPUTia.

Aah line input, tuo tekstinkirjoitus ohjelma täytyykin heti korjata :)