Hej!
Jeg har et lille problem.
Jeg søger i en database ved brug af Where x Like y men har et lille
problem er at hvis jeg søger efter noget med wildcard vil jeg gerne
have den skal søge på enkelte ord.
F.x. ka%ope skal resultere i Kaleidoscope men ikke "Kaninen har en fin
hale. ... og så noget der ender på ope"
Jeg har det samme problem med Regular Expressions, som kan ses her:
http://www.ghashul.dk/christianlyrics/lyrics.asp?SongID=338&keywords=su%25or
Hele det store stykke skal selvfølgelig ikke markeres, men derimod
ordet Superior.
Det her er mit regexp script:
Function ReplaceTest(S, Pat)
Dim re
Set re = New RegExp
'Un-escape Pat
re.Pattern = "([\?\*\+\.\|\{\}\\\[\]\(\)])"
re.IgnoreCase = True
Pat = re.Replace(Pat, "\\$1")
Pat = Replace(Pat,"%",".*")
' Udfør
re.Pattern = "(" & Pat & ")"
re.IgnoreCase = True
re.Global = True
ReplaceTest = re.Replace(S, "<b><A
STYLE=""background=#44640D"">$1</A></b>")
End Function
Lyrics = ReplaceTest(Lyrics,Words(n))
--
Regards Sir Ghashûl, Knight of The alt.Roundtable <><
ICQ: 7223629
E-mail: stefan@bruhn.to
URL:
http://www.ghashul.dk