VBS讀寫txt文件經常使用方法

一、打開文件

使用opentextfile方法

set fs =createobject(「scripting.filesystemobject」)

set ts=fs.opentextfile(「c:\1.txt」,1,true)

注意這裏須要填入文件的完整路徑，後面一個參數爲訪問模式

1爲forreading

2爲forwriting

8爲appending

第三個參數指定若是指定文件不存在，是否建立。

 

二、讀取文件

讀取文件的方法有三個

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。

看一個綜合的例子吧：

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  跳過一行

用法也很簡單 和前面同樣，就不說了。

三、寫文件

能夠用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

注意 寫完文件之後必定要關閉！！！！！！！  還有就是，若是要讀文件又要寫文件，讀完以後必定也要記得關閉，這樣才能以寫的方式打開。