按键精灵读文本
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
实例】读写.TXT文本内容(可用于小精灵
读取参数)
处理文件用到的常量有: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.创建一个新的文本文件,如果文件已经存在则报告错误:
1.Rem 在当前盘根目录下创建"测试.txt"并写入一个字符串
2.VBS dim fso,file,filename
3.VBS filename="\测试.txt"
4.VBS Const ForWriting=2
5.VBS Set fso=CreateObject("Scripting.FileSystemObject")
6.If fso.FileExists(filename)=-1
7. VBSCall Call MessageBox("发现错误!!!文件已经存在!!!")
8. Goto over
9.EndIf
10.VBS Set file=fso.CreateTextFile(filename,Ture)
11.VBS file.WriteLine("文件第一行,这是一个测试文件")
12.VBS file.Close
13.VBSCall Call MessageBox("测试文件创建成功!!!")
14.Rem over
15.EndScript
复制代码
2.强行写入文件覆盖原有内容:
1.Rem 往当前盘根目录下的文件"测试.txt"写入一个字符串,覆盖原有内容
2.VBS dim fso,file,filename
3.VBS filename="\测试.txt"
4.VBS Const ForWriting=2
5.VBS Set fso=CreateObject("Scripting.FileSystemObject")
6.If fso.FileExists(filename)=0
7. VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
8. Goto over
9.EndIf
10.VBS Set file=fso.OpenTextFile(filename,ForWriting,Ture)
11.VBS file.WriteLine("测试写入文件行")
12.VBS file.Close
13.VBSCall Call MessageBox("写入文件成功!!!")
14.Rem over
15.EndScript
复制代码
3.往文件尾部追加内容:
1.Rem 往当前盘根目录下的文件"测试.txt"末尾追加一个字符串
2.VBS dim fso,file,filename
3.VBS filename="\测试.txt"
4.VBS Const ForAppending=8
5.VBS Set fso=CreateObject("Scripting.FileSystemObject")
6.If fso.FileExists(filename)=0
7. VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
8. Goto over
9.EndIf
10.VBS Set file=fso.OpenTextFile(filename,ForAppending)
11.VBS file.WriteLine("测试追加字符串到文件末尾")
12.VBS file.Close
13.VBSCall Call MessageBox("追加字符串到文件成功!!!")
14.Rem over
15.EndScript
复制代码
4.读取指定文件一行
1.Rem 从当前盘根目录下的文件"测试.txt"读一行
2.VBS dim fso,file,filename,text
3.VBS filename="\测试.txt"
4.VBS Const ForReading=1
5.VBS Set fso=CreateObject("Scripting.FileSystemObject")
6.If fso.FileExists(filename)=0
7. VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
8. Goto over
9.EndIf
10.VBS Set file=fso.OpenTextFile(filename,ForReading)
11.VBS text=file.ReadLine
12.VBS file.Close
13.VBS text="从文件"&filename&"读取行成功!读到的字符串为:"&text
14.VBSCall Call MessageBox(text)
15.Rem over
16.EndScript
复制代码
5.从指定文件行读取2个字符
1.Rem 从当前盘根目录下的文件"测试.txt"读取2个字符
2.VBS dim fso,file,filename,text
3.VBS filename="\测试.txt"
4.VBS Const ForReading=1
5.VBS Set fso=CreateObject("Scripting.FileSystemObject")
6.If fso.FileExists(filename)=0
7. VBSCall Call MessageBox("发现错误!!!文件不存在!!!")
8. Goto over
9.EndIf
10.VBS Set file=fso.OpenTextFile(filename,ForReading)
11.VBS text=file.Read(2)