使用VBS访问外部文本文件一些方法和脚本实例代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 处理文件用到的常量有：ForReading = 1 ，ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加，都要在使用之前用VBS Const来声明。常用于处理文本文件的方法有：Read(var)—读var个字符，ReadLine—读一行，ReadAll—读整个文件内容，SkipLine—跳过本行指向下一行，Write(var)—把字符串var写入文件，WriteLine(var)—把字符串var和换行符写入文件，WriteBlankLines(n)—写入n个换行符。 下面给出几个利用VBScript访问外部文件的例子: 1.创建一个新的文本文件，如果文件已经存在则报告错误： 复制代码 代码如下: Rem 在当前盘根目录下创建"测试.txt"并写入一个字符串 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.强行写入文件覆盖原有内容： 复制代码 代码如下: Rem 在当前盘根目录下创建"测试.txt"并写入一个字符串 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.往文件尾部追加内容： 复制代码 代码如下: Rem 往当前盘根目录下的文件"测试.txt"末尾追加一个字符串 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.读取指定文件一行 复制代码 代码如下: Rem 从当前盘根目录下的文件"测试.txt"读一行 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个字符 复制代码 代码如下: Rem 从当前盘根目录下的文件"测试.txt"读取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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于使用VBS访问外部文本文件一些方法和脚本实例代码的所有评论
