求一个正则表达式 在线等 多谢
要做一个正则表达式 要求匹配自定义小括号(section) (/section) 和(content)(/content)标签从而取出里面的所有html文本---
1. (section) 到 (/section) 内所有html文本
2. (content) 到 (/content) 内所有html文本
文本如下
<p>(section) <p> <ul>概述 </ul> </p>(/section) </p>
<p>(content)
</p> <ul>
<li>高血压的定义:成人收缩压≥140 mmHg和/或舒张压≥90 mmHg,是引起心血管疾病的一个重要危险因素 </li>
<li>高血压前期的定义:成人收缩压为120~139 mmHg或舒张压为80~89 mmHg。这类患者需要咨询有利于健康的生活方式的改变,以期预防或延迟高血压的发生,而且应每年至少随访一次 </li>
</ul> <p>
(/content) </p>
<p>(section) <p> <ul>紧急措施 </ul> </p>(/section) </p>
<p>(content) </p>
<ul>
<li>高血压的定义:成人收缩压≥140 mmHg和/或舒张压≥90 mmHg,是引起心血管疾病的一个重要危险因素 </li>
<li>高血压前期的定义:成人收缩压为120~139 mmHg或舒张压为80~89 mmHg。这类患者需要咨询有利于健康的生活方式的改变,以期预防或延迟高血压的发生,而且应每年至少随访一次 </li>
<li>大约90%的高血压患者病因不明,无并发症的原发性高血压是无症状的术前高血压与围手术期的发病率和死亡率明显增加有关,但尚不清楚术前高血压处置是否会降低风险 </li>
</ul>
<p>(/content) </p> --------------------编程问答-------------------- try...
Dim reg As Regex = New Regex("(?is)\((section|content)\)(.*?)\(/\1\)")
Dim mc As MatchCollection = reg.Matches(yourStr)
For Each m As Match In mc
RichTextBox2.Text += m.Groups(2).Value & vbCrLf & "--------------" & vbCrLf
Next
补充:.NET技术 , VB.NET