当前位置：首页 → 问答吧 → 用asp获取某一特殊字符后的内容

用asp获取某一特殊字符后的内容

时间：2011-08-21

来源：互联网

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>无标题 1</title> </head> <body> <script type="text/vbscript"> Function fExtStr(strContent) Dim objRegExp Set objRegExp=new RegExp objRegExp.IgnoreCase =true objRegExp.Global=True objRegExp.Pattern="(\.\w+){1}$" If objRegExp.Test(strContent)=True Then Set objMatch=objRegExp.Execute(strContent) strContent=objMatch(0).Value Set objMatch=Nothing End If Set objRegExp=Nothing fExtStr=strContent End Function msgbox fExtStr("文件.doc.dfdfg.txt") </script> </body> </html>
提示：您可以先修改部分代码再运行

复制内容到剪贴板

代码:

Function fExtStr(strContent)
Dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="(\.\w+){1}$"
If objRegExp.Test(strContent)=True Then
Set objMatch=objRegExp.Execute(strContent)
strContent=objMatch(0).Value
Set objMatch=Nothing
End If
Set objRegExp=Nothing
fExtStr=strContent
End Function
Response.write fExtStr("文件.doc.txt")

我贴出来的代码是获取最后一个点后面的内容了

这个怎么改成
如果域名不是aaa.com（相对于www.aaa.com而言的）
的形式就获取
第一个点后面的内容？

作者: wj1320 发布时间: 2011-08-21

去掉正则表达式中最后一个＂$＂符号

作者: SenFe 发布时间: 2011-08-21