易语言以标点符号分割为每行,如文本春眠不觉晓?处处闻啼鸟.夜来风雨声!花落知多少；分成春眠不觉晓处处闻啼鸟夜来风雨声花落知多少每句话后面标点符号还是保留.

Question

易语言以标点符号分割为每行,如文本
春眠不觉晓?处处闻啼鸟.夜来风雨声!花落知多少；
分成
春眠不觉晓
处处闻啼鸟
夜来风雨声
花落知多少
每句话后面标点符号还是保留.

Answer 1

.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 当前位置, 整数型
.局部变量 待处理文本, 文本型
.局部变量 符号, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 取得位置, 整数型
.局部变量 计次1, 整数型
.局部变量 计次2, 整数型
.局部变量 分析完成, 逻辑型
待处理文本 ＝ “春眠不觉晓?处处闻啼鸟.夜来风雨声!花落知多少；”
加入成员 (符号, “?”)
加入成员 (符号, “.”)
加入成员 (符号, “!”)
加入成员 (符号, “；”)
取数组成员数 (符号)
当前位置 ＝ 1
.判断循环首 (分析完成 ＝ 假)
    取得位置 ＝ 取文本长度 (待处理文本)
    .计次循环首 (取数组成员数 (符号), 计次)
        计次1 ＝ 寻找文本 (待处理文本, 符号 [计次], 当前位置, 真)
        .如果真 (计次1 ≠ -1 且 取得位置 ＞ 计次1)
            计次2 ＝ 计次
            取得位置 ＝ 计次1
        .如果真结束
    .计次循环尾 ()
    .如果真 (当前位置 － 1 ＝ 取得位置)
        跳出循环 ()
    .如果真结束
    输出调试文本 (取文本中间 (待处理文本, 当前位置, 取得位置 － 当前位置 ＋ 取文本长度 (符号 [计次2])))
    当前位置 ＝ 取得位置
    当前位置 ＝ 当前位置 ＋ 取文本长度 (符号 [计次2])
    计次 ＝ 0
    计次1 ＝ 0
.判断循环尾 ()