取常量数据的源码

中国心

发这个帖子向各位易网友征集取常量数据的源码例程，对于例程的范围包括：正则表达式js代码取或匹配常量数据的源码，综合的来说就是各种各样的取或匹配包括（js正则）常量数据源码，如果您有符合要求的易语言例程请上传源码，对于图片就不要了，谢谢！
注明：源码为取或匹配包含（js正则）常量的源码综合版。

易模块

.版本 2
.支持库 spec

.子程序 ok
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 flag, 逻辑型, , , 标记数组中的元素是否有重复
.局部变量 次数, 整数型

数组 ＝ { “to”, “ts”, “bs”, “tl”, “bl”, “ts”, “bs”, “tl”, “bl”, “bl”, “tl”, “ts”, “bs” }
次数 ＝ 取数组成员数 (数组)

.计次循环首 (次数, i)
    k ＝ 2  ' 每次都要初始化一下3个变量
    j ＝ i ＋ 1
    flag ＝ 假  ' 标记数组中的元素是否有重复

    .计次循环首 (次数 － i, )
        .如果 (数组 ＝ 数组 [j])
            数组 [j] ＝ 到文本 (k) ＋ 数组 [j]
            k ＝ k ＋ 1
            flag ＝ 真
        .否则

        .如果结束
        j ＝ j ＋ 1
    .计次循环尾 ()
    .如果 (flag)
        数组 ＝ “1” ＋ 数组
    .否则

    .如果结束

.计次循环尾 ()
调试输出 (数组)

  

子程序名	返回值类型	公开	备 注
ok

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型
j	整数型
k	整数型
flag	逻辑型			标记数组中的元素是否有重复
次数	整数型

数组 ＝ { “to”, “ts”, “bs”, “tl”, “bl”, “ts”, “bs”, “tl”, “bl”, “bl”, “tl”, “ts”, “bs” }
次数 ＝ 取数组成员数 (数组)
计次循环首 (次数, i)
k ＝ 2  ' 每次都要初始化一下3个变量
j ＝ i ＋ 1
flag ＝ 假  ' 标记数组中的元素是否有重复
计次循环首 (次数 － i, )
如果 (数组 [i] ＝ 数组 [j])
数组 [j] ＝ 到文本 (k) ＋ 数组 [j]
k ＝ k ＋ 1
flag ＝ 真


j ＝ j ＋ 1
计次循环尾 ()
如果 (flag)
数组 [i] ＝ “1” ＋ 数组 [i]



计次循环尾 ()
调试输出 (数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 ok<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 flag, 逻辑型, , , 标记数组中的元素是否有重复<br /> .局部变量 次数, 整数型<br /> <br /> 数组 ＝ { “to”, “ts”, “bs”, “tl”, “bl”, “ts”, “bs”, “tl”, “bl”, “bl”, “tl”, “ts”, “bs” }<br /> 次数 ＝ 取数组成员数 (数组)<br /> <br /> .计次循环首 (次数, i)<br />     k ＝ 2  ' 每次都要初始化一下3个变量<br />     j ＝ i ＋ 1<br />     flag ＝ 假  ' 标记数组中的元素是否有重复<br /> <br />     .计次循环首 (次数 － i, )<br />         .如果 (数组 <i> ＝ 数组 [j])<br />             数组 [j] ＝ 到文本 (k) ＋ 数组 [j]<br />             k ＝ k ＋ 1<br />             flag ＝ 真<br />         .否则<br /> <br />         .如果结束<br />         j ＝ j ＋ 1<br />     .计次循环尾 ()<br />     .如果 (flag)<br />         数组 <i> ＝ “1” ＋ 数组 <i><br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (数组)

补充内容 (2015-3-17 18:01):
看错了，不好意思啊，别人的写到你这里来了

中国心

易模块 发表于 2015-3-17 18:00
.版本 2
.支持库 spec

图片不要，谢谢。

中国心

自已顶一下。{:soso_e185:}

中国心

自已顶一下。

中国心

自已顶一下。{:soso_e181:}

中国心

顶。

中国心

自已顶一下。

2364847996

易语言资源网上有源码。

2364847996