VBS怎样读取上一次文件读到的位置？

zhangrenfang

1. Dim fso
   
2. Dim logfile
   
3. 
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. Set logfile = fso.OpenTextFile("c:\test.txt")
   
6. 
   
7. 
   
8. 
   
9. '读取上一次位置
   
10. Dim lastPos
    
11. lastPos = getLastPosition("c:\test.txt")
    
12. 
    
13. '跳到上一次位置
    
14. Err.Clear
    
15. For I = 1 To lastPos
    
16.     logfile.skipLine
    
17. Next
    
18. 
    
19. '逐行读取文件
    
20. Do While logfile.AtEndOfStream <>  true
    
21.        
    
22.         Dim msg
    
23.         Dim myArray
    
24.         msg =logfile.ReadLine
    
25.         myArray = split(msg)
    
26. 
    
27. Loop

复制代码

test.txt逐渐增加数据进去，请问一下该怎么读取上一次读test.txt的位置，然后继续往下读，就不用重新读一遍文件提高效率（函数getLastPosition该怎么写）

broly

你的是每次读这个文件，然后读到某一部分就结束，下次再开始继续读的？

这样可以把读到的行数保存为一个临时文件，到时再取出来