Keskustelu: Ohjelmointikysymykset: QB: QB71 ja "Type mismatch"

EDIT:
Pahoittelen, turha keskustelu taas! Ongelma oli korjattu jo aikaisemmissa keskusteluissa, joskus kauan sitten, kun joku muu oli tapellut saman asian kanssa.

Mikähän mahtaa mättää, kun

IF INSTR(wfs(j).PID, p) THEN

valittaa "Type mismatch"? Tai itseasiassa se valittaa tuosta p:stä sitä. Ei kyllä oikein järki juokse nyt tämän kanssa yhtään. Tai joo tiedän kyllä mikä mättää (koodari), mutta kuinka pääsen eteenpäin asiassa niin, että se ei enää valita samaa virhettä ja toimii?

Tässä koko koodipätkä:

SUB listfiles (pth$)
j = 0
SELECT CASE LEN(pth$)
CASE IS > 1

DO
IF INSTR(wfs(j).Name, pth$) THEN
 p = j
END IF
j = j + 1
LOOP UNTIL j = UBOUND(wfs)

j = 0
DO
IF INSTR(wfs(j).PID, p) THEN
 PRINT wfs(j).Name
END IF
j = j + 1
LOOP UNTIL j = UBOUND(wfs)
END IF
j = j + 1
LOOP UNTIL j = UBOUND(wfs)

CASE ELSE



END SELECT
END SUB

Sita peeta ei ole maaritelty joten qb laittaa tyypiksi single.

Juu ymmärsin asian jo aiemmin, kun luin vanhempia keskusteluja samasta ongelmasta.
Nyt minulla tosin ilmeni uusi ongelma. Tuon pitäisi tulostaa (ja tulostaakin) wfs(j).Name eli vaikka "nimi", "toinen nimi", "kolmas nimi" jne, mutta se tulostaa myös tyhjää, jota se tulostaa ainakin 100 riviä niin, että nuo varsinaiset tekstit jää näkymättömiin.

Pitäisi varmaan tarkistaa, että onko wfs(j).Name tyhjä ja jos on niin se lopettaa silmukan tj, mutta järki ei näin kesällä ja usean vuoden tauon jälkeen enää pelaa.

Juuri näin kuvittelisin asian olevan. Koodin perusteella en äkkiseltään muutakaan syytä keksi.