一个转换输出函数.可以用于模板转换
2006-10-20 15:11
267 查看
'/********************************
'店铺用来包含的文件
'/*******************************
Function include(filename)'filename代表的是文件名
Dim re,content,fso,f,aspStart,aspEnd
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing
set re=new RegExp
re.pattern="^/s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
'asp=inStr(aspStart,content,"%/>")+2
'response.Write(aspEnd&"|"&aspStart&"<br>"&asp)
do while aspStart>aspEnd+1
'输出% >与<%之中的字符串,如表格等..
Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%/>")+2'%/>是转换符
'相当于去掉=号前面包括空格、制表符、换页符前面的的字符串用Response.Write来代替,如:<%=SYS_WEBNAME % >
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.write Mid(content,aspEnd)
content=""
set re=nothing
End Function
有用的二个函数
'/**************************************
'/移除HTML标签
'/**************************************
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
'/*****************************
'/移除链接的代码<a *****></a>
'/*****************************
function removeUrl(strContent)
dim a,b,c,d,e,f
do while instr(strContent,"<a")>0
a=instr(strContent,"<a")
b=instr(strContent,"</a>")
c=b+4-a
d=mid(strContent,a,c)'有链接的字符
e=instr(d,">")
f=left(right(d,len(d)-e),len(right(d,len(d)-e))-4)'无链接的字符
strContent=replace(strContent,d,f)
loop
removeUrl=strContent
end function
'店铺用来包含的文件
'/*******************************
Function include(filename)'filename代表的是文件名
Dim re,content,fso,f,aspStart,aspEnd
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing
set re=new RegExp
re.pattern="^/s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
'asp=inStr(aspStart,content,"%/>")+2
'response.Write(aspEnd&"|"&aspStart&"<br>"&asp)
do while aspStart>aspEnd+1
'输出% >与<%之中的字符串,如表格等..
Response.write Mid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%/>")+2'%/>是转换符
'相当于去掉=号前面包括空格、制表符、换页符前面的的字符串用Response.Write来代替,如:<%=SYS_WEBNAME % >
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))
aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.write Mid(content,aspEnd)
content=""
set re=nothing
End Function
有用的二个函数
'/**************************************
'/移除HTML标签
'/**************************************
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
'/*****************************
'/移除链接的代码<a *****></a>
'/*****************************
function removeUrl(strContent)
dim a,b,c,d,e,f
do while instr(strContent,"<a")>0
a=instr(strContent,"<a")
b=instr(strContent,"</a>")
c=b+4-a
d=mid(strContent,a,c)'有链接的字符
e=instr(d,">")
f=left(right(d,len(d)-e),len(right(d,len(d)-e))-4)'无链接的字符
strContent=replace(strContent,d,f)
loop
removeUrl=strContent
end function
相关文章推荐
- 【剑指offer】C语言:实现函数可以将一个字符串转换为对应的整数,如+1234输出1234
- 写了一个将VxWorks的shell打印输出到指定内存中的接口,可广泛用于CLI下的调试函数显示以及故障自动捕获等功能,稍作修改可以适合其它嵌入式OS
- 【剑指offer】C语言:实现函数可以将一个字符串转换为对应的整数,如+1234输出1234
- 用递归法将一个整数n转换成字符串,例如输入483,应输出字符串“483”。n的位数不确定,可以是任意位数的整数。
- 请编写一个C函数,该函数可以实现将一个整数转为任意进制的字符串输出
- 一个时间格式的函数,可以把时间格式为各种输出
- 例题:把一个超市购物的题做成函数。这个题做成函数没有必要,但可以了解输入参数,输出参数,返回值,函数体,还有结构体,ArryList集合,for循环算结果,以及集合里 .count的使用
- 2-16进制的随意转换,输入一个整数可以直接输出他的八进制或者十六进制
- 习题 7.17 用递归法将一个整数n转换成字符串。例如,输入483,应输出字符串“483”。n的位数不确定,可以是任意位数的整数。
- 请编写一个C函数,该函数可以实现将一个整数转为任意进制的字符串输出
- 请编写一个C函数,该函数可以实现将一个整数转为任意进制的字符串输出
- SAP ABAP一个可以直接把内表转换成xml文件的函数
- 一个可以用于输出信息的窗口程序
- 实现一个函数int my_atoi(char s[]),可以将一个字符串转换为对应的整数
- [C++ 平时小练习] 写一个函数gene 用于输出正整数的全部因子,例如当k=126时,如下格式输出126=2*3*3*7
- 用递归法将一个整数n转换成字符串。例如,输入483,应输出字符串“483”。n的位数不确定,可以是任意位数的整数。
- 请编写一个C函数,该函数可以实现将一个整数转为任意进制的字符串输出
- vb6的一些自己写的函数 用于类型转换,十六进制输出,字节转换
- 编写函数,其功能是:将一个数字字符串转换为一个整数(不得调用C语言中提供的将字符串转换成整数的函数。)要求在主函数中输入该字符串并输出转换后的整数的值。
- 请编写一个C函数,该函数可以实现将一个整数转为任意进制的字符串输出