Code

Define find(in, lis)=Func
Local str, i
For i, 1, dim(lis), 2
lis[i]->str
If inString(str, “*”) != 0 Then
If right(str, 1) =“*”
left(str, dim(str)-1)->str
If left(str, 1)= “*”
right(str, dim(str)-1)->str
If inString(in, str)
Return i
Else
If in=str
Return i
EndIf
EndFor
Return -1
EndFunc