TC2.0 文件操作方法

章昊

文件操作实例
文件操作实例1：（这里就列出账号的使用方法，密码的读取方式和这个也是一样的）
点击下载： 文件操作方法.rar (843.4 KB, 下载次数: 30)

2011-11-24 11:09 上传

点击文件名下载附件

1. 空间 文件操作方法
   
2. 
   
3. 整型 线程句柄
   
4. 功能 逻辑型 读取账号()  //记事本的账号格式： 账号|密码
   
5. 字符型 内容,账号[100][100]
   
6. 整型 文件编号,a,b
   
7. b=1
   
8.         下拉框.清空("下拉框0")
   
9.         文件编号=文件.打开("rc:账号.txt")  //打开该路径下的文件
   
10.         如果(文件编号==0)
    
11.                 辅助.消息框("打开文件失败")
    
12.         否则                 
    
13.                 循环(真)
    
14.                         内容 = 文件.读一行(文件编号) //调用TC命令读取账号的内容        
    
15.                         如果(字符串.长度(内容)>0)        //判断读取的内容是否为空                        
    
16.                         账号[a][b]=字符串.截取(内容,0,字符串.查找字符(内容,124))  //查找“|”的位置，然后截取掉账号，并存入数组中
    
17.                         b = b + 1  //每循环一次b加1
    
18.                         否则  //读取内容为空的时候跳出
    
19.                         跳出
    
20.                         如果结束
    
21.                 循环结束
    
22.                 //为了让大家很好的看到这个效果，我在这里重新写了一个循环将刚存入的数据增添文本至列表框
    
23.                 循环(真)
    
24.                 列表框.增加文本("列表框0",账号[a][b])
    
25.                 b = b - 1
    
26.                 如果(b<1)
    
27.                        跳出
    
28.                 如果结束
    
29.                 循环结束
    
30.         如果结束
    
31.         文件.关闭(文件编号)  //关闭该文件
    
32. 返回 真
    
33. 功能结束
    
34. 
    
35. 功能 逻辑型 开始_点击()
    
36. 如果(线程句柄==0)
    
37.         线程句柄 = 线程.开启("文件操作方法.读取账号")
    
38. 如果结束
    
39. 返回 真
    
40. 功能结束
    
41. 
    
42. 功能 逻辑型 退出_点击()
    
43.         线程.关闭(线程句柄)
    
44.         辅助.退出()
    
45. 返回 真
    
46. 功能结束
    
47. 
    
48. 空间结束

复制代码

迷失

难道是沙发？

sangyiyuan

现在下东西都收费了

章昊

:-|哪里收费

v11ks

貌似这个文件下载不要扣钱的？

智盛辅助软件

收藏了  感谢分享

568988502

哪里有能运用数组的tc版本啊

nan123456789

有点看不懂

pure_bird

此句： 内容 = 文件.读一行(文件编号) //调用TC命令读取账号的内容
读第一行后，是否会自动跳入下一行，下次再读取时读第二行？

buleileibu

想看看附件