Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: QB: QBasic, merkkijonomuunnos

Fisher [25.02.2006 16:23:15]

#

Minulla on merkkijono: .2.....8.1..9.6..7.79...41 jne.

Miten saan joka yhdennännennen ja kymmenennennen kirjaimen väliin merkin "p"?
Esim. .2.....8.p1..9.6..7p jne.

Antti Laaksonen [25.02.2006 16:38:34]

#

Yksi tapa on käyttää WHILE-silmukkaa. Tämän ohjelman toiminta perustuu siihen, että merkkijonosta otetaan aina yhdeksän ensimmäistä merkkiä. Ne lisätään uuteen merkkijonoon ja perään laitetaan "p". Sitten nämä merkit poistetaan alkuperäisestä merkkijonosta. Tätä toistetaan, kunnes alkuperäinen merkkijono on niin lyhyt, että se voidaan lisätä sellaisenaan merkkijonon loppuun.

teksti$ = ".2.....8.1..9.6..7.79...41"
WHILE LEN(teksti$) > 9
   uusi$ = uusi$ + LEFT$(teksti$, 9) + "p"
   teksti$ = MID$(teksti$, 10)
WEND
uusi$ = uusi$ + teksti$

PRINT uusi$

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta