|
本帖最后由 frg0922 于 2014-6-19 12:36 编辑
- 功能 导入帐号()
- 路径 = 文件.对话框(1,"文本文件(*.txt)|*.txt||")
- 如果(路径 == "")
- 返回 0
- 如果结束
- 文件句柄 = 文件.打开(路径)
- 如果(文件句柄 < 0)
- 返回 0
- 如果结束
- 表格.删除非固定行("表格0")
- 序号 = 1
- 循环(真)
- 内容 = 文件.读一行(文件句柄)
- 注释=字符串.截取(内容,0,2)
- 如果(内容 == "")
- 跳出
- 如果结束
- if(注释=="//")
- 继续
- endif
- 账号数据,大小
- 字符串.分割(内容,";",账号数据)
- 数组空间.大小(账号数据,大小)
- 如果(大小 <4)
- 界面功能.写日志("TXT文件内容错误")
- goto 标记
- 如果结束
- 表格.插入行("表格0",序号,-1)
- 表格.设置行高("表格0",序号,24)
- 窗口.发送消息(控件.获得句柄("表格0"),#115,7,0)
- 表格.设置内容("表格0",序号,0,序号)
- 表格.设置内容("表格0",序号,1,账号数据[0])
- 表格.设置内容("表格0",序号,2,账号数据[1])
- 表格.设置内容("表格0",序号,3,账号数据[2])
- 表格.设置内容("表格0",序号,4,账号数据[3])
- 序号++
- 循环结束
- 界面功能.写日志("成功导入帐号")
- 标记:
- 文件.关闭(文件句柄)
- 功能结束
复制代码
可以参考一下一行行的往下读,加些判断。 |
|