这里需要进行字符串操作...由于我从来没有真正接触过正则表达式,所以很久以前我就用了一堆自己的方法来以各种方式操纵文本。相当丑陋,效率也不是最好的,但它能够工作。
首先,在您的代码中添加这些函数:
Function GetBetween(str, leftDelimeter, rightDelimeter)
Dim tmpArr, result(), x
tmpArr=Split(str, leftDelimeter)
If UBound(tmpArr) < 1 Then
GetBetween=Array() : Exit Function
End If
ReDim result(UBound(tmpArr)-1)
For x=1 To UBound(tmpArr)
result(x-1)=(Split(tmpArr(x), rightDelimeter))(0)
Next
Erase tmpArr
GetBetween=result
End Function
Function ReplaceWholeWord(ByVal strText, strWord, strToReplaceWith)
ReplaceWholeWord = strText
If InStr(strText, strWord)<1 Then Exit Function
If strText=strWord Then
strText = Replace(strText, strWord, strToReplaceWith)
Else
If InStr(strText, strWord & " ")=1 Then
strText = strToReplaceWith & " " & Right(strText, Len(strText) - Len(strWord & " "))
End If
If Right(strText, Len(" " & strWord))=(" " & strWord) Then
strText = Left(strText, Len(strText) - Len(" " & strWord)) & " " & strToReplaceWith
End If
If Right(strText, Len(" " & strWord & "."))=(" " & strWord & ".") Then
strText = Left(strText, Len(strText) - Len(" " & strWord & ".")) & " " & strToReplaceWith & "."
End If
strText = Replace(strText, " " & strWord & " ", " " & strToReplaceWith & " ")
End If
ReplaceWholeWord = strText
End Function
有了这些函数,下面是一个示例代码,可以按照您想要的方式替换关键字:
Const KEYWORD = "keyword"
Dim strHTML, arrTagsToFind, x
Dim curItemsArray, y, curItem
Dim curReplacedItem
arrTagsToFind = Array("p", "div")
strHTML = "<b>this keyword will not be replaced</b><p>Some text with the keyword.</p>keyword here won't be replaced too<p>Some other text with the keyword22 that is not whole word but end with keyword</p><div>keyword first</div>"
For x=0 To UBound(arrTagsToFind)
curItemsArray = GetBetween(strHTML, "<" + arrTagsToFind(x) + ">", "</" + arrTagsToFind(x) + ">")
For y=0 To UBound(curItemsArray)
curItem = curItemsArray(y)
curReplacedItem = ReplaceWholeWord(curItem, KEYWORD, "<a href=""#foo"">" & KEYWORD & "</a>")
strHTML = Replace(strHTML, curItem, curReplacedItem)
Next
Next
Response.Write(strHTML)
:)
- Praveen Kumar Purushothaman