TC官方合作论坛

 找回密码
 立即注册
查看: 939|回复: 0

[源码分享] 分享一下,成功导入表格

[复制链接]
发表于 2014-5-28 15:21:15 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
空间 导入账号
//默认空间

//开始按钮_点击操作
功能 开始_点击()

功能结束

功能 浏览框0_选择改变()
    //这里添加你要执行的代码
    线程.开启("导入账号.开始输入文件","")

功能结束

功能 开始输入文件()
    变量 内容,长度,值
    导入账号.设置控件是否有效()

    内容 = 导入账号.读取文件内容()

    数组空间.大小(内容,长度)
    表格.删除非固定行("表格0")
    进度条.设置进度("进度条0",0)

    进度=102/长度

    遍历(i=0;i<长度;i++)
        调试输出("内容;"&内容[i])
        如果(字符串.长度(内容[i])>=9)
            表格.插入行("表格0","",-1)

            字符串.分割(内容[i],"----",值)
            表格.设置内容("表格0",i+1,0,值[0])
            表格.设置内容("表格0",i+1,1,值[1])
            进度条.设置进度("进度条0",进度*i)

        如果结束

    遍历结束

    控件.有效("按钮0",真)
    控件.有效("按钮1",真)

功能结束

功能 设置控件是否有效()
    控件.有效("按钮0",假)
    控件.有效("按钮1",假)

功能结束

功能 读取文件内容()
    变量 账号集,账号数组
    内容 = 浏览框.获得("浏览框0")
    账号集 = 文件.读文件(内容)

    字符串.分割(账号集,"\r\n",账号数组)

    返回 账号数组

功能结束


//退出按钮_点击操作
功能 退出_点击()

    辅助.退出()
功能结束




//-----------------增加行
功能 按钮0_点击()
    //这里添加你要执行的代码
    表格.插入行("表格0","",-1)

功能结束


//-----------------删除行
功能 按钮1_点击()
    //这里添加你要执行的代码

    变量 行数,列数
    表格.焦点项("表格0",行数,列数)

    表格.删除行("表格0",行数)

功能结束

空间结束
//空间结束语句

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-6-1 19:13 , Processed in 0.034736 second(s), 22 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表