易语言获取域名分类大全

易语言获取域名分类大全

@SourceCode

.版本 2
.支持库 iext

.子程序 正则_匹配批量, 整数型
.参数 参_源文本, 文本型, , 欲被匹配的文本
.参数 参_超级列表框, 超级列表框
.参数 参_起始位置, 整数型, 可空, 为空，代表从1开始
.参数 参_结束位置, 整数型, 可空, 为空，代表总数
.局部变量 局_正则, 正则表达式类
.局部变量 局_匹配数, 整数型
.局部变量 局_计次, 整数型
.局部变量 局_位置索引, 整数型

.如果真 (局_正则.创建 (#常量_域名匹配正则, 参_源文本, 假, 假, 真) ＝ 假)
    信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , )
    返回 (0)
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
    信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , )
    返回 (0)
.如果真结束
参_超级列表框.全部删除 ()
.判断开始 (是否为空 (参_起始位置) 或 参_起始位置 ＝ 0 或 参_起始位置 ＜ 0)
    参_起始位置 ＝ 1
.默认

.判断结束
.判断开始 (是否为空 (参_结束位置) 或 参_结束位置 ＝ 0 或 参_起始位置 ＜ 0 或 参_结束位置 ＞ 局_匹配数)
    参_结束位置 ＝ 局_匹配数
.默认
    ' 本源码来自三叶资源网
    ' (www.sanye.cx)
.判断结束

.计次循环首 (局_匹配数, 局_计次)

    .判断开始 (局_计次 ＜ 参_起始位置)
        到循环尾 ()
    .判断 (局_计次 ＞ 参_结束位置)
        跳出循环 ()
    .默认
        局_位置索引 ＝ 参_超级列表框.插入表项 (, , , , , )
        参_超级列表框.置标题 (局_位置索引, 0, 到文本 (局_计次))
        参_超级列表框.置标题 (局_位置索引, 1, 局_正则.取子匹配文本 (局_计次, 1))
        参_超级列表框.置标题 (局_位置索引, 2, 局_正则.取子匹配文本 (局_计次, 2))
        参_超级列表框.置标题 (局_位置索引, 3, 局_正则.取子匹配文本 (局_计次, 3))
        参_超级列表框.置标题 (局_位置索引, 4, 局_正则.取子匹配文本 (局_计次, 4))
        参_超级列表框.置标题 (局_位置索引, 5, 局_正则.取子匹配文本 (局_计次, 5))

    .判断结束

    ' 本源码来自三叶资源网(www.sanye.cx)
.计次循环尾 ()
返回 (局_匹配数)