asp替换字符
把代码[upload=jpg,4b3a5f06x821d17e56662&690.jpg]UploadFile/2010-4/20104219512634309.jpg[...
把代码[upload=jpg,4b3a5f06x821d17e56662&690.jpg]UploadFile/2010-4/20104219512634309.jpg[/upload]
替换成下面
<img src="UploadFile/2010-4/pre201012614202859528.jpg" alt= >
其中/2010-4/是日期,不确定的
[upload=jpg,4b3a5f06x821d17e56662&690.jpg]UploadFile/2010-4/20104219512634309.jpg[/upload]
替换成下面这一句
<img src="xiaoxi/2010-4/pre20104219512634309.jpg" alt= >
其中/2010-4/是日期,不确定的 展开
替换成下面
<img src="UploadFile/2010-4/pre201012614202859528.jpg" alt= >
其中/2010-4/是日期,不确定的
[upload=jpg,4b3a5f06x821d17e56662&690.jpg]UploadFile/2010-4/20104219512634309.jpg[/upload]
替换成下面这一句
<img src="xiaoxi/2010-4/pre20104219512634309.jpg" alt= >
其中/2010-4/是日期,不确定的 展开
1个回答
展开全部
Function RegTxt(TheStr)
Dim RegArr
Set RegEx = New RegExp
RegEx.IgnoreCase =True
RegEx.Global = True
RegEx.Pattern= reg
RegEx.Pattern = "\[upload=.*?,.*?\]UploadFile\/(.*?)\/(.*?)\[\/upload\]"
RegTxt=RegEx.replace(TheStr,"<img src=""xiaoxi/$1/pre$2"" alt= > ")
End Function
图片地址也是不确定的吧
用这个函数看看
Dim RegArr
Set RegEx = New RegExp
RegEx.IgnoreCase =True
RegEx.Global = True
RegEx.Pattern= reg
RegEx.Pattern = "\[upload=.*?,.*?\]UploadFile\/(.*?)\/(.*?)\[\/upload\]"
RegTxt=RegEx.replace(TheStr,"<img src=""xiaoxi/$1/pre$2"" alt= > ")
End Function
图片地址也是不确定的吧
用这个函数看看
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询