VBscript脚本读写txt文件

1、打开文件

使用opentextfile方法

set fs =createobject(“scripting.filesystemobject”)

set ts=fs.opentextfile(“c:\1.txt”,1,true)

注意这里需要填入文件的完整路径，后面一个参数为访问模式

1为forreading

2为forwriting

8为appending

第三个参数指定如果指定文件不存在，是否创建。

 

2、读取文件

读取文件的方法有三个

read(x)读取x个字符

readline读取一行

readall全部读取

例如：

set fs =createobject(“scripting.filesystemobject”)

set ts=fs.opentextfile(“c:\1.txt”,1,true)

value=ts.read(20)

line=ts.readline

contents=ts.readall

 

这里还要介绍几个指针变量：

textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾。例如：

set fs =createobject(“scripting.filesystemobject”)

set f=fs.getfile(“c:\1.txt”,1,false)

set ts=f.openastextstream(1,0)

do while ts.atendofstream<>true

f.read(1)

loop

 

还有一个属性，atendofline,如果已经到了行末尾，这个属性返回true.

Textstream对象还有两个有用的属性，column和line.

在打开一个文件后，行和列指针都被设置为1。

看一个综合的例子吧：

*******************************read.vbs******************************

set fs =createobject(“scripting.filesystemobject”)

set f=fs.opentextfile(“c:\1.txt”,1,true)

do while f.atendofstream<>true

data=””

for a=1 to 5

if f.atendofstream<>true then

data=data+f.readline

end if

next

dataset=dataset+1

wscript.echo “data set”　＆dataset & ”:” & data

loop

 

最后说一下在文件中跳行

skip(x)  跳过x个字符

skipline  跳过一行

用法也很简单 和前面一样，就不说了。

 

 

3、写文件

可以用forwriting和forappending方式来写

写有3各方法：

write(x)

writeline

writeblanklines(n) 写入n个空行

 

来看一个例子：

*****************************************************************

data=”hello, I like script programing”

set fs =createobject(“scripting.filesystemobject”)

if (fs.fileexists(“c:\2.txt”)) then

set f =fs.opentextfile(“c:\2.txt”,8)

f.write data

f.writeline data

f.close

else

set f=fs.opentextfile(“c:\2.txt”,2, true)

f.writeblanklines 2

f.write data

f.close

end if

注意 写完文件以后一定要关闭！！！！！！！  还有就是，如果要读文件又要写文件，读完之后一定也要记得关闭，这样才能以写的方式打开。

http://blog.csdn.net/sssa2000/archive/2004/07/09/37837.aspx