高考问答地下城堡2职业属性详解:请问这个用正则表达式怎样替换？（50分悬赏）
来源：百度文库 编辑：高考问答 时间：2024/04/29 05:18:10
采集的网页里有
/1234567/123.gif
/1234567/163.gif
/1234567/138.gif
/1234567/223.gif
/1234567/…….gif
我需要全部变成
/1234567/qq/123.gif
/1234567/qq/163.gif
/1234567/qq/138.gif
/1234567/qq/223.gif
/1234567/qq/…….gif
入到我的数据库，请问怎么替换？
我编辑是 /1234567/(*).gif替换为 /1234567/qq/(*).gif
但是不行 最终显示的就是(*).gif
不能直接用/1234567/qq/123.gif替换/1234567/123.gif ，因为123.gif这个是一直变的 我没办法手动一个个改
/1234567/123.gif
/1234567/163.gif
/1234567/138.gif
/1234567/223.gif
/1234567/…….gif
我需要全部变成
/1234567/qq/123.gif
/1234567/qq/163.gif
/1234567/qq/138.gif
/1234567/qq/223.gif
/1234567/qq/…….gif
入到我的数据库，请问怎么替换？
我编辑是 /1234567/(*).gif替换为 /1234567/qq/(*).gif
但是不行 最终显示的就是(*).gif
不能直接用/1234567/qq/123.gif替换/1234567/123.gif ，因为123.gif这个是一直变的 我没办法手动一个个改
这个直接用“/1234567/”替换成“/1234567/qq/”就可以了，不用正则表达式
你可以利用最后一个“/”来做标志位
获取“/”前，和“/”后面的字符串
暂且叫做rightstr 和 leftstr然后将／qq／加在中间就可以了
用做批量的循环我没写
你自己来写吧
<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全程匹配。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 循环遍历Matches集合。
RetStr = Match.FirstIndex
Next
RegExpTest = RetStr
End Function
%>
<%
dim x
dim str,leftstr,rightstr,midstr
midstr="/qq/"
str="/1234567/123.gif "'利用1234567/123.gif 来做例子
x= RegExpTest("/",str)
leftstr=left(str,x)
rightstr=right(str,x)
str=leftstr&midstr&rightstr
response.Write str
%>
不懂