VBS读写文件的代码一直无法搞定 吐槽

379958495

自学VBS无数回了  前面的基本都能搞定 就是读写文件的代码写不出来 有阴影了 郁闷   


      求教-ing

qdd6501

自学VBS无数回了  前面的基本都能搞定 就是读写文件的代码写不出来 有阴影了 郁闷   


      求教-ing
379958495 发表于 2012-4-23 14:47

    你要读写的文件的格式是什么样子的呢？excel呢还是txt呢？

17800455

1. 
   
2. '//写文件
   
3. Public Function WriteTextFile(text,fpath)
   
4.         Set fso = createobject("scripting.FileSystemObject")
   
5.         If fso.FileExists(fpath) then
   
6.                 Set fopen = fso.OpenTextFile(fpath)
   
7.                 fopen.WriteLine(text)
   
8.                 fopen.Close
   
9.                 WriteTextFile = True
   
10.         Else
    
11.                 WriteTextFile = False
    
12.         End If
    
13.         Set fso = Nothing
    
14. End Function
    

复制代码

17800455

1. 
   
2. '//读文件
   
3. Public Function ReadTextFile(fpath)
   
4.         i =0
   
5.         Set fso = CreateObject("scripting.FileSystemObject")
   
6.         If fso.FileExists(fpath) Then
   
7.                 Set fopen = fso.OpenTextFile(fpath)
   
8.                 While Not fopen.AtEndOfStream
   
9.                         ReDim Preserve tmpArry(i)
   
10.                         tmpArry(i) = fopen.ReadLine
    
11.                         i = i + 1
    
12.                 Wend
    
13.                 ReadTextFile = tmpArry '//返回数据
    
14.         Else
    
15.                 ReadTextFile = False
    
16.         End If
    
17.         Set fso = Nothing
    
18. End Function
    
19. 
    
20. '//调用，并遍历数组
    
21. a = ReadTextFile("d:\test.txt")
    
22. For j = LBound(a) To UBound(a)
    
23.         MsgBox a(j)
    
24. Next
    
25. 
    

复制代码

喝少了想上树

( ^_^ )不错嘛