asp字符替换
2008-04-03 14:24
225 查看
<%
st = "{名字}{称呼}你好,请问你是{公司}的吗?希望{名字}{称呼}能支持我们的调查."
Dim A(2),b(2)
A(0) = "{名字}"
A(1) = "{称呼}"
A(2) = "{公司}"
b(0) = "alex"
b(1) = "先生"
b(2) = "电信"
Function ReplaceTest(patrn, replStr)
Dim regEx'建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = False '设置是否区分大小写。
ReplaceTest = regEx.Replace(st, replStr) '作替换。
End Function
Function RegExpTest(patrn, strng) '查找字符
Dim regEx, retVal '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
RegExpTest = retVal
End Function
for i = 0 to 2
while RegExpTest(A(i),st)
st = ReplaceTest(A(i), b(i))
wend
next
response.write st
%>
st = "{名字}{称呼}你好,请问你是{公司}的吗?希望{名字}{称呼}能支持我们的调查."
Dim A(2),b(2)
A(0) = "{名字}"
A(1) = "{称呼}"
A(2) = "{公司}"
b(0) = "alex"
b(1) = "先生"
b(2) = "电信"
Function ReplaceTest(patrn, replStr)
Dim regEx'建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn '设置模式。
regEx.IgnoreCase = False '设置是否区分大小写。
ReplaceTest = regEx.Replace(st, replStr) '作替换。
End Function
Function RegExpTest(patrn, strng) '查找字符
Dim regEx, retVal '建立变量。
Set regEx = New RegExp '建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
RegExpTest = retVal
End Function
for i = 0 to 2
while RegExpTest(A(i),st)
st = ReplaceTest(A(i), b(i))
wend
next
response.write st
%>
相关文章推荐
- asp.net 2005 替换SQL危险字符
- asp.net替换和恢复html特殊字符
- ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符
- asp.net 字符替换 <: &lt; >: &gt; &: &amp;
- asp.net 字符串替换、截取和从字符串中最后某个字符 开始截取
- ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符
- ASP.net(c#)单元格中用"..."替换超长字符
- ASP.NET里的字符替换一例
- asp.net高效替换大容量字符实现代码
- 非法字符替换,防SQL注入(asp)
- asp.net 正则替换html标签与删除指定字符方法
- ASP替换字符
- asp.net 正则替换html标签与删除指定字符方法
- ASP.NET生成静态页面和分页主要的原理就是替换模板里的特殊字符
- ASP.NET里的字符替换一例
- ASP字符替换
- ASP.NET 替换字符 防SQL注入
- asp.net替换和恢复html特殊字符
- asp。met 2.0 字符替换,过滤简单操作
- 因为公司的产品用asp开发, 前一段时间用asp写了一个生成静态页面并分页的程序,但缘于对.net的热爱,写了这个.net下的生成静态页面并分页的程序。 主要的原理就是替换模板里的特殊字符。