TC官方合作论坛

标题: 求指教，保存表格到TXT [打印本页]

---

作者: yudaliang82    时间: 2014-1-1 11:36
标题: 求指教，保存表格到TXT
在论坛内没找到解决方案，卡了一上午了。

就是包表格内的内容保存到TXT文件，然后再读取回来。
读取的代码是（可以执行）

1. 
   
2. 功能 按钮_导入表格_点击()
   
3.     //这里添加你要执行的代码
   
4.     变量 返回值, 状态文本长度,状态长度, 状态文本,内容,状态
   
5.     路径 = 文件.对话框(1,"文本文件(*.txt)|*.txt||")
   
6.     如果(路径 != "")
   
7.         内容 = 文件.读文件(路径)
   
8.         //调试输出(内容)
   
9.         如果(字符串.分割(内容,"\r\n",状态文本))
   
10.             数组空间.大小(状态文本,状态文本长度)
    
11.             如果(状态文本长度 > 0)
    
12.                 遍历(i = 0 ; i < 状态文本长度 ; i++)
    
13.                     //调试输出("状态文本:" & 状态文本)
    
14.                     表格.插入行("状态","",-1)
    
15.                     是否成功=字符串.分割(状态文本[i],"=",状态)
    
16.                     数组空间.大小(状态,状态长度)
    
17.                     遍历(j = 0; j < 状态长度 ; j++)                  
    
18.                         表格.设置内容("状态",i+1,j,状态[j])
    
19.                     遍历结束
    
20.                     //表格.设置内容("状态",i+1,8,状态[8])
    
21.                 遍历结束
    
22.             如果结束
    
23.         如果结束
    
24.     否则
    
25.         辅助.消息框("你没有选中[状态]文件")
    
26.     如果结束
    
27. 功能结束

复制代码

保存的代码是（每行都存了多次）

1.     文件句柄 = 文件.创建("c:\\wangzhe\\" &月&日&时&分&".txt", "读写|总是创建")
   
2.     表格.大小("状态",总行数,总列数)
   
3.     遍历(i = 1 ; i < 总行数 ; i++)
   
4.         遍历(j = 0 ; j < 总列数 ; j++)
   
5.             行内容 = 表格.获得内容("状态",i,j)
   
6.             状态 = 状态 & "=" & 行内容
   
7.         遍历结束
   
8.         状态文本 = 状态文本& "\r\n" & 状态
   
9.     遍历结束
   
10.    
    
11.     文件.写入(文件句柄,状态文本)
    
12.     文件.关闭(文件句柄)
    
13. 功能结束
    

复制代码

谁能告诉我错在哪，如何修改成正确的。

求正确的保存表格和读取表格代码

---

作者: rainshine    时间: 2014-1-1 11:48
啊哈 正好 我有表格TOtxt文件的源码 加qq1472750668发给你~

---

作者: qq462621349    时间: 2014-1-1 15:19
哇,有好东西发出来大家共享下嘛

---

作者: netboy    时间: 2014-1-2 10:51
http://bbs.tyuyan.com/thread-30896-1-1.html   第22课  读写配置文件 老师有讲的

---

作者: sclgame    时间: 2014-6-26 20:12


功能 保存表格(表格名,文件名)
    变量 文件句柄,i,j,读内容,列内容,内容
    表格.大小(表格名,r_row,r_col)
    遍历(i=1;i<r_row;i++)
        列内容=""
        遍历(j=0;j<r_col;j++)
            读内容=表格.获得内容(表格名,i,j)
            如果(j==0)
                列内容=读内容
            否则
                列内容=列内容&"==="&读内容
            如果结束
        遍历结束
        内容=内容&列内容&"\r\n"
    遍历结束
    文件句柄 = 文件.创建(文件名,"读写|总是创建")
    文件.写入(文件句柄,内容)
    文件.关闭(文件句柄)
功能结束

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1