[易语言]彗星正则表达类模块

阿杰

彗星正则表达式类.rar (2.32 KB, 下载次数: 244)

2012-6-25 13:25 上传

点击文件名下载附件

.版本 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, 对象, 公开, 取表达式对象
返回 (表达式)
.子程序 GetPattern, 文本型, 公开
返回 (表达式.读文本属性 (“Pattern”, ))
.子程序 SetPattern, , 公开
.参数 欲写入属性值, 文本型
表达式.写属性 (“Pattern”, 欲写入属性值)
.子程序 GetIgnoreCase, 逻辑型, 公开
返回 (表达式.读逻辑属性 (“IgnoreCase”, ))
.子程序 SetIgnoreCase, , 公开
.参数 欲写入属性值, 逻辑型
表达式.写属性 (“IgnoreCase”, 欲写入属性值)
.子程序 GetGlobal, 逻辑型, 公开
返回 (表达式.读逻辑属性 (“Global”, ))
.子程序 SetGlobal, , 公开
.参数 欲写入属性值, 逻辑型
表达式.写属性 (“Global”, 欲写入属性值)
.子程序 GetMultiline, 逻辑型, 公开
返回 (表达式.读逻辑属性 (“Multiline”, ))
.子程序 SetMultiline, , 公开
.参数 欲写入属性值, 逻辑型
表达式.写属性 (“Multiline”, 欲写入属性值)
.子程序 Execute, 对象, 公开
.参数 sourceString, 文本型
返回 (表达式.对象型方法 (“Execute”, sourceString))
.子程序 Test, 逻辑型, 公开
.参数 sourceString, 文本型
返回 (表达式.逻辑方法 (“Test”, sourceString))
.子程序 Replace, 文本型, 公开
.参数 sourceString, 文本型
.参数 replaceVar, 文本型
返回 (表达式.文本方法 (“Replace”, sourceString, replaceVar))

乱码

又见 MSScriptControl.ScriptControl 我笑而不语，
推荐你看一篇文章
《VBS脚本之JSON数据解析(三)[终章]》
http://qqcik.5d6d.net/thread-256-1-2.html

有个东西叫做 VBScript.RegExp 比用MSScriptControl间接创建给力多了、、
而且易语言有自己的正则表达式，为什么要用VBS的表达式呢？

supergirl520

支持下呢

jimmy8090

必须支持下！

easy2003

正想找这个，不错。

fhgokcn

大力支持，正在找正则的

244612558

谢谢分享 支持楼主

小宝8023

下载看看 正需要

lian1234

下载看看

Rainy

这个必须顶，支持楼主