文本_插入文本到某行后 和前

Cand

[e].版本 2
.子程序 文本_插入文本到某行前
.参数 原文本, 文本型
.参数 行数, 整数型
.参数 欲插入内容, 文本型
.局部变量 临时文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 返文本, 文本型


临时文本数组 ＝ 分割文本 (原文本, #换行符, )
.计次循环首 (取数组成员数 (临时文本数组), i)
    .判断开始 (i ＜ 行数)
        返文本 ＝ 返文本 ＋ 临时文本数组 ＋ #换行符
    .判断 (i ＝ 行数)
        返文本 ＝ 返文本 ＋ 欲插入内容 ＋ #换行符
    .判断 (i ＞ 行数)
        返文本 ＝ 返文本 ＋ 临时文本数组 [i － 1] ＋ #换行符
    .默认

    .判断结束

.计次循环尾 ()

返回 (返文本)
[/e]

[e].版本 2

.子程序 文本_插入文本到某行后, 文本型, 公开, 将文本加入到某行之前，返回加入后的文本。
.参数 原文本, 文本型
.参数 行数, 整数型
.参数 欲插入内容, 文本型
.局部变量 i, 整数型
.局部变量 临时文本数组, 文本型, , "0"
.局部变量 返文本, 文本型

临时文本数组 ＝ 分割文本 (原文本, #换行符, )

.计次循环首 (取数组成员数 (临时文本数组), i)
    .判断开始 (i ＜ 行数 ＋ 1)
        返文本 ＝ 返文本 ＋ 临时文本数组 ＋ #换行符
    .判断 (i ＝ 行数 ＋ 1)
        返文本 ＝ 返文本 ＋ 欲插入内容 ＋ #换行符
    .判断 (i ＞ 行数 ＋ 1)
        返文本 ＝ 返文本 ＋ 临时文本数组 [i － 1] ＋ #换行符
    .默认

    .判断结束

.计次循环尾 ()


返回 (返文本)
[/e]
怀揣着激动的心情我照着精易模块写下了第一个 命令的源码。以后还写。。
学习加复习。

写的不完善或者错误的请 前辈和大牛指出谢谢
不待扔砖头的

Cand

在审核的状态下 貌似沙发谁也拿不走 不过这个帖子应该没人回应。。。

级别低手

默认{:3_232:}{:3_232:}

同舟

{:3_231:}不要把字体弄斜的好不好..晕了.

冰叶

啊撒了的经费肯定是