A
azizemon
Guest
sub main()
Dim count AS integer
Dim Index AS integer
Dim StringData As integer
Console.writeline("Enter string data")
stringdata=console.readline()
Do
For Index=1 to Len(Names(count)
if stringdata=Mid(name(count)),Index,Len(Stringdata)
then
console.Writeline(names(count)
end if
Next
count=count+1
Loop until count>19
Continue reading...
Dim count AS integer
Dim Index AS integer
Dim StringData As integer
Console.writeline("Enter string data")
stringdata=console.readline()
Do
For Index=1 to Len(Names(count)
if stringdata=Mid(name(count)),Index,Len(Stringdata)
then
console.Writeline(names(count)
end if
Next
count=count+1
Loop until count>19
Continue reading...