ASP,vbs正则轮翻在文章段落后加上网址等内容
2008-06-25 16:31
567 查看
<script language ="vbs">
'函数名称:RegExpTest
'参数: strng--》要处理的字符串;patrn--》以|隔开的各种结尾标志如:<br/>|</p>|<br>; patrn2--》要替换成的字符串,也以|隔
开
'作者:柳永法(yongfa365)'Blog
'功能:将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容
Function RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches ' 建立变量。
Set regEx =New RegExp ' 建立正 则表达式。
regEx.IgnoreCase =True' 设置是否区分字符大小写。
regEx.Global =True' 设置全局可用性。
patrn = Split(patrn,"|")
ForEach p in patrn
regEx.Pattern = p ' 设置模式。
strng = regEx.Replace(strng,"||"& Chr(10)& p)
Next
strng = Split(strng,"||")
ForEach E in strng
s = s + E + arrArt(patrn2)
Next
RegExpTest = s
EndFunction
Function arrArt(patrn2)
arrArti = Split(patrn2,"|")
Randomize
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
EndFunction
strng ="111<br/>222</p>333<br/>444</p>555<Br>666</P>111"
Source = strng
patrn ="<br/>|</p>|<br>"
patrn2 ="www.xiaoshuo8.net|//www.jb51.net/blog|hi.baidu.com/"
words = RegExpTest(strng, patrn, patrn2)
MsgBox(words)
</script>
<script>
document.Write "<fieldset><legend>原字符串</legend>"+ Source +"</fieldset><br>"
document.Write "<fieldset><legend>转换后字符串</legend>"+ words +"</fieldset><br>"
</script>
'函数名称:RegExpTest
'参数: strng--》要处理的字符串;patrn--》以|隔开的各种结尾标志如:<br/>|</p>|<br>; patrn2--》要替换成的字符串,也以|隔
开
'作者:柳永法(yongfa365)'Blog
'功能:将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容
Function RegExpTest(strng, patrn, patrn2)
Dim regEx, Match, Matches ' 建立变量。
Set regEx =New RegExp ' 建立正 则表达式。
regEx.IgnoreCase =True' 设置是否区分字符大小写。
regEx.Global =True' 设置全局可用性。
patrn = Split(patrn,"|")
ForEach p in patrn
regEx.Pattern = p ' 设置模式。
strng = regEx.Replace(strng,"||"& Chr(10)& p)
Next
strng = Split(strng,"||")
ForEach E in strng
s = s + E + arrArt(patrn2)
Next
RegExpTest = s
EndFunction
Function arrArt(patrn2)
arrArti = Split(patrn2,"|")
Randomize
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
EndFunction
strng ="111<br/>222</p>333<br/>444</p>555<Br>666</P>111"
Source = strng
patrn ="<br/>|</p>|<br>"
patrn2 ="www.xiaoshuo8.net|//www.jb51.net/blog|hi.baidu.com/"
words = RegExpTest(strng, patrn, patrn2)
MsgBox(words)
</script>
<script>
document.Write "<fieldset><legend>原字符串</legend>"+ Source +"</fieldset><br>"
document.Write "<fieldset><legend>转换后字符串</legend>"+ words +"</fieldset><br>"
</script>
相关文章推荐
- ASP,vbs正则轮翻在文章段落后加上网址等内容
- vbs正则轮翻在文章段落后加上网址,网站名称,网站介绍等内容
- asp.net中文章内容分页
- asp.net文章内容分页代码
- asp 文章内容里的图片宽度过大 撑爆页面布局 解决办法
- 逆波兰表达式(此篇文章加上上篇栈文章,即可完美实现内容)
- asp.net 文章内容分页显示的代码
- ASP.NET使用代码访问网址,并读取响应的内容
- ASP.NET MVC入门教程(二)文章列表页、内容页的实现
- 复制文章时自动在文章末尾加上来源网址的代码
- asp把指定网址的内容生成为PDF文件ABCPDF示例代码及破解版下载
- 复制网页内容,粘贴之后自动加上网址的实现方法(脚本之家特别整理)
- ASP.NET自动给内容中的URL加上超链接(中国万网)
- asp中通过addnew添加内容后取得当前文章的自递增ID的方法
- ASP.NET MVC入门教程(三)文章评论内容的加载与显示
- Nhibernate 同 asp.net ,泛型,单元测试的最佳实践(同文章里的内容)
- ASP.NET访问网址并读取响应的内容
- asp把指定网址的内容生成为PDF文件ABCPDF asp 生成pdf