Dictionary Search

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|480\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> Dictionary Search
Wed, 19 Mar 2025, 17:39
dna	Dictionary Search F2 Is the dictionary. W$ is he word read from it. ZZ$ is the line to be scanned. While Not Eof(F2) Or KeyDown(1) W$=ReadLine(F2):;For G=1 To Len(W$) If Len(W$)>=3 And Instr(Upper$(ZZ$),Upper$(W$),1) TW=Instr(Upper$(ZZ$),Upper$(W$),1):;Print TW ;Print (Mid$(ZZ$,TW,Len(W$))):Print Asc(Mid$(ZZ$,TW-1,1)):Print Asc(Mid$(ZZ$,TW+Len(W$),1)):Print W$: HALT(1) If (Upper$(Mid$(ZZ$,TW-1,1))=" ") And (Upper$(Mid$(ZZ$,TW+Len(W$),1))=Chr$(32)) Print W$:NF=NF+1 EndIf EndIf Wend --v I'm trying to get this code to scan a lin for words that are in my dictionary. It does it once but then exits. I cannot get his code to go through my dictionary. It's supposed to take a word from the dictionary and scan a line to see if it's inside the line. It does it once and then no more even though there's a while wend -=-=- DNA