Keskustelu: Ohjelmointikysymykset: QB: Mikä väärin tässäkin???

Siis kuvitelkaa nyt, tällaista juttua en millään saa toimimaan:

cooltext$ = "abc"

textlength = LEN(cooltext$)

FOR whatsign = 0 TO textlength
  coolsign$ = MID$(cooltext$, whatsign, 1)

  IF coolsign$ = "a" THEN
    PRINT "a"
  ELSEIF coolsign$ = "b" THEN
    PRINT "b"
  ELSEIF coolsign$ = "c" THEN
    PRINT "c"
  END IF
NEXT

Missä bugi piilee?

MID$-funktion kohta ei voi saada arvoa 0, joten vaihda FOR-loopin alku muotoon:

FOR whatsign = 1 to textlength

Korjattu:

cooltext$ = "abc"

textlength = LEN(cooltext$)

FOR whatsign = 1 TO textlength
coolsign$ = MID$(cooltext$, whatsign, 1)

IF coolsign$ = "a" THEN
PRINT "a"
ELSEIF coolsign$ = "b" THEN
PRINT "b"
ELSEIF coolsign$ = "c" THEN
PRINT "c"
END IF
NEXT

Bugi piilee siinä, että tuohon mid komentoon ei voi laittaa nollaa. Elikkä ensimmäinen merkki 1 eikä 0.

No siinä se vika sitten oli! Kiitokset avusta!! :)