ASP正则表达式替换的问题

[yongtang]

我有如下ASP代码

<%
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)
%>

为什么执行后的结果是 Output 中的sample非但没有加粗，而是根本就消失了。请问这是为什么，应该如何正确写这段正则？

谢谢！

[virgo2008]

你想替换什么呢？

[yongtang]

就想把
sample
替换成
<b>sample</b>

[yongtang]

就想把
sample
替换成
<b>sample </b>

[virgo2008]

replace("sample","<b> sample</b>")

[街头小贩]

这样也可以呀:
replace("sample","[","<")
replace("sample","]",">")

[virgo2008]

确实！楼上的也行！

[wcwtitxu]

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

[cdcjk]

学习

[一把编程的菜刀]

<%
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)
%>

[一把编程的菜刀]

<%
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)
%>

[yongtang]

原来如此！！

实在感激wcwtitxu的提醒，是我参数传递错误了！真是个超级低级的错误！！

再次感谢明示和所有LS帮忙的朋友！！

结帖!

[yongtang]

楼上的方法确实可行

但是我也在学习正则表达式,遇到这样的情况比较郁闷,也希望能理解通这个疑惑!