|
发表于 2011-8-23 20:31:37
|
显示全部楼层
广西壮族自治区柳州市
本帖最后由 一棒过克 于 2011-8-23 20:32 编辑
这段我一直在学习文本分割,正好讲给你听{:soso_e102:}
[e].版本 2
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 文件文本, 文本型, , "0"
.局部变量 行文本, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 日期, 文本型
.局部变量 数量, 整数型
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入提取数据的标准!”, 0, )
返回 ()
.如果真结束
通用对话框1.类型 = 0
通用对话框1.过滤器 = “*.txt|*.txt”
.如果真 (通用对话框1.打开 () = 假)
返回 ()
.如果真结束
文件名 = 通用对话框1.文件名
文件文本 = 分割文本 (到文本 (读入文件 (文件名)), #换行符, )
列表框1.清空 ()
.计次循环首 (取数组成员数 (文件文本), n)
行文本 = 分割文本 (文件文本 [n], “货物”, )
日期 = 行文本 [1]
数量 = 到数值 (子文本替换 (行文本 [2], 取文本右边 (行文本 [2], 1), , , , 真))
.如果真 (数量 = 到数值 (编辑框1.内容))
列表框1.加入项目 (日期, )
.如果真结束
.计次循环尾 ()
[/e]
|
|