|
发表于 2013-10-6 12:54:49
|
显示全部楼层
河南省洛阳市
[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.程序集变量 文本, 文本型
.程序集变量 文本sz, 文本型, , "0"
.程序集变量 hss, 整数型
.程序集变量 f文件, 文本型, , "0"
.子程序 _按钮2_被单击
通用对话框1.打开 ()
文件号 = 打开文件 (通用对话框1.文件名, , )
文本 = 读入文本 (文件号, )
编辑框1.内容 = 文本
.子程序 _按钮1_被单击
.局部变量 n, 整数型
编辑框1.内容 = “”
清除数组 (文本sz)
清除数组 (f文件)
文本sz = 分割文本 (文本, #换行符, )
hss = 取数组成员数 (文本sz)
.计次循环首 (到数值 (编辑框2.内容), n)
加入成员 (f文件, 文本sz [n])
.计次循环尾 ()
.计次循环首 (取数组成员数 (f文件), n)
编辑框1.加入文本 (f文件 [n] + #换行符)
.计次循环尾 ()
[/e]
写到文件没写 自己整吧 反正编辑框内容取好了
|
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻 |
查看全部评分
|