Keskustelu: Koodit: QB: Lukujen tulostus

Jos kirjoittaa QBasicissa PRINT-käskyllä esim. "Minä olen " + IKA + "-vuotias", ohjelma kirjoittaa "Minä olen 11 -vuotias", vaikka haluaisimme "Minä olen 11-vuotias". Tämä funktio korjaa asian. Esimerkiksi PRINT "Minä olen " + XPRINT(IKA) + "-vuotias" kirjoittaisi "Minä olen 11-vuotias". Ohjelma siis poistaa turhat välilyönnit luvun edestä ja takaa. Esimerkiksi tulostettaessa luku 11, ohjelma tulostaisi " 11 ", mutta tämän funktion takia "11".

Itse funktio

SUB XPRINT$(LUKU)
  XPRINT$(LUKU) = LTRIM$(RTRIM$(STR$(LUKU)))
END SUB

Pieni malli

IKA = 11
PRINT "Minä olen " + XPRINT(IKA) + "-vuotias."    ' Minä olen 11-vuotias.
PRINT "Minä olen" + IKA + "-vuotias"                   ' Minä olen  11 -vuotias.

Kommentteja kiitos.

Olisi sitä TRIM-funktiotakin voinut käyttää, tähän malliin:

IKA = 12
PRINT "Minä olen " + TRIM(IKA) + "-vuotias."      'Minä olen 12-vuotias.
PRINT "Minä olen" + IKA + "-vuotias."             'Minä olen  12 -vuotias.

Jaa. En minä sitä tiennyt, kun tuolla Putkan QB-hakemistossa ei ole sitä.

ups, eihän semmoista ainakaan 4.5 tunne, sori

No, onhan tuosta sitten jotain hyötyä. Ja siinähän on se STR$-funktiokin mukana.

Jep