Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Code Snippets / Search snippet

Author
Message
xmen
21
Years of Service
User Offline
Joined: 27th Jan 2003
Location:
Posted: 31st Jan 2003 00:27
if it can help then use it

[/`...................................................
`...................................................


`.......................Modify By XMEN..............


`...................................................
`...................................................

dim found$(1000)
Filename$ = "c:\filename.txt"

Input "Search For Word: ", Word$
Open To Read 1, Filename$

Wrd = Len(Word$)

Set Cursor 0,45
Found = 0

a$=" "
temp1$=""
Repeat
Read String 1, Search$

for a=1 to 256

if mid$(Search$,a)=" " then a$=""

if mid$(Search$,a)" "

Temp1$ =""+mid$(Search$,a)
a$=a$+temp1$
Temp2$ =a$

if len(a$)=len(Word$) then a$=""
endif

If Upper$(Temp2$) = Upper$(Word$) or lower$(Temp2$) = lower$(Word$)

Found = Found + 1

found$(found)=Search$
Text 0, 30, "Search Found: " + Str$( Found )
found$(line)=Search$
line=line+1

a$=""

exit
EndIf

next a
a$=""
a=0

Until File End(1)=1
Close File 1
cls
number=0
repeat

print "........Search For Word...... : "+" "+Word$
print
ink rgb(255,255,255),1
Print "Number of Word found : "+str$(found)
print

Print "Sentence: "+str$(number+1)+": of "+str$(found)
print
ink rgb(255,0,0),1

print found$(number)

ink rgb(255,255,255),1

print "Press Any Key"
suspend for key
cls
number=number+1

until number=line

cls
print "No more word found"
end
]
xmen
21
Years of Service
User Offline
Joined: 27th Jan 2003
Location:
Posted: 31st Jan 2003 00:29
[`...................................................
`...................................................


`.......................Modify By XMEN..............


`...................................................
`...................................................

dim found$(1000)
Filename$ = "c:\filename.txt"

Input "Search For Word: ", Word$
Open To Read 1, Filename$

Wrd = Len(Word$)

Set Cursor 0,45
Found = 0

a$=" "
temp1$=""
Repeat
Read String 1, Search$

for a=1 to 256

if mid$(Search$,a)=" " then a$=""

if mid$(Search$,a)<>" "

Temp1$ =""+mid$(Search$,a)
a$=a$+temp1$
Temp2$ =a$

if len(a$)=len(Word$) then a$=""
endif

If Upper$(Temp2$) = Upper$(Word$) or lower$(Temp2$) = lower$(Word$)

Found = Found + 1

found$(found)=Search$
Text 0, 30, "Search Found: " + Str$( Found )
found$(line)=Search$
line=line+1

a$=""

exit
EndIf

next a
a$=""
a=0

Until File End(1)=1
Close File 1
cls
number=0
repeat

print "........Search For Word...... : "+" "+Word$
print
ink rgb(255,255,255),1
Print "Number of Word found : "+str$(found)
print

Print "Sentence: "+str$(number+1)+": of "+str$(found)
print
ink rgb(255,0,0),1

print found$(number)

ink rgb(255,255,255),1

print "Press Any Key"
suspend for key
cls
number=number+1

until number=line

cls
print "No more word found"
end
][/]

Login to post a reply

Server time is: 2024-03-28 13:12:53
Your offset time is: 2024-03-28 13:12:53