|
.版本 2
.子程序 _统计行数_被选择
.局部变量 局_文本, 文本型, , "0"
.局部变量 局_统计行数, 整数型
.局部变量 n1, 整数型
输入框 (“请输入要统计的行数:”, , “50”, 局_统计行数, )
局_文本 = 分割文本 (原始数据_编辑框.内容, #换行符, )
编辑框1.内容 = “”
.变量循环首 (取数组成员数 (局_文本) - 局_统计期数 + 1, 取数组成员数 (局_文本), 1, n1)
编辑框1.内容 =编辑框1.内容 + 局_文本 [n1] + #换行符
.变量循环尾 ()
如果这样写代码后 更改单个文件的行数是没有问题的 可是如果我用打开文件夹里的多个文件 如何来一次性改变要统计的行数呢????
也是就是如下代码 ,该如何调用????
.版本 2
.支持库 commobj
.支持库 shell
.子程序 _打开文件夹_被选择
.局部变量 目录, 文本型
.局部变量 文件, 文本型
.局部变量 快速文本, 快速文本对象
目录 = 浏览文件夹 (“选择目录”, )
.如果真 (目录 ≠ “”)
集_目录 = 目录 + “\”
清除数组 (集_文件)
文件 = 寻找文件 (集_目录 + “*.txt”, )
.判断循环首 (文件 ≠ “”)
快速文本.添加 (读入文件 (集_目录 + 文件), #换行符)
加入成员 (集_文件, 取文本左边 (文件, 取文本长度 (文件) - 4))
文件 = 寻找文件 (, )
.判断循环尾 ()
原始数据_编辑框.内容 = 快速文本.取文本 (, )
集_数据 = 快速文本.分割文本 (#换行符, )
集_最大行 = 取数组成员数 (集_数据)
处理事件 ()
信息框 (“导入完成”, #信息图标, )
|
|