精易模块：文本_寻找出文本并删除.有问

魅力 · 发表于 2011-11-7 14:01:32

文本_寻找出文本并删除.
.版本 2
.程序集窗口程序集1
.子程序 _按钮_删除连接_被单击
.局部变量 n, 文本型
.局部变量 n1, 文本型
.局部变量 n2, 文本型
.局部变量 n3, 文本型
.局部变量 n4, 文本型
.局部变量 n5, 文本型
n1 ＝文本_寻找出文本并删除 (编辑框1.内容, “<”, “>”)
n2 ＝文本_寻找出文本并删除 (n1, “<”, “>”)
n3 ＝文本_寻找出文本并删除 (n2, “<”, “>”)
n4 ＝文本_寻找出文本并删除 (n3, “<”, “>”)
n5 ＝文本_寻找出文本并删除 (n4, “<”, “>”)
编辑框2.内容＝ n5
如何做不要这么麻烦？
上图：文本_寻找出文本并删除1.png

shi6718298 · 发表于 2011-11-7 14:01:33

本帖最后由 shi6718298 于 2011-11-7 15:13 编辑

源码来了啊修改一下

阿萨德.zip (94.84 KB, 下载次数: 51)

huajiesoft · 发表于 2011-11-7 14:03:49

用循环这个多麻烦

小马过河 · 发表于 2011-11-7 14:11:38

本帖最后由小马过河于 2011-11-7 14:18 编辑

.版本 2

.版本 2
.程序集窗口程序集1
.子程序 _按钮1_被单击
.局部变量文本数组, 文本型, , "0"
.局部变量计次, 整数型
文本_取中间_批量 (编辑框1.内容, “<”, “>”, 文本数组)
.计次循环首 (取数组成员数 (文本数组), 计次)
编辑框1.内容＝子文本替换 (编辑框1.内容, 文本数组 [计次], “”, , 1, 真)
.计次循环尾 ()