DDR爱好者之家 Design By 杰米
处理文件用到的常量有: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
6. ReadAll读取整个文件内容,大文件太占资源,不建议使用
//使用方法和ReadLine近似
7.SkipLine跳过当前行
//使用方法是file.SkipLine,仅用于只读属性打开的文件
8.测试文件行结束/文件结束
a.测试行结束
判断语句
If file.AtEndOfLine=-1
...
EndIf
//表达式为真的时候当前指针处于行末
b.测试文件结束
判断语句
If file.AtEndOfStream=-1
...
EndIf
//表达式为真的时候当前指针处于文件末
9.其他用于文件的函数或者叫方法功能有
a.file.Column 返回当前列号
b.file.Line 返回当前行号
c.file.FileExists(filename) 判断指定文件是否存在
最后强调一点,打开文件以后一定要记得关闭,以免发生数据错误,丢失数据。
下面给出几个利用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
6. ReadAll读取整个文件内容,大文件太占资源,不建议使用
//使用方法和ReadLine近似
7.SkipLine跳过当前行
//使用方法是file.SkipLine,仅用于只读属性打开的文件
8.测试文件行结束/文件结束
a.测试行结束
判断语句
If file.AtEndOfLine=-1
...
EndIf
//表达式为真的时候当前指针处于行末
b.测试文件结束
判断语句
If file.AtEndOfStream=-1
...
EndIf
//表达式为真的时候当前指针处于文件末
9.其他用于文件的函数或者叫方法功能有
a.file.Column 返回当前列号
b.file.Line 返回当前行号
c.file.FileExists(filename) 判断指定文件是否存在
最后强调一点,打开文件以后一定要记得关闭,以免发生数据错误,丢失数据。
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年12月26日
2024年12月26日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]