VBS文本文件操作實(shí)現(xiàn)代碼
對(duì)于文件的操作,例如:生成一個(gè)或者打開一個(gè)或者刪除一個(gè).txt格式文件。
雖然官方的FILE插件提供了一些基本功能,但功能不多。
你并不需要理解什么是fso模版,什么是vbs語(yǔ)句,直接套用下面的語(yǔ)句吧!
紅色字為自己定義的部分,藍(lán)色字為任意選一部分
如果你看不懂,請(qǐng)參考下面的例子!
操作同一個(gè)文件紅色部分必須相同
請(qǐng)認(rèn)真看括號(hào)內(nèi)的解釋內(nèi)容
定義一個(gè)名為fso的關(guān)系文件問題的對(duì)象,對(duì)于一個(gè)文件的操作只需寫一次,此句必須寫
VBS Set fso = CreateObject("Scripting.FileSystemObject")
0.判斷一個(gè)文件或文件夾是否存在(yn是返回值,文件存在返回1,不存在返回0)
VBS yn=fso.FileExists(判斷文件的目錄)
1.創(chuàng)建一個(gè)文件(藍(lán)字定義該文本文件是否可以被下次寫入覆蓋,省略默認(rèn)為ture)
VBS set ttfile=fso.createtextfile(創(chuàng)建的文件目錄,ture|false)
2.打開一個(gè)已存在的文件(藍(lán)字定義文件寫入方式,分別為a.只讀b.可讀寫,但每打開一次文件重寫c.在文件末尾寫)
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
注意:要想更改打開方式必須關(guān)閉文件重新打開
VBS set ttfile=fso.opentextfile(打開文件的目錄,forreading|forwriting|forappending)
3.關(guān)閉一個(gè)打開的文件(紅色部分要于已經(jīng)打開的文件紅色部分相同)
VBS ttfile.close
4.讀取打開文件的一行并回車(紅色部分ttfile要于已經(jīng)打開的文件紅色部分相同)
VBS read=ttfile.ReadLine
5.讀取所有文件內(nèi)容(紅色部分ttfile要于已經(jīng)打開的文件紅色部分相同)
VBS read=ttfile.ReadAll
6.寫入一行并回車(紅色部分要于已經(jīng)打開的文件紅色部分相同)
VBS ttfile.writeline(自己要寫入的內(nèi)容)
7.刪除指定文件(若已定義過ttfile則不需要第一句)
VBS set ttfile=fso.GetFile(要?jiǎng)h的文件目錄)
VBS ttfile.delete
8.判斷輸入標(biāo)記是否在末尾(是返回-1,否則返回0)
VBS yn=ttfile.atendofstream
以下是一些文件夾的操作
8.判斷是否為根目錄(yn是返回值,文件存在返回1,不存在返回0)
VBS yn=fso.IsRootFolder
9.讀取文件夾
VBS set ttfile=fso.GetFolder(文件夾目錄)
10.創(chuàng)建一個(gè)文件夾
VBS set ttfile=fso.creaFolder(創(chuàng)建的文件夾目錄)
11.刪除指定文件夾(若已定義過ttfile則不需要第一句)
VBS set ttfile=fso.GetFolder(要?jiǎng)h的文件目錄)
VBS ttfile.deletefolder
下面是其他一些經(jīng)常用到的文件操作(注意:可用于所有格式的文件。紅字是你的上文腳本已經(jīng)定義過的)
VBS ttfile.size 返回文件大小
VBS ttfile.type 返回文件類型
VBS ttfile.DateCreated 返回文件創(chuàng)建時(shí)間
VBS ttfile.DatelastAccessed 返回文件最近訪問時(shí)間
VBS ttfile.DateLastModified 返回文件最后修改時(shí)間
VBS ttfile.name 返回文件名稱
VBS ttfile.ShortPath 返回文件短路徑名
VBS ttfile.path 返回文件物理地址
VBS Set fso = CreateObject("Scripting.FileSystemObject")
//判斷d盤下是否有文件1.txt
VBS pd1=fso.FileExists(d:\1.txt)
if 0=pd1
//沒有的話,在d盤下創(chuàng)建一個(gè)不可覆蓋的文件1.txt
VBS set txtfile=fso.createtextfile("d:\1.txt",false)
//以在末尾寫入的方式打開1.txt
VBS set txtfile=fso.opentextfile("d:\1.txt",forappending)
//寫入一行“1234567890”
VBS txtfile.writeline("1234567890")
//關(guān)閉1.txt
VBS txtfile.close
endif
//以只讀方式打開1.txt
VBS set txtfile=fso.opentextfile("d:\1.txt",forreading)
//讀取第一行,并將其賦予變量read
VBS read=txtfile.ReadLine
//關(guān)閉1.txt
VBS txtfile.close
一時(shí)間沒有完全列出所有函數(shù),不足的部分希望大家跟帖補(bǔ)上。
上一篇:VBS獲取當(dāng)前目錄下所有文件夾名字的代碼
欄 目:vb
下一篇:vbs 獲取當(dāng)前目錄文件數(shù)量的代碼(不包括子文件夾中的)
本文標(biāo)題:VBS文本文件操作實(shí)現(xiàn)代碼
本文地址:http://mengdiqiu.com.cn/a1/vb/7296.html
您可能感興趣的文章
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語(yǔ)法速查及實(shí)例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語(yǔ)句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼


閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語(yǔ)法速查及實(shí)例說明
隨機(jī)閱讀
- 01-10delphi制作wav文件的方法
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實(shí)例總結(jié)
- 04-02jquery與jsp,用jquery
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什