当前位置： 移动技术网 > IT编程>脚本编程>VBScript > VBScript 文件操作代码小结

VBScript 文件操作代码小结

2017年12月08日  | 移动技术网IT编程  | 我要评论

斩匪电视剧,poser6,北海二手房

创建文本文件

复制代码 代码如下:

set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.createtextfile("c:\fso\scriptlog.txt")

检察文件是否存在
复制代码 代码如下:

set objfso = createobject("scripting.filesystemobject")
if objfso.fileexists("c:\fso\scriptlog.txt") then
set objfolder = objfso.getfile("c:\fso\scriptlog.txt")
else
wscript.echo "file does not exist."
end if

删除文本文件
复制代码 代码如下:

set objfso = createobject("scripting.filesystemobject")
objfso.deletefile("c:\fso\scriptlog.txt")

重命名文件
复制代码 代码如下:

set objfso = createobject("scripting.filesystemobject")
objfso.movefile "c:\fso\scriptlog.txt" , "c:\fso\backuplog.txt"

文本操作
读取全部内容
复制代码 代码如下:

const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objfile = objfso.opentextfile("c:\scripts\test.txt", forreading)
strcontents = objfile.readall
objfile.close

一行行的读取文本文件内容
复制代码 代码如下:

const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objtextfile = objfso.opentextfile ("c:\scripts\servers.txt", forreading)
do until objtextfile.atendofstream
strcomputer = objtextfile.readline
wscript.echo strcomputer
loop
objtextfile.close

追加文本文件一行内容
复制代码 代码如下:

const forappending = 8
set objfso = createobject("scripting.filesystemobject")
set objtextfile = objfso.opentextfile ("c:\scripts\service_status.txt", forappending, true)
objtextfile.writeline("追加的内容")
objtextfile.close

有用的几个函数：
替换：将jim替换成james。
复制代码 代码如下:

strnewtext = replace(strtext, "jim ", "james ")

用逗号分隔字符串：
复制代码 代码如下:

arrpath=split(strdn,",")
wscript.echo arrpath(0)

几个实例：
读取文本文件指定的行内容（读第四行内容存到strline变量中）
复制代码 代码如下:

const forreading = 1
set objfso = createobject("scripting.filesystemobject") set objtextfile = objfso.opentextfile("mylogfile.log", forreading)
for i = 1 to 3 objtextfile.readline next
strline = objtextfile.readline wscript.echo strline
objtextfile.close

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网