TC官方合作论坛

标题: 如何读取TXT的 每行文字 [打印本页]

---

作者: dy喳    时间: 2013-12-1 13:43
标题: 如何读取TXT的 每行文字
已经把excel “住址”转成txt了，现在全都是一排排的 住址，
请问怎么 来读取他们啊，每一行的 不需要循环，支持读 一  二 三、、、、、一直下午，

这里的明白，就是怎么读取TXT的 每一行啊
目的是，读取一行 设置字符串，然后在执行下面的找图，XXXXX，然后把“住址粘贴进去就行了”

---

作者: 86480297    时间: 2013-12-2 13:35
用第一行命令 在循环里这命令会自动一行一行的读下去

---

作者: dy喳    时间: 2013-12-15 15:10

86480297 发表于 2013-12-2 13:35
用第一行命令 在循环里这命令会自动一行一行的读下去

没听明白，可以写下简单的代码吗。

---

作者: yangfusheng    时间: 2013-12-16 17:51

1. //读一行文件
   
2. function Read(fileName,listName)
   
3.     君笨笨是帅哥.Check(fileName)
   
4.     handle=file.openfile(fileName)
   
5.     if(handle==0)
   
6.         help.messagebox("文件打开失败","提示")
   
7.     else  
   
8.         while(true)
   
9.             values=file.readfileline(handle)  
   
10.             if(values!="")
    
11.                 list.addstring(listName,values)
    
12.                 values=""
    
13.             else
    
14.                 break
    
15.             endif
    
16.         endwhile  
    
17.     endif
    
18.     file.closefile(handle)
    
19. endfunction  
    
20. 
    
21. //判断是否存在文件
    
22. function Check(fileName)  
    
23.     if(!file.exist(fileName))
    
24.         handle=file.createfile(fileName,"rw|FILE_SHARE_READ|FILE_SHARE_WRITE|CREATE_ALWAYS")//自定义属性
    
25.     endif
    
26. endfunction
    
27. 
    

复制代码

直接给你一个方法吧。用法直接调用就OK了，君笨笨是帅哥.Read("D:\TC项目\君笨笨是帅哥\文本.txt","列表框1")

注意，\杠不行的就加多一条。我没有测试，忘了。

---

作者: yangfusheng    时间: 2013-12-16 17:55

yangfusheng 发表于 2013-12-16 17:51
直接给你一个方法吧。用法直接调用就OK了，君笨笨是帅哥.Read("D:\TC项目\君笨笨是帅哥\文本.txt","列表框 ...

这是一行一行的读取并且添加到list列表里面，怎么修改需要根据你自己的需求了。

---

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

Powered by Discuz! X3.1