访问外部文本文件的vbs方法及例子
访问外部文本文件的vbs方法及例子，有需要的朋友参考下。
1、vbs文件操作常量介绍：
ForReading = 1 ，ForWriting=2,ForAppending=8 用于的操作分别是读/写和追加，均需要在使用前用VBS Const来声明。
2、用于处理文本文件的方法：
Read(var)—读var个字符
ReadLine—读一行
ReadAll—读整个文件内容
SkipLine—跳过本行指向下一行
Write(var)—把字符串var写入文件
WriteLine(var)—把字符串var和换行符写入文件
WriteBlankLines(n)—写入n个换行符。
理论用于实践，是提高技术水平的最好办法，下面我们就一些例子来加深理解。
1、创建一个新的文本文件，如果文件已经存在则报告错误：
VBS dim fso,file,filename
VBS filename="\测试.txt"
VBS Const ForWriting=2
VBS Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filename)=-1
VBSCall Call MessageBox("发现错误!!!文件已经存在!!!")
Goto over
EndIf
VBS Set file=fso.CreateTextFile(filename,Ture)
VBS file.WriteLine("文件第一行,这是一个测试文件")
VBS file.Close
VBSCall Call MessageBox("测试文件创建成功!!!")
Rem over
EndScript
2、强行写入文件覆盖原有内容：
VBS dim fso,file,filename
VBS filename="\测试.txt"
VBS Const ForWriting=2
VBS Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filename)=-1
VBSCall Call MessageBox("发现错误!!!文件已经存在!!!")
Goto over
EndIf
VBS Set file=fso.CreateTextFile(filename,Ture)
VBS file.WriteLine("文件第一行,这是一个测试文件")
VBS file.Close
VBSCall Call MessageBox("测试文件创建成功!!!")
Rem over
EndScript
3、追加内容到文件末尾
VBS dim fso,file,filename
VBS filename="\测试.txt"
VBS Const ForAppending=8
VBS Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filename)=0
VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
Goto over
EndIf
VBS Set file=fso.OpenTextFile(filename,ForAppending)
VBS file.WriteLine("测试追加字符串到文件末尾")
VBS file.Close
VBSCall Call MessageBox("追加字符串到文件成功!!!")
Rem over
EndScript
4、读取指定文件一行
VBS dim fso,file,filename,text
VBS filename="\测试.txt"
VBS Const ForReading=1
VBS Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filename)=0
VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
Goto over
EndIf
VBS Set file=fso.OpenTextFile(filename,ForReading)
VBS text=file.ReadLine
VBS file.Close
VBS text="从文件"&filename&"读取行成功！读到的字符串为:"&text
VBSCall Call MessageBox(text)
Rem over
EndScript
5、从指定文件行读取2个字符
VBS dim fso,file,filename,text
VBS filename="\测试.txt"
VBS Const ForReading=1
VBS Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filename)=0
VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
Goto over
EndIf
VBS Set file=fso.OpenTextFile(filename,ForReading)
VBS text=file.Read(2)
VBS file.Close
VBS text="从文件"&filename&"读取2个字符成功！读到的字符为:"&text
VBSCall Call MessageBox(text)
Rem over
EndScript
6. ReadAll读取整个文件内容，大文件太占资源，不建议使用
//使用方法和ReadLine近似
7.SkipLine跳过当前行
//使用方法是file.SkipLine,仅用于只读属性打开的文件
8.测试文件行结束/文件结束
a.测试行结束
判断语句
If file.AtEndOfLine=-1
...
EndIf
//表达式为真的时候当前指针处于行末
b.测试文件结束
判断语句
If file.AtEndOfStream=-1
...
EndIf
//表达式为真的时候当前指针处于文件末
9.其他用于文件的函数或者叫方法功能有
b.file.Line 返回当前行号
c.file.FileExists(filename) 判断指定文件是否存在
注意：打开文件后，务必记得关闭，以免发生数据错误，丢失数据。
养成好的编程习惯很重要。祝大家学习进步。
您可能感兴趣的文章：
访问外部文本文件的vbs方法及例子
使用WScript.Shell对象隐藏cmd命令行运行框的方法
VBS显示系统服务列表的实例代码
VBS中CreateObject和WScript.CreateObject的三个区别
VBS脚本运行库手册(2)-管理文件夹
VBS脚本运行库手册(1)-磁盘操作
VBS脚本、BAT批处理删除自身的方法
VBS 添加右键以计算文件MD5值的代码(图文)
vbscript基础教程-什么是vbscript
VBS脚本运行库手册(9)-读取文本文件