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
'//写文件
Public Function WriteTextFile(text,fpath)
Set fso = createobject("scripting.FileSystemObject")
If fso.FileExists(fpath) then
Set fopen = fso.OpenTextFile(fpath)
fopen.WriteLine(text)
fopen.Close
WriteTextFile = True
Else
WriteTextFile = False
End If
Set fso = Nothing
End Function
复制代码
作者:
17800455
时间:
2012-4-24 15:58
'//读文件
Public Function ReadTextFile(fpath)
i =0
Set fso = CreateObject("scripting.FileSystemObject")
If fso.FileExists(fpath) Then
Set fopen = fso.OpenTextFile(fpath)
While Not fopen.AtEndOfStream
ReDim Preserve tmpArry(i)
tmpArry(i) = fopen.ReadLine
i = i + 1
Wend
ReadTextFile = tmpArry '//返回数据
Else
ReadTextFile = False
End If
Set fso = Nothing
End Function
'//调用,并遍历数组
a = ReadTextFile("d:\test.txt")
For j = LBound(a) To UBound(a)
MsgBox a(j)
Next
复制代码
作者:
喝少了想上树
时间:
2012-4-25 15:03
( ^_^ )不错嘛
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)
Powered by Discuz! X3.2