如何取出所有需要的文本？

梦浅离

我写不出来，一按就易语言不动了，死在那。不知道哪问题？
我是想写取出，所有组1和5中间的不同文本。

yaoming110

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 a, 整数型
   
5. .局部变量 文本, 文本型, , "0"
   
6. .局部变量 b, 整数型
   
7. 
   
8. a ＝ 文本_取中间_批量 (编辑框1.内容, “1”, “5”, 文本)
   
9. .计次循环首 (a, b)
   
10.     编辑框2.加入文本 (文本 [b] ＋ #换行符)
    
11. .计次循环尾 ()
    
12. 
    

复制代码

yaoming110

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 x, 整数型
   
5. .局部变量 文本, 文本型
   
6. .局部变量 y, 整数型
   
7. 
   
8. 
   
9. .判断循环首 (x ≠ -1 且 y ≠ -1)
   
10.     x ＝ 寻找文本 (编辑框1.内容, “1”, y, 假)
    
11.     y ＝ 寻找文本 (编辑框1.内容, “5”, x, 假)
    
12.     文本 ＝ 取文本中间 (编辑框1.内容, x ＋ 1, y － x － 1)
    
13. 
    
14.     编辑框2.加入文本 (文本 ＋ #换行符)
    
15. 
    
16. .判断循环尾 ()
    

复制代码

易团俊

.版本 2

.子程序 文本_取出中间文本, 文本型, 公开
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 ＝ 取文本长度 (完整内容)
临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
临时文本 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
总长度 ＝ 取文本长度 (临时文本)
临时位置 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
临时文本 ＝ 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)

易团俊

楼主要这个吧。。。{:3_226:}







.版本 2

.子程序 文本_批量取中间文本, 整数型, 公开
.参数 源文本, 文本型
.参数 前面标识文本, 文本型
.参数 后面标识文本, 文本型
.参数 存放取出文本的数组, 文本型, 可空 数组
.参数 是否区分大小写, 逻辑型, 可空
.参数 文本长度大于此数的不要, 整数型, 可空
.参数 为取出的文本加上前缀, 文本型, 可空
.参数 为取出的文本加上后缀, 文本型, 可空
.参数 是否连前面标识文本一起取出, 逻辑型, 可空
.参数 是否连后面标识文本一起取出, 逻辑型, 可空
.局部变量 局_临时数组, 文本型, , "0"
.局部变量 局_计次, 整数型
.局部变量 局_临时文本, 文本型

清除数组 (存放取出文本的数组)
局_临时数组 ＝ 分割文本 (源文本, 前面标识文本, )
删除成员 (局_临时数组, 1, 1)
.计次循环首 (取数组成员数 (局_临时数组), 局_计次)
    .如果真 (寻找文本 (局_临时数组 [局_计次], 后面标识文本, , 是否区分大小写) ＝ -1)
        到循环尾 ()
    .如果真结束
    局_临时文本 ＝ 取文本左边 (局_临时数组 [局_计次], 寻找文本 (局_临时数组 [局_计次], 后面标识文本, , 是否区分大小写) － 1)
    .判断开始 (文本长度大于此数的不要 ≠ 0)
        .如果真 (取文本长度 (局_临时文本) ≤ 文本长度大于此数的不要)
            局_临时文本 ＝ 为取出的文本加上前缀 ＋ 局_临时文本 ＋ 为取出的文本加上后缀
            .判断开始 (是否连前面标识文本一起取出)
                局_临时文本 ＝ 前面标识文本 ＋ 局_临时文本
            .判断 (是否连后面标识文本一起取出)
                局_临时文本 ＝ 局_临时文本 ＋ 后面标识文本
            .默认

            .判断结束
            加入成员 (存放取出文本的数组, 局_临时文本)
        .如果真结束

    .默认
        局_临时文本 ＝ 为取出的文本加上前缀 ＋ 局_临时文本 ＋ 为取出的文本加上后缀
        .判断开始 (是否连前面标识文本一起取出)
            局_临时文本 ＝ 前面标识文本 ＋ 局_临时文本
        .判断 (是否连后面标识文本一起取出)
            局_临时文本 ＝ 局_临时文本 ＋ 后面标识文本
        .默认

        .判断结束
        加入成员 (存放取出文本的数组, 局_临时文本)
    .判断结束

.计次循环尾 ()
返回 (取数组成员数 (存放取出文本的数组))

side2011

楼上的高人们正解！小弟路过！{:3_244:}