关于文件读取的问题

Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("文件位置，比如c:\sample.txt")
str = ts.ReadAll
sResult = Mid(str, 开始位置, 长度)  '比如Mid(str, 10, 5)

解决方案 »

  1.   

    对 !楼上的FSO运用很方便!比传统的I/O语句好!
      

  2.   

    用Open filename for random as #1 len=len(record)
      dim varname as ***
      get #1,pos,varname
    不行么？
      

  3.   

    你要是愿意用Windows API的话，那就好办了。你可以看看FileSeek和FileRead.
      

  4.   

    dim s as string*(指定长度)
    Open filename for random as #1 
     get #1,pos,s
    close #1
      

  5.   

    我认为 BrentIvan 的做法不太好，如果文件比较大，str会有麻烦，我认为最好用 ReadLine（如果不想用API）。