易语言分割多行文本

wq151335229

grui1014

丢了自己

人家的东西 借用

善的圆

板凳正解{:3_244:}

zichuan

grui1014 发表于 2011-6-12 18:17

定义的变量好习惯···

《忘了自己》你终于换头像了

小马过河

我这个看得清楚吧！{:3_244:}
.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 原文本, 文本型
.局部变量 原文本数组, 文本型, , "0"
.局部变量 子文本, 文本型
.局部变量 子文本数组, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 x1, 整数型

超级列表框1.全部删除 ()

通用对话框1.打开 ()
原文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
原文本数组 ＝ 分割文本 (原文本, #换行符, )
.计次循环首 (取数组成员数 (原文本数组), )
    x ＝ x ＋ 1
    子文本 ＝ 原文本数组 [x]
    子文本数组 ＝ 分割文本 (子文本, “----”, )
    .计次循环首 (取数组成员数 (子文本数组), )
        x1 ＝ x1 ＋ 1
        超级列表框1.插入表项 (x1 － 1, 子文本数组 [1], , , , )
        超级列表框1.置标题 (x1 － 1, 1, 子文本数组 [1])

    .计次循环尾 ()
.计次循环尾 ()

善的圆

都不错，楼主自己看着办

小宇88

[e].版本 2
.支持库 iext

.局部变量 句柄, 整数型
.局部变量 文本, 文本型, , "0"
.局部变量 索引, 整数型

句柄 ＝ 打开文件 (取运行目录 () ＋ “/YY账号.txt”, #读写, #无限制)
.如果真 (0 ≠ 句柄)
    超级列表框_YY账号.全部删除 ()
    移到文件首 (句柄)
    .判断循环首 (假 ＝ 是否在文件尾 (句柄, 真))
        文本 ＝ 分割文本 (读入一行 (句柄), “----”, )
        索引 ＝ 超级列表框_YY账号.插入表项 (, 文本 [1], , , , )
        超级列表框_YY账号.置标题 (索引, 0, 文本 [0])
        超级列表框_YY账号.置标题 (索引, 1, 文本 [1])
    .判断循环尾 ()
    关闭文件 (句柄)
.如果真结束[/e]


简单易懂,一看就明白..
搞不懂伸手党为什么那么多...

﹎ャ柔情ヽ

学习一下{:3_244:}

亲亲我的宝贝

学习学习！！！！！