如何使用vbscript來讀寫文件-創(chuàng)新互聯(lián)

這篇文章主要講解了“如何使用vbscript來讀寫文件”，文中的講解內(nèi)容簡(jiǎn)單清晰，易于學(xué)習(xí)與理解，下面請(qǐng)大家跟著小編的思路慢慢深入，一起來研究和學(xué)習(xí)“如何使用vbscript來讀寫文件”吧！             

10年積累的成都網(wǎng)站制作、網(wǎng)站建設(shè)經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有新鄉(xiāng)縣免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

1、打開文件

使用opentextfile方法

set fs =createobject(“scripting.filesystemobject”)

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

注意這里需要填入文件的完整路徑，后面一個(gè)參數(shù)為訪問模式

1為forreading

2為forwriting

8為appending

第三個(gè)參數(shù)指定如果指定文件不存在，是否創(chuàng)建。
  

2、讀取文件

讀取文件的方法有三個(gè)

read(x)讀取x個(gè)字符

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
  

這里還要介紹幾個(gè)指針變量：

textstream對(duì)象的atendofstream屬性。當(dāng)處于文件結(jié)尾的時(shí)候這個(gè)屬性返回true.我們可以用循環(huán)檢測(cè)又沒有到達(dá)文件末尾。例如：

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
  

還有一個(gè)屬性，atendofline,如果已經(jīng)到了行末尾，這個(gè)屬性返回true.

Textstream對(duì)象還有兩個(gè)有用的屬性，column和line.

在打開一個(gè)文件后，行和列指針都被設(shè)置為1。

看一個(gè)綜合的例子吧：

*******************************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”?。ataset & ”:” & data

loop   

最后說一下在文件中跳行

skip(x)  跳過x個(gè)字符

skipline  跳過一行

用法也很簡(jiǎn)單 和前面一樣，就不說了。
    
3、寫文件

可以用forwriting和forappending方式來寫

寫有3各方法：

write(x)

writeline

writeblanklines(n) 寫入n個(gè)空行
  
來看一個(gè)例子：

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

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 

注意 寫完文件以后一定要關(guān)閉?。。。。。。?nbsp; 還有就是，如果要讀文件又要寫文件，讀完之后一定也要記得關(guān)閉，這樣才能以寫的方式打開。

感謝各位的閱讀，以上就是“如何使用vbscript來讀寫文件”的內(nèi)容了，經(jīng)過本文的學(xué)習(xí)后，相信大家對(duì)如何使用vbscript來讀寫文件這一問題有了更深刻的體會(huì)，具體使用情況還需要大家實(shí)踐驗(yàn)證。這里是創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，小編將為大家推送更多相關(guān)知識(shí)點(diǎn)的文章，歡迎關(guān)注！

當(dāng)前名稱：如何使用vbscript來讀寫文件-創(chuàng)新互聯(lián)
URL標(biāo)題：http://bm7419.com/article16/dgdhgg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、網(wǎng)站內(nèi)鏈、商城網(wǎng)站、微信小程序、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)