|
板凳

楼主 |
发表于 2012-10-28 21:22:02
|
只看该作者
回复 2楼TC兔子的帖子
字符型[] 帐密,帐号,密码,存储数组
整型 c1,c2,c3,行=1,i
内容1=浏览框.获得("浏览框0")
如果(字符串.长度(内容1)==0)
辅助.消息框("没有设置文件路径,请选择文件路径")
返回 假
如果结束
整型 文件句柄=文件.打开(内容1)
字符型 内容=文件.读文件(内容1)
字符串.分割(内容,"\r\n",存储数组)
数组.大小(存储数组,c1)
表格.设置大小("表格0",c1+1,8)
循环(行<=c1)
整型 列=1
循环(列<2)
字符串.分割(存储数组,",",帐密)
表格.设置内容("表格0",行,0,转换.整型转字符型(行))
表格.设置内容("表格0",行,列,帐密[0])
表格.设置内容("表格0",行,列+1,帐密[1])
表格.设置内容("表格0",行,列+2,帐密[2])
i=i+1
列=列+1
循环结束
行=行+1
循环结束
读的文件最后面有一个空行。就出现错误 |
|