|
发表于 2013-12-16 17:51:17
|
显示全部楼层
- //读一行文件
- function Read(fileName,listName)
- 君笨笨是帅哥.Check(fileName)
- handle=file.openfile(fileName)
- if(handle==0)
- help.messagebox("文件打开失败","提示")
- else
- while(true)
- values=file.readfileline(handle)
- if(values!="")
- list.addstring(listName,values)
- values=""
- else
- break
- endif
- endwhile
- endif
- file.closefile(handle)
- endfunction
- //判断是否存在文件
- function Check(fileName)
- if(!file.exist(fileName))
- handle=file.createfile(fileName,"rw|FILE_SHARE_READ|FILE_SHARE_WRITE|CREATE_ALWAYS")//自定义属性
- endif
- endfunction
复制代码
直接给你一个方法吧。用法直接调用就OK了,君笨笨是帅哥.Read("D:\TC项目\君笨笨是帅哥\文本.txt","列表框1")
注意,\杠不行的就加多一条。我没有测试,忘了。 |
|