标题: [问题求助] VBS怎样读取上一次文件读到的位置？ [打印本页]
作者: zhangrenfang 时间: 2011-10-14 11:21 标题: VBS怎样读取上一次文件读到的位置？
- Dim fso
- Dim logfile
-
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set logfile = fso.OpenTextFile("c:\test.txt")
-
-
-
- '读取上一次位置
- Dim lastPos
- lastPos = getLastPosition("c:\test.txt")
-
- '跳到上一次位置
- Err.Clear
- For I = 1 To lastPos
- logfile.skipLine
- Next
-
- '逐行读取文件
- Do While logfile.AtEndOfStream <> true
-
- Dim msg
- Dim myArray
- msg =logfile.ReadLine
- myArray = split(msg)
-
- Loop
test.txt逐渐增加数据进去，请问一下该怎么读取上一次读test.txt的位置，然后继续往下读，就不用重新读一遍文件提高效率（函数getLastPosition该怎么写）
作者: broly 时间: 2011-10-15 11:10
你的是每次读这个文件，然后读到某一部分就结束，下次再开始继续读的？
这样可以把读到的行数保存为一个临时文件，到时再取出来
| 欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |