kuinka voin lukea tiedostosta?

[minä]

kuinka voin lukea tiedostosta jonkun rivin tällein
jos rivillä joku=tekstiä minä niin tee jotain?

[Pie2]

Tein tässä nopeasti aamulla. Eli se kay helposti esim. lukemalla tiedosto ensin taulukkoon, ja sen jälkeen käymällä vaikka jokaisen rivin ensimmäinen sana läpi.

Code: Select all

//KOMMINTOINTI EI OLE KUMMOSTA KOSKA AAMULLA ON KIIRE
//luodaan nopeasti joku rand0m tiedosto
f=OpenToWrite("Media\temp.dat")
    WriteLine f,"Tässä"
    WriteLine f,"Tiedostossa ON tekstiä."
    WriteLine f,"makeerror lol"
    WriteLine f,"sataa"
CloseFile f

//VARSINAINEN LUKU ALKAA
Dim rivi (10) As String

f=OpenToRead("Media\temp.dat")
    While Not EOF(f) //luetaan kunnes tiedosto on luettu kokonaan
        rivi(i)=ReadLine(f):i=i+1
    Wend
CloseFile f
rivi_maara=i-1
//KÄYDÄÄN LÄPI RIVIT

For i=0 To rivi_maara
    word1$=GetWord(rivi(i),1) //Ensimmäinen sana rivillä
    word2$=GetWord(rivi(i),2) //Toinen sana rivillä
    //TARKISTETAANKO onko jokin tietty sana
    If word1="makeerror" Then MakeError(word2)
Next i


//voit myös yhdistellä lower/upper,countwords,trim ja case komentoja... ne on hyvä osata

Edit:
tuohon joku=tekstiä komentoon vielä. Eli perjaatteessa kyseesä on skriptimoottori(tai sitten ei) tällöin kannattaa laittaa: tekstä$ = "jono". Sitten tarkastat koodissa onko ensimmäinen sana muuttuja(loppuu $) ja teet jonkinlaisen taulukko/funktiohärpäkkeen johon tallennat arvot. Jos kuitenkin teet vain asetustiedostoa peliisi voit laittaa vaikka että 1 = "jono"... ja sitten vain lukea sen if lausekkeen kautta( jos eka_sana = 1 niin teksti$ = kaikki_lainasumerkkien välissä). Mut nyt on kiire>

[Drath]

Näppäintutoriaalissa on viimeisellä sivulla ohje tiedoston lukemisesta joka on muodossa jotain = jotain. Joudut tietenkin soveltamaan mutta siinä on yksi esimerkki.