Qbasic-čišćenje stringa

Korištenjem Trim funkcija. Koliko se sjećam postoji Trim, LTrim i RTrim. Isprobaj da li ti išta od ovga odgovara.

DIM ulaznitekst AS STRING
DIM izlaznitekst AS STRING

ulaznitekst = "  ana   voli    milovana   "
razmak$ = " "

ulaznitekst = LTRIM$(ulaznitekst)
ulaznitekst = RTRIM$(ulaznitekst)
FOR n% = 1 TO LEN(ulaznitekst)
      
        IF MID$(ulaznitekst, n%, 1) = razmak$ AND MID$(ulaznitekst, n% + 1, 1) = razmak$ THEN
                GOTO slijedeci
        END IF

        izlaznitekst = izlaznitekst + MID$(ulaznitekst, n%, 1)

slijedeci:
NEXT

brojrijeci% = 1
FOR n% = 1 TO LEN(izlaznitekst)
        IF MID$(izlaznitekst, n%, 1) = razmak$ THEN
                brojrijeci% = brojrijeci% + 1
        END IF
NEXT

PRINT izlaznitekst + " sadrzi "; brojrijeci%; "rijeci"

Ovo sam nabrzinu nabacao u Qbasicu 1.1 (provjereno radi i u 7.1)

kod nije bas najlijepsi ali radi, ako imas kakvih pitanja rado cu ti objasniti :)

btw. ova druga FOR petlja koja broji rijeci u stringu zapravo broji razmake i dat ce netocan rezultat ako joj ubacis string koji nije prethodno ociscen od suvisnih razmaka, a takoder ne uzima u obzir situaciju ako je cijeli string sacinjen samo od razmaka. Eto imas i priliku poboljsati kod da ne kazes da sam ti bas sve na pladnju servirao :D