28,409
社区成员




<%
function RegReplace(InputPattern,InputString,ReplaceString)
dim regEx
set regEx=new RegExp
regEx.Pattern=InputPattern
regEx.IgnoreCase=true
RegReplace=regEx.Replace(InputString,OutputString)
set regEx=nothing
end function
dim sOriginalString
sOriginalString="This is the sample text."
dim sPattern
sPattern="(\[b\])(\S+)(\[/b\])"
dim sReplaceString
sReplaceString="<b>$2</b>"
Response.Write "Original" & "<br>" & sOriginalString & "<br><br><br>"
Response.Write "Output" & "<br>" & RegReplace(sPattern,sOriginalString,sReplaceString)
%>
<%
function RegReplace(InputPattern,InputString,ReplaceString)
dim regEx
set regEx=new RegExp
regEx.Pattern=InputPattern
regEx.IgnoreCase=true
RegReplace=regEx.Replace(InputString,ReplaceString)
set regEx=nothing
end function
dim sOriginalString
sOriginalString="This is the sample text."
dim sPattern
sPattern="(\[b\])(.*?)(\[/b\])"
dim sReplaceString
sReplaceString="<b>$2</b>"
Response.Write "Original" & "<br>" & sOriginalString & "<br><br><br>"
Response.Write "Output" & "<br>" & RegReplace(sPattern,sOriginalString,sReplaceString)
%>
<%
function RegReplace(InputPattern,InputString,ReplaceString)
dim regEx
set regEx=new RegExp
regEx.Pattern=InputPattern
regEx.IgnoreCase=true
RegReplace=regEx.Replace(InputString,OutputString)
set regEx=nothing
end function
dim sOriginalString
sOriginalString="This is the sample text."
dim sPattern
sPattern="(\[b\])(.*?)(\[/b\])"
dim sReplaceString
sReplaceString="<b>$2</b>"
Response.Write "Original" & "<br>" & sOriginalString & "<br><br><br>"
Response.Write "Output" & "<br>" & RegReplace(sPattern,sOriginalString,sReplaceString)
%>