VBScript 文件操作代码小结
程序员文章站
2022-04-10 08:04:51
创建文本文件 复制代码 代码如下:set objfso = createobject("scripting.filesystemobject") set objfile =...
创建文本文件
复制代码 代码如下:
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
上一篇： 用VBS脚本实现更换Windows Xp序列号的代码
下一篇： vbs base64 解密脚本代码