Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Miten halutusta tiedostotsta saadaan etsittyä jokin tekstinpätkä, tulostaa teksti ja korostaa haluttu sana tai onko se mahdollista?
On se mahdollista. Periaate voisi olla esim. tällainen:
DIM ff AS INTEGER
DIM loytyi AS INTEGER
DIM etsi AS STRING
DIM rivi AS STRING
etsi = "sana" ' Mitä sanaa etsitään tiedostosta
loytyi = 0
ff = FREEFILE
OPEN "haluttu_tiedosto" FOR INPUT AS #ff
DO UNTIL EOF(ff)
LINE INPUT #ff, rivi
IF INSTR(1, rivi, etsi) > 0 THEN
loytyi = 1
EXIT DO
END IF
LOOP
CLOSE #ff
IF loytyi = 1 THEN PRINT "Sana " + etsi + " löytyi tiedostosta"
IF loytyi = 0 THEN PRINT "Sanaa " + etsi + " ei löytynyt tiedostosta"Huomaa, että tuossa voi olla virheitä koska en ole QB:llä tehnyt pitkäänaikaan mitään, mutta periaate on tuollainen.
Kiitos!
Aihe on jo aika vanha, joten et voi enää vastata siihen.