Direct replacement with regular, but no judgment function
Function formatimg (content)
Dim re
Set re=new REGEXP
Re. IgnoreCase =true
Re. Global=true
Re. pattern= "(script)"
Content=re. Replace (Content, "script")
Re. Pattern= "]*src (=|) (. [^>]*) > "
Content=re.replace (Content, "Set re = Nothing
formatimg = Content
End Function
This code replaces the picture in the content with the in this form,
I now need to extract the first 7 characters of $ to determine if the need to be replaced, if the first 7 = a specific character, do not replace, but get $7 cannot. What can we do to recruit Satan?
The main reference is the following code, you can see
' Connect
Re. Pattern = "\[url= (. [ ^\]]*)\](. [^\[]*) \[\/url] "
Set Strmatchs=re. Execute (strcontent)
For each strmatch in Strmatchs
Tmpstr1=checkurl (strmatch.submatches (0))
Tmpstr2=strmatch.submatches (1)
Strcontent=replace (Strcontent,strmatch.value, "<a target=" "_blank" "href=" "" &tmpStr1& "" > "& tmpstr2& "</a>", 1,-1,0)
Next
Here is the documentation for the regular matchs.
Http://www.jb51.net/article/15362.htm
Here's a cloud-dwelling community that tests the code, and you can make a function
<%
content2= " The middle of some content '
Dim re
Set re=new REGEXP
Re. IgnoreCase =true
Re. Global=true
Re. Pattern= "]*src (=|) (. [^>]*) [/]?> "
Set Matches=re.execute (Content2)
For each strmatch in matches
Tmpstr1= (Strmatch.submatches (1))
Tmpurl=replace (replace (TMPSTR1, "'", ""), "" "", "" "
Response.Write Left (tmpurl,20)
If left (tmpurl,19) = "Http://www.jb51.net" Then
Picurl=tmpurl
Else
Picurl= "Http://img.jb51.net/showpic.asp?url=" &tmpurl
End If
Content=replace (Content2,strmatch.value, "Next
Response.Write Content
Set re = Nothing
%>
