社区服务
银行
门派

风格切换
wind
wind5

本页主题: 请教一个正则表达式问题打印 \| 加为IE收藏 \| 复制链接 \| 收藏主题 \| 上一主题 \| 下一主题

我是学生

今宵没的睡

级别: 江湖大侠

精华: 3
发帖: 762
威望: 571 点
财富: 40 K币
贡献值: 0 点
注册时间:2005-11-25
最后登录:2008-11-12

小中大引用推荐编辑只看复制

请教一个正则表达式问题

我要实现的功能是：

程序中读入另外一个HTM 文件，并显示在当前页面的一个层中。如下：

<html>
<head>
</head>
<body>
......
<div>
<%
读取HTML 文件的内容并输出
%>
</div>
......
</body>
</html>

可是读出的HTM 文件内容里仍然包含 HTML 代码对。我想用正则表达式将其它部分全都过滤掉，只留 <body></body> 中间的内容（不包含body标记）。

不知这个正则表达式怎么写？

这个世界上只有两件事是最公平的:
1.每个人每天都只有24小时;
2.每个人都必须面对死亡.
-------------------------------------------------------------
本人长期受理动态ASP网页制作与修改，留言簿、论坛制作等业务。
我的邮箱我的主页

顶端 Posted: 2008-09-01 12:54 | [楼主]

我是学生

今宵没的睡

级别: 江湖大侠

精华: 3
发帖: 762
威望: 571 点
财富: 40 K币
贡献值: 0 点
注册时间:2005-11-25
最后登录:2008-11-12

小中大引用推荐编辑只看复制

已解决

问题已解决。

Copy code

<script language="VBScript">
     Sub Window_Onload
         Dim vStr, regEx
         vStr = document.all(0).outerHTML
         Set regEx = New RegExp
         regEx.Pattern = "^[\S\s]+<body>([\S\s]+)<\/body>[\S\s]+$"
         regEx.Global = False
         regEx.IgnoreCase = True
         MsgBox "替换前：" & vbCrlf & vStr & vbCrlf & vbCrlf & _
                "替换后：" & vbCrlf & regEx.Replace(vStr, "$1")
         Set regEx = Nothing
     End Sub
</script>
<body>
   <font color="red">Hello World!</font>
</body>

这个世界上只有两件事是最公平的:
1.每个人每天都只有24小时;
2.每个人都必须面对死亡.
-------------------------------------------------------------
本人长期受理动态ASP网页制作与修改，留言簿、论坛制作等业务。
我的邮箱我的主页

顶端 Posted: 2008-09-01 14:13 | 1 楼

	帖子浏览记录版块浏览记录
IECN社区 » ASP/.Net/MSSQL