87,910
社区成员
发帖
与我相关
我的任务
分享
lass="selected" onclick="return changePage('1')">1</a></li> <li><a href="#" onclick="return changePage('2')">2</a></li> <li><a href="#" onclick="return changePage('3')">3</a></li> <li>...</li> <li><a href="#" onclick="return changePage('17')">17</a></li> <li class="next-page"><a href="#" onclick="return changePage('2')">下一页</a></li>
Dim regex
Set regex = New RegExp
regex.Pattern = "\d+(?=\D+next\-page)"
MsgBox regex.Execute(htmlCode).Item(0).Value
Set regex = Nothing
<textarea id="source" rows="10" cols="100"></textarea><br />
<input type="Submit" value="处理" onclick="opt();"><br />
<textarea id="result" rows="10" cols="100"></textarea><br />
<script type="text/javascript">
function opt()
{
var str = document.getElementById("source").value;
var reg = /\d+(?=\s*<\/a>\s*<\/li>\s*<li[^>]*>\s*<a[^>]*>\s*下一页\s*<\/a>\s*<\/li>)/;
document.getElementById("result").value = str.match(reg);
}
</script>