1.不喜欢使用模块的朋友福利，代码在下方，可以直接复制，首先需要在易语言源代码里面创建一个：新类模块
如下图：
下图为代码复制全部替换刚刚创建的新类模块：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
.版本 2.程序集 正则表达式类.程序集变量 RegExp, 对象.程序集变量 MatchCollection, 对象.程序集变量 Match_Count, 整数型.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用RegExp.清除 ().子程序 创建, 逻辑型, 公开, 根据指定的正则表达式文本创建一个正则表达式对象。本对象中的原有内容将被释放.参数 正则表达式文本, 文本型, , <html>(.*?)</html>.参数 忽略大小写, 逻辑型, 可空, 可以被省略。默认值为真。本参数指定这个正则表达式在创建成功后进行匹配、搜索、替换时，是否区分大小写。.参数 匹配多行, 逻辑型, 可空, 可以被省略。默认值为真。如果本成员值为真，字符“^”不仅匹配目标文本的开头，而且匹配目标文本中换行符（字符(10)，字符(13)或 #换行符）的后面；字符“$”不仅匹配目标文本的结尾，而且匹配目标文本中换行符的前面。否则字符“^”仅仅匹配目标文本的开头，“$”也仅仅匹配目标文本的结尾。RegExp.清除 ()RegExp.创建 (“VBScript.RegExp”, ).如果真 (RegExp.是否为空 ()) 输出调试文本 (“对象创建失败:VBScript.RegExp”) 返回 (假).如果真结束.如果真 (是否为空 (忽略大小写)) 忽略大小写 ＝ 真.如果真结束.如果真 (是否为空 (匹配多行)) 匹配多行 ＝ 真.如果真结束Match_Count ＝ 0RegExp.写属性 (“IgnoreCase”, 忽略大小写)RegExp.写属性 (“Multiline”, 匹配多行)RegExp.写属性 (“Global”, 真)RegExp.写属性 (“Pattern”, 正则表达式文本)返回 (真).子程序 取文本, 文本型, 公开, 返回以文本形式表示的正则表达式。如果该对象尚未创建，则返回空文本。本命令为高级对象成员命令。.如果真 (RegExp.是否为空 ()) 返回 (“”).如果真结束返回 (RegExp.读文本属性 (“Pattern”, )).子程序 替换, 文本型, 公开, 替换在正则表达式查找中找到的文本。.参数 欲被替换的文本, 文本型, , 将要进行文本替换的字符串.参数 用作替换的文本, 文本型, 可空, 用作替换的文本返回 (RegExp.文本方法 (“Replace”, 欲被替换的文本, 用作替换的文本)).子程序 搜索全部, 整数型, 公开, 使用指定的正则表达式搜索指定文本中与该表达式匹配的所有子文本。返回匹配结果数量.参数 欲被搜索的文本, 文本型MatchCollection ＝ RegExp.对象型方法 (“Execute”, 欲被搜索的文本)Match_Count ＝ MatchCollection.读数值属性 (“Count”, )返回 (Match_Count).子程序 取匹配数量, 整数型, 公开返回 (Match_Count).子程序 取匹配文本, 文本型, 公开.参数 匹配索引, 整数型, , 第几个匹配文本，索引值从1开始.局部变量 Match, 对象.局部变量 Value, 文本型Match ＝ MatchCollection.读对象型属性 (“Item”, 匹配索引 － 1)Value ＝ Match.读文本属性 (“Value”, )返回 (Value).子程序 取子匹配文本, 文本型, 公开.参数 匹配索引, 整数型, , 第几个匹配文本，索引值从1开始.参数 子表达式索引, 整数型, , 欲取其值的子表达式。该参数对应与正则表达式中的一个子表达式（以圆括号标记）。索引从1开始。.局部变量 Match, 对象.局部变量 SubMatches, 对象.局部变量 Ret, 变体型Match ＝ MatchCollection.读对象型属性 (“Item”, 匹配索引 － 1)SubMatches ＝ Match.读对象型属性 (“SubMatches”, )Ret ＝ SubMatches.读属性 (“Item”, 子表达式索引 － 1)返回 (Ret.取文本 ()) |
