易语言正则整理排序多列文本源码

易语言正则排序多列文本源码

@cf2006a

.版本 2
.支持库 RegEx
.支持库 EDataStructure

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 正则_取数据, 正则表达式
.局部变量 正则_获取到, 搜索结果, , "0"
.局部变量 去重复, 节点
.局部变量 价格, 小数型, , "0"
.局部变量 表达式, 文本型
.局部变量 日期, 文本型
.局部变量 i, 整数型
.局部变量 l, 整数型

日期 ＝ “20180102”
a ＝ 编辑框1.内容
正则_取数据.创建 (“(\d+\.\d+)\b”, )
正则_获取到 ＝ 正则_取数据.搜索全部 (a)
.计次循环首 (取数组成员数 (正则_获取到), i)
    .如果真 (去重复.加入属性 (正则_获取到 [i].取子匹配文本 (a, 1, ), 真))
        加入成员 (价格, 到数值 (正则_获取到 [i].取子匹配文本 (a, 1, )))
    .如果真结束

.计次循环尾 ()
数组排序 (价格, )
' 0112   09:32:18   4.15   +913
表达式 ＝ “(\d{4}   \d{2}:\d{2}:\d{2}   价格   [+|-]\d+)”
.计次循环首 (取数组成员数 (价格), i)
    正则_取数据.创建 (子文本替换 (表达式, “价格”, 到文本 (价格 [i]), , , 真), )
    正则_获取到 ＝ 正则_取数据.搜索全部 (a)
    .计次循环首 (取数组成员数 (正则_获取到), l)
        编辑框2.加入文本 (正则_获取到 [l].取子匹配文本 (a, 1, ) ＋ #换行符)

    .计次循环尾 ()
.计次循环尾 ()