51Testing软件测试论坛

标题: VBS读写文件的代码一直无法搞定 吐槽 [打印本页]

作者: 379958495    时间: 2012-4-23 14:47
标题: VBS读写文件的代码一直无法搞定 吐槽
自学VBS无数回了  前面的基本都能搞定 就是读写文件的代码写不出来 有阴影了 郁闷   


      求教-ing
作者: qdd6501    时间: 2012-4-24 15:15
自学VBS无数回了  前面的基本都能搞定 就是读写文件的代码写不出来 有阴影了 郁闷   


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



    你要读写的文件的格式是什么样子的呢?excel呢还是txt呢?
作者: 17800455    时间: 2012-4-24 15:49

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

作者: 17800455    时间: 2012-4-24 15:58

  1. '//读文件
  2. Public Function ReadTextFile(fpath)
  3.         i =0
  4.         Set fso = CreateObject("scripting.FileSystemObject")
  5.         If fso.FileExists(fpath) Then
  6.                 Set fopen = fso.OpenTextFile(fpath)
  7.                 While Not fopen.AtEndOfStream
  8.                         ReDim Preserve tmpArry(i)
  9.                         tmpArry(i) = fopen.ReadLine
  10.                         i = i + 1
  11.                 Wend
  12.                 ReadTextFile = tmpArry '//返回数据
  13.         Else
  14.                 ReadTextFile = False
  15.         End If
  16.         Set fso = Nothing
  17. End Function

  18. '//调用,并遍历数组
  19. a = ReadTextFile("d:\test.txt")
  20. For j = LBound(a) To UBound(a)
  21.         MsgBox a(j)
  22. Next

复制代码

作者: 喝少了想上树    时间: 2012-4-25 15:03
( ^_^ )不错嘛




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2