|
发表于 2024-12-13 02:16:46
|
显示全部楼层
陕西省西安市
.版本 2
.支持库 spec
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
子程序1 (#常量3)
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 子程序1
.参数 源数据, 文本型
.局部变量 文本, 文本型
.局部变量 显示位置, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文本数据, 文本型
.循环判断首 ()
文本 = 文本_取出中间文本 (源数据, “<”, “>”, 显示位置 + 1, )
加入成员 (文本数组, “<” + 文本 + “>”)
显示位置 = 文本_寻找文本 (源数据, 文本, 显示位置 + 1, )
.循环判断尾 (显示位置 ≠ -1)
文本数据 = 源数据
数组_去重复 (文本数组, )
.计次循环首 (取数组成员数 (文本数组), i)
文本数据 = 子文本替换 (文本数据, 文本数组 [i], “”, , , 真)
.计次循环尾 ()
文本数据 = 子文本替换 (文本数据, “ ”, “”, , , 真)
调试输出 (文本数据)
|
-
-
新建 易程序.e
959.93 KB, 下载次数: 1, 下载积分: 精币 -1 枚
售价: 3 枚 精币 [记录]
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻! |
查看全部评分
|