谁知道怎么用正则表达式实现以下功能

来源:百度知道 编辑:UC知道 时间:2024/06/18 15:15:19
放在asp文件里运行。是asp环境下。
我的要求是这样的,我需要提取a.txt中的【】之间的部分到b.txt,有个a.txt文本,是现代汉语词典,数据量比较大,我需要把所有[]之间的内容提取出来,存到另一个b.txt文本里,而且只提取二个字的词语,如果词语为二个以上汉字组成的(如 【空白点】)就不提取了,我想写个asp页面执行一下,不知道代码该如何写?
(示例:
【解严】
【解颜】
提取到b.txt为 :
解严
解颜
格式为每行一个二字词语)
----------------------
a.txt文本示例如下:

【解析几何】数学的一个分支,是用代数的方法解决几何学问题的科学。解析几何中,用坐标来表示点,用坐标间的关系来表示和研究几何图形的性质。广泛应用在高等数学、物理学、力学等学科中。
【解严】解除戒严状态。
【解颜】舒眉现笑容。
【解颐】<书>开颜而笑。
【解元】(jièyuán)明清两代称乡试考取第一名的人。
【解约】取消原来的约定。

*介1jiè(1)在两者当中:~绍|媒~|这座山~于两县之间。(2)姓。

*介2jiè甲:~胄|~虫。
【戒律】多指有条文规定的宗教徒必须遵守的生活准则。
【戒条】戒律。
【戒心】警惕心。
【戒严】国家遇到战争或特殊情况时,在全国或某一地区内采取非常措施,如增设警戒、组织搜查、限制交通等。
【戒指】<轻>(~儿)套在手指上做纪念或装饰用的小环,用金属、玉石等制成。

*芥gài见〖芥菜〗、〖芥蓝菜〗。另见jiè。

*芥jiè芥菜:~末|~子。另见gài。
【空白】(版面、书页、画幅等上面)空着,没有填满或没有被利用的部分:版面上还有块~,可以补一篇短文◇~点|~部门。
【空白点】工作没有达到的方面或部分。
【空包弹】一种没有弹头的枪弹或炮弹,通常用于礼炮或部队演习。

<script language="vbScript">
<!--
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & mid(Match.Value,2,len(Match.Value)-2)
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("【(.+?)】", "5435【解严】432432"))
//-->
</script>