精易论坛

标题: 合并TXT小说软件 [打印本页]

作者: yuanyuanjy 时间: 2011-5-11 10:26
标题: 合并TXT小说软件
.版本 2
.程序集窗口程序集1
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 b, 整数型
.局部变量 q, 文本型
.局部变量文件号, 整数型
a ＝寻找文件 (“*.txt”, )
b ＝ 0
文件号＝打开文件 (“c:\1.txt”, , )
.判断循环首 (a ≠ “”)
选择列表框1.插入项目 (b, a, )
输出调试文本 (a)
读入文本 (打开文件 (a, , ), )
插入文本 (文件号, a)
插入文本 (文件号, 读入文本 (打开文件 (a, , ), ))
a ＝寻找文件 (, )
' 打开文件 (a, , )
' 输出调试文本 (打开文件 (“b ＋ 1”, , ))
' 插入文本 (, )
b ＝ b ＋ 1
.判断循环尾 ()

作者: aklwjx 时间: 2011-7-12 19:01
{:3_226:}

很有趣

{:3_226:}

很有趣

{:3_226:}

很有趣

{:3_226:}

很有趣

{:3_226:}

很有趣

{:3_226:}

很有趣

{:3_226:}

很有趣

欢迎光临精易论坛 (https://125.confly.eu.org/)