怎么在E语言中使用正则表达式
发布网友
发布时间：2022-04-12 20:19
我来回答
共1个回答
热心网友
时间：2022-04-12 21:49
.版本 2
.程序集 彗星正则表达式类, , 公开
.程序集变量 表达式, 对象
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用
.局部变量 脚本对象, 对象
.局部变量 ret, 变体型
脚本对象.创建 (“MSScriptControl.ScriptControl”, )
脚本对象.写属性 (“Language”, “VBScript”)
脚本对象.数值方法 (“AddCode”, “Function GetRegExp()” ＋ #换行符 ＋ “Set GetRegExp=new RegExp” ＋ #换行符 ＋ “End Function”)
ret ＝ 脚本对象.通用方法 (“Eval”, “GetRegExp()”)
表达式 ＝ ret.取对象 ()
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
.子程序 取表达式对象, 对象, 公开, GetRegExp
返回 (表达式)
.子程序 准备就绪, 逻辑型, 公开, 查看正则表达式是否初始化完毕。
返回 (取反 (表达式.是否为空 ()))
.子程序 模式, 文本型, 公开, 设置或返回搜索的正则表达式模式。
.参数 欲写入属性值, 文本型, 可空, 留空则为读，被搜索的正则字符串表达式。
.如果真 (是否为空 (欲写入属性值))
返回 (表达式.读文本属性 (“Pattern”, ))
.如果真结束
表达式.写属性 (“Pattern”, 欲写入属性值)
返回 (字符 (0))
.子程序 忽略大小写, 逻辑型, 公开, 设置或返回一个逻辑值，指明模式搜索是否区分大小写。
.参数 欲写入属性值, 逻辑型, 可空, 留空则为读，不留空则返回是否写入成功。
返回 (选择 (是否为空 (欲写入属性值), 表达式.读逻辑属性 (“IgnoreCase”, ), 表达式.写属性 (“IgnoreCase”, 欲写入属性值)))
.子程序 全局匹配, 逻辑型, 公开, 设置或返回一个逻辑值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。
.参数 欲写入属性值, 逻辑型, 可空, 留空则为读，不留空则返回是否写入成功。
返回 (选择 (是否为空 (欲写入属性值), 表达式.读逻辑属性 (“Global”, ), 表达式.写属性 (“Global”, 欲写入属性值)))
.子程序 匹配多行, 逻辑型, 公开, 设置或返回是否匹配多行。
.参数 欲写入属性值, 逻辑型, 可空
返回 (选择 (是否为空 (欲写入属性值), 表达式.读逻辑属性 (“Multiline”, ), 表达式.写属性 (“Multiline”, 欲写入属性值)))
.子程序 执行, 对象, 公开, 对指定的字符串执行正则表达式搜索。
.参数 欲被搜索的文本, 文本型, , 要在其上执行正则表达式的文本字符串。
返回 (表达式.对象型方法 (“Execute”, 欲被搜索的文本))
.子程序 搜索, 逻辑型, 公开, 对指定的字符串执行一个正则表达式搜索，并返回一个逻辑值指示是否找到匹配的模式。
.参数 欲被搜索的文本, 文本型, , 要执行正则表达式搜索的文本字符串。
返回 (表达式.逻辑方法 (“Test”, 欲被搜索的文本))
.子程序 替换, 文本型, 公开, 换在正则表达式查找中找到的文本。
.参数 欲被替换的文本, 文本型, , 将要进行文本替换的字符串
.参数 用作替换的文本, 文本型, 可空, 用作替换的文本
返回 (表达式.文本方法 (“Replace”, 欲被替换的文本, 用作替换的文本))
.子程序 GetRegExp, 对象, 公开, 取表达式对象
返回 (表达式)
