Keskustelu: Ohjelmointikysymykset: Merkkijonon jakaminen (QB)

Mun pitäis teherä yhteen ohojelmaan semmoonen että se jakaa merkkijonon aina välilyönnin kohoralta(ja välilyönnit pois). Sen siis pitäis jakaa COMMAND$ osiin.

Tässä yksi ratkaisu:

param$ = COMMAND$ + " "
WHILE INSTR(param$, " ")
   PRINT LEFT$(param$, INSTR(param$, " "))
   param$ = MID$(param$, INSTR(param$, " ") + 1)
WEND

Parametrilistasta poistetaan aina ensimmäisenä oleva parametri. Funktio INSTR etsii ensimmäisen välilyönnin paikan, LEFT$ erottaa ensimmäisen parametrin ja MID$ poistaa ensimmäisen parametrin sekä sitä seuraavan välilyönnin. Alussa parametrilistan loppuun lisätään välilyönti käsittelyn helpottamiseksi.

Toinen tapa ratkaista tämä voisi olla for-lause joka käytetään koko merkkijonon läpi ja tallennetaan saadut syötteet tauluun esim:

DIM taulu(1 TO 100) AS STRING ' eri parametreja voi olla yht 100 kappaletta.
param$ = COMMAND$
c = 1

FOR i = 1 TO LEN(param$)
  buffer$ = MID$(param$, i, 1) ' oliko se nyt (String, offset, length)?
  IF buffer$ <> " " THEN
    taulu(c) = taulu(c) + buffer$
  ELSE
    c = c + 1
  END IF
NEXT i

' ja nyt voimme katsella komentoja
PRINT taulu(2)

Omani on paljonkin pitempi kuin Laaksosen, mutta minä itse ymmärrän tekemäni koodin paremmin. En ole sitten varma onko juuri tuo pätkä toimiva(korkeintaan pari muokkausta niin kyllä se siitä sitten), mutta idean siitä saa.

Molemmat toimii mutta Wukkopin on parempi ku se vääntää ne taulukkoon. Pitää varmaa muuttaa subiks. Ny mä saan yhyren ohojelman valamiiks. Kiitos.