5 svar · 304 visningar · startad av oJones
Försöker bli klok på Reg. Exp. men det går inget vidare.
Det hela är till en sökfunktion som ska söka igenom en databas. Alla poster i databasen är i VARCHAR (mysql).
Problemet kommer då man söker efter "0200". Det finns en post som heter just 0200, men den hittas inte. Däremot hittas 02 och 2000.
Samma sak gäller när man söker efter . (punkt).
Function PunchWord(astring)
astring = Replace(astring,",","%")
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true objRegExp.Pattern = sokord
Set matches = objRegExp.Execute(astring)
For Each match In matches
astring = Replace(astring,match,"<b>" & match & "</b>")
Next
Set matches = Nothing
Set objRegExp = Nothing
astring = Replace(astring,"%",",")
PunchWord = astring
End Function
Någon som kan hjälpa till?
Varför regexp överhuvudtaget?
replace(astring,sokord,"<b>" & sokord & "</b>")
Om du skall använda regexp så måste du särbehandla väldigt många tecken genom att skriva, t.ex.
pattern = "\."
om du vill söka på . eftersom det normalt betyder att man matchar ett godtyckligt tecken.
Anledningen till reg.Exp är att jag vill att den ska låta det sökta ordet stå kvar i exakt samma ordning vad gäller gemener/versaler.
Söker man efter "will" så skriver den ut <b>will</b> istället för <b>Will</b> som är det korrekta.
vet inte men kanske
Function PunchWord(astring)
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true objRegExp.Pattern = "" & Replace(sokord,".","\.")
Set matches = objRegExp.Execute(astring)
For Each match In matches
astring = Replace(astring,match,"<b>" & match & "</b>")
Next
Set matches = Nothing
Set objRegExp = Nothing
PunchWord = astring
End Function
Mixtrade lite o fickd etta att fungera...
<%
Function PunchWord(astring,sokord)
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = "" & Replace(sokord,".","\.")
Set matchesa = objRegExp.Execute(astring)
For Each matcha In matchesa
astring = Replace(astring,matcha,"<b>" & matcha & "</b>")
Next
Set matches = Nothing
Set objRegExp = Nothing
PunchWord = astring
End Function
%>
<%=PunchWord("min text her sa det sa","text")%>
Kom på en verson om du ska ha flera sökord....
<%
Function PunchWord(astring,sokord)
sokord = Replace(sokord,".","\.")
apa = split(sokord,",")
nya = ""
for i = 0 to ubound(apa)
nya = nya & "(" & apa(i) & ")"
if i <> ubound(apa) then
nya = nya & "|"
end if
next
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = nya
Set matchesa = objRegExp.Execute(astring)
For Each matcha In matchesa
astring = Replace(astring,matcha,"<b>" & matcha & "</b>")
Next
Set matches = Nothing
Set objRegExp = Nothing
PunchWord = astring
End Function
%>
<%=PunchWord("her har du en hel hog med ord ser du","har,hel,ord")%>
alltså dela upp med ,