gpt4 book ai didi

vbs操作txt文本文件常用方法与函数代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs操作txt文本文件常用方法与函数代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

'creat by 席飞剑(小席老师) 。

'操作文本文件,操作fso对象(文件对象操作) 。

函数代码 。

创建文件 。

?
1
2
3
4
5
6
7
8
9
dim fso, f
set fso = server.CreateObject( "Scripting.FileSystemObject" )
set f = fso.CreateTextFile( "C:\test.txt" , true) '第二个参数表示目标文件存在时是否覆盖
f.Write( "写入内容" )
f.WriteLine( "写入内容并换行" )
f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车)
f.Close()
set f = nothing
set fso = nothing

打开并读文件 。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim fso, f
set fso = server.CreateObject( "Scripting.FileSystemObject" )
set f = fso.OpenTextFile( "C:\test.txt" , 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符,注意:无参数
response.Write f.Read(3) '从当前位置向后读取三个字符,并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数
response.Write f.ReadAll() '从当前位置向后读取,直到文件结束,并将当前位置移动到文件的最后
if f.atEndOfLine then
   response.Write( "一行的结尾!" )
end if
if f.atEndOfStream then
   response.Write( "文件的结尾!" )
end if
f.Close()
set f = nothing
set fso = nothing

打开并写文件 。

?
1
2
3
4
5
6
7
8
9
dim fso, f
set fso = server.CreateObject( "Scripting.FileSystemObject" )
set f = fso.OpenTextFile( "C:\test.txt" , 2, false) '第二个参数 2 表示重写,如果是 8 表示追加
f.Write( "写入内容" )
f.WriteLine( "写入内容并换行" )
f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车)
f.Close()
set f = nothing
set fso = nothing

判断文件是否存在 。

?
1
2
3
4
5
6
7
8
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
if fso.FileExists( "C:\test.txt" ) then
   response.Write( "目标文件存在" )
else
   response.Write( "目标文件不存在" )
end if
set fso = nothing

移动文件 。

?
1
2
3
4
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
call fso.MoveFile( "C:\test.txt" , "D:\test111.txt" ) '两个参数的文件名部分可以不同
set fso = nothing

复制文件 。

?
1
2
3
4
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
call fso.CopyFile( "C:\test.txt" , "D:\test111.txt" ) '两个参数的文件名部分可以不同
set fso = nothing

删除文件 。

?
1
2
3
4
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
fso.DeleteFile( "C:\test.txt" )
set fso = nothing

创建文件夹 。

?
1
2
3
4
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
fso.CreateFolder( "C:\test" ) '目标文件夹的父文件夹必须存在
set fso = nothing

判断文件夹是否存在 。

?
1
2
3
4
5
6
7
8
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
if fso.FolderExists( "C:\Windows" ) then
   response.Write( "目标文件夹存在" )
else
   response.Write( "目标文件夹不存在" )
end if
set fso = nothing

删除文件夹 。

?
1
2
3
4
dim fso
set fso = server.CreateObject( "Scripting.FileSystemObject" )
fso.DeleteFolder( "C:\test" ) '文件夹不必为空
set fso = nothing

这篇文章就介绍到这,更多的大家可以查看我以前发布的关于vbs txt操作的相关文章.

最后此篇关于vbs操作txt文本文件常用方法与函数代码的文章就讲到这里了,如果你想了解更多关于vbs操作txt文本文件常用方法与函数代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com