一个有关正则数据的提取问题（正则里面带循环）

cscsf 2007-02-06 07:59:01

正则代码如下：

objRegExp.Pattern = "<div class=pcixin>(.*?)</div>(<div class=pexplain>(.*?)</div>(<div class=peng><span id=dropdownid>(.*?)</div><div class=pchi><span id=dropdownid>(.*?)</div>)*)+" '匹配字段

所匹配的代码：
<div class=pcixin>
n.[C]
</div>
<div class=pexplain>
1. 试验
</div>
<div class=peng><span id=dropdownid>
A simple <font class=engi>test</font> will show if this is real gold.
</span></div>
<div class=pchi><span id=dropdownid>
简单的试验就能证明这是不是真金。
</span></div>

<div class=pexplain>
2. 化验;化验法;化验剂
</div>
<div class=peng><span id=dropdownid>
He had a blood <font class=engi>test</font>.
</span></div>
<div class=pchi><span id=dropdownid>
他验过血了。
</span></div>

<div class=pexplain>3. 检验;检验标准</div>
<div class=pexplain>4. 测验;考察;小考</div>
<div class=peng><span id=dropdownid>
We are to have a history <font class=engi>test</font> next week.
</span></div>
<div class=pchi><span id=dropdownid>
下周我们有历史测验。</span></div>
<div class=pexplain>5. 考验</div>

现在这个正则是已经能够正确匹配到上面这个结果的，但是我无法通过$1,$2正确取出每一个值，因为里面有循环，只能得到最后一个值
例如
response.write mm(0).SubMatches(1)得到的是
5. 考验

我希望能够得到里面的每一个值，该如何做？（关键问题就是局部多次可循环匹配后，似乎正则只匹配了最后一个，前面的不知道如何找到）

谢谢

...全文

313 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

btbtd 2007-02-07

打赏
举报

晕了... 你要做的可能就是 for each...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% option explicit %>
<!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>shawl.qiu template</title>
</head>
<body>
<%
dim str:str=fRdTxFl("t.txt", "utf-8", true )

Response.Write("<xmp>"&str&"</xmp>")

dim re, matches, item
set re=new RegExp
re.Pattern = "<div class=pcixin>(.*?)</div>(<div class=pexplain>(.*?)</div>(<div class=peng><span id=dropdownid>(.*?)</div><div class=pchi><span id=dropdownid>(.*?)</div>)*)+"

re.IgnoreCase=true
re.Global=false

set matches=re.Execute(str)
for each item in matches
Response.Write("<li/>"&item)
next
set matches=nothing
set re=nothing

private function fRdTxFl(byval sPath, byval sCharset, byval bCov)
if bCov then sPath=Server.MapPath(sPath)
dim oStm, sTemp
set oStm=createObject("adodb.stream")
with oStm
.Type=2
.Mode=3
.Open
.LoadFromFile sPath
.Charset=sCharset
.Position=0
fRdTxFl=.ReadText()
.Close
end with
set oStm=nothing
end function 'fRdTxFl shawl.qiu code'
%>
</body>
</html>

btbtd 2007-02-07

打赏
举报

那你用 SubMatches 子集合取子匹配,
你的需求说得不明确...爱莫能助...

cscsf 2007-02-07

打赏
举报

谢谢，不过可能不是如此

for each是取得满足条件的每一条（一整条）
你看我写的正则，里面有(.*?)，也就是说.*?的东西可能重复很多次，用$1这种只能找到最后一次匹配的，不能找到所有的，我上面的例子是匹配的一条（也就是for each的一个值），但是我需要取出这一条里面的各个满足条件的部分，不知道怎么操作（因为里面又有.*)

cscsf 2007-02-06