亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

使用VBS訪問外部文本文件一些方法和腳本實例代碼

2020-06-26 18:33:09
字體:
來源:轉載
供稿:網友
下面給出幾個利用VBScript訪問外部文件的例子,方便學習使用vbs操作外部文本文件的朋友
 
處理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分別是讀/寫和追加,都要在使用之前用VBS Const來聲明。常用于處理文本文件的方法有:Read(var)—讀var個字符,ReadLine—讀一行,ReadAll—讀整個文件內容,SkipLine—跳過本行指向下一行,Write(var)—把字符串var寫入文件,WriteLine(var)—把字符串var和換行符寫入文件,WriteBlankLines(n)—寫入n個換行符。 
下面給出幾個利用VBScript訪問外部文件的例子: 

1.創建一個新的文本文件,如果文件已經存在則報告錯誤: 
復制代碼代碼如下:

Rem 在當前盤根目錄下創建"測試.txt"并寫入一個字符串 
VBS dim fso,file,filename 
VBS filename="/測試.txt" 
VBS Const ForWriting=2 
VBS Set fso=CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(filename)=-1 
VBSCall Call MessageBox("發現錯誤!!!文件已經存在!!!") 
Goto over 
EndIf 
VBS Set file=fso.CreateTextFile(filename,Ture) 
VBS file.WriteLine("文件第一行,這是一個測試文件") 
VBS file.Close 
VBSCall Call MessageBox("測試文件創建成功!!!") 
Rem over 
EndScript 

2.強行寫入文件覆蓋原有內容: 
復制代碼代碼如下:

Rem 在當前盤根目錄下創建"測試.txt"并寫入一個字符串 
VBS dim fso,file,filename 
VBS filename="/測試.txt" 
VBS Const ForWriting=2 
VBS Set fso=CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(filename)=-1 
VBSCall Call MessageBox("發現錯誤!!!文件已經存在!!!") 
Goto over 
EndIf 
VBS Set file=fso.CreateTextFile(filename,Ture) 
VBS file.WriteLine("文件第一行,這是一個測試文件") 
VBS file.Close 
VBSCall Call MessageBox("測試文件創建成功!!!") 
Rem over 
EndScript 

3.往文件尾部追加內容: 
復制代碼代碼如下:

Rem 往當前盤根目錄下的文件"測試.txt"末尾追加一個字符串 
VBS dim fso,file,filename 
VBS filename="/測試.txt" 
VBS Const ForAppending=8 
VBS Set fso=CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(filename)=0 
VBSCall Call MessageBox("發現錯誤!!!文件不存在!!!") 
Goto over 
EndIf 
VBS Set file=fso.OpenTextFile(filename,ForAppending) 
VBS file.WriteLine("測試追加字符串到文件末尾") 
VBS file.Close 
VBSCall Call MessageBox("追加字符串到文件成功!!!") 
Rem over 
EndScript 

4.讀取指定文件一行 
復制代碼代碼如下:

Rem 從當前盤根目錄下的文件"測試.txt"讀一行 
VBS dim fso,file,filename,text 
VBS filename="/測試.txt" 
VBS Const ForReading=1 
VBS Set fso=CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(filename)=0 
VBSCall Call MessageBox("發現錯誤!!!文件不存在!!!") 
Goto over 
EndIf 
VBS Set file=fso.OpenTextFile(filename,ForReading) 
VBS text=file.ReadLine 
VBS file.Close 
VBS text="從文件"&filename&"讀取行成功!讀到的字符串為:"&text 
VBSCall Call MessageBox(text) 
Rem over 
EndScript 

5.從指定文件行讀取2個字符 
復制代碼代碼如下:

Rem 從當前盤根目錄下的文件"測試.txt"讀取2個字符 
VBS dim fso,file,filename,text 
VBS filename="/測試.txt" 
VBS Const ForReading=1 
VBS Set fso=CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(filename)=0 
VBSCall Call MessageBox("發現錯誤!!!文件不存在!!!") 
Goto over 
EndIf 
VBS Set file=fso.OpenTextFile(filename,ForReading) 
VBS text=file.Read(2) 
VBS file.Close 
VBS text="從文件"&filename&"讀取2個字符成功!讀到的字符為:"&text 
VBSCall Call MessageBox(text) 
Rem over 
EndScript 

6. ReadAll讀取整個文件內容,大文件太占資源,不建議使用 

//使用方法和ReadLine近似 

7.SkipLine跳過當前行 

//使用方法是file.SkipLine,僅用于只讀屬性打開的文件 

8.測試文件行結束/文件結束 
a.測試行結束 
判斷語句 
If file.AtEndOfLine=-1 
... 
EndIf 
//表達式為真的時候當前指針處于行末 
b.測試文件結束 
判斷語句 
If file.AtEndOfStream=-1 
... 
EndIf 
//表達式為真的時候當前指針處于文件末 

9.其他用于文件的函數或者叫方法功能有 

a.file.Column 返回當前列號 
b.file.Line 返回當前行號 
c.file.FileExists(filename) 判斷指定文件是否存在 

最后強調一點,打開文件以后一定要記得關閉,以免發生數據錯誤,丟失數據。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产99久久精品一区二区 夜夜躁日日躁| 亚洲欧美综合另类中字| 亚洲国产精品网站| 亚洲va久久久噜噜噜| 亚洲www在线观看| 亚洲男人的天堂网站| 欧美激情国产高清| 久久精品国亚洲| 欧美日韩一区二区免费在线观看| 亚洲综合精品一区二区| 国产精品久久久久久久av电影| 久久精品国产亚洲一区二区| 日韩精品免费一线在线观看| 国产精品久久久久久一区二区| 国产成人aa精品一区在线播放| 精品久久中文字幕| 欧美日韩免费观看中文| 久久久久久成人| 成人精品一区二区三区| 日韩免费在线免费观看| 欧美日韩免费观看中文| 国产精品热视频| 中文字幕无线精品亚洲乱码一区| 欧美午夜宅男影院在线观看| 国产精品日韩欧美综合| 中文字幕国内精品| 国产精品精品久久久| 亚洲三级 欧美三级| 最新69国产成人精品视频免费| 91av视频在线| 91久久精品视频| 日韩av电影手机在线| 欧美大片欧美激情性色a∨久久| 国产在线高清精品| 亚洲四色影视在线观看| 国产成人小视频在线观看| 亚洲91精品在线观看| 亚洲综合色激情五月| 三级精品视频久久久久| 亚洲精品wwwww| 日韩欧美极品在线观看| 国模gogo一区二区大胆私拍| 国产欧美一区二区三区久久| 欧美电影在线观看高清| 欧美放荡办公室videos4k| xvideos成人免费中文版| 国产精品久久久久av免费| 成人国产精品一区二区| 97在线观看视频国产| 国产午夜精品免费一区二区三区| 亚洲福利视频网站| 国产精品h在线观看| 亚洲欧美日韩国产中文| 亚洲久久久久久久久久久| 久久综合伊人77777蜜臀| 久久久久久久一区二区三区| 精品女同一区二区三区在线播放| 久久天天躁狠狠躁夜夜躁2014| 午夜剧场成人观在线视频免费观看| 亚洲午夜精品久久久久久久久久久久| 正在播放亚洲1区| 亚洲国产精彩中文乱码av在线播放| 亚洲精品电影在线观看| 久久成人综合视频| 久久99久久久久久久噜噜| 国产专区精品视频| 精品久久久久久久久久ntr影视| 国产精品成人一区二区| 欧美一级在线亚洲天堂| 亚洲香蕉成人av网站在线观看| 国产精品免费久久久久影院| 在线观看欧美日韩| 国产欧美亚洲精品| 欧美一级高清免费| 成人免费大片黄在线播放| 国产成人精品优优av| 国产美女精品视频| 欧美性猛交xxxx乱大交蜜桃| 欧美在线精品免播放器视频| 久热精品视频在线| 亚洲福利视频在线| 国内自拍欧美激情| 色中色综合影院手机版在线观看| 欧美孕妇与黑人孕交| 成人激情视频小说免费下载| 欧美亚洲另类激情另类| 日韩在线视频网站| 亚洲综合一区二区不卡| 亚洲伊人第一页| 91久久久亚洲精品| 国产精品久久久久久久久免费| 成人h视频在线观看播放| 日韩精品免费在线观看| 欧美另类99xxxxx| 亚洲a区在线视频| 欧美成人免费全部| 欧美老女人xx| 国产拍精品一二三| 国产精品成人一区| 美女久久久久久久久久久| 久久久国产成人精品| 久久伊人精品视频| 久久久久久久久电影| 日韩视频永久免费观看| 国产美女久久精品| 精品国产一区二区三区久久狼5月| 欧美在线观看视频| 久久天堂av综合合色| 九九九久久国产免费| 亚洲韩国欧洲国产日产av| 欧美性生交xxxxx久久久| 日韩有码片在线观看| 黄色成人av在线| 久久免费福利视频| 日韩高清人体午夜| 日韩av黄色在线观看| 国产精品直播网红| 日韩欧美视频一区二区三区| 国产成人亚洲精品| 午夜精品久久久久久久男人的天堂| 亚洲一区中文字幕在线观看| 日韩在线欧美在线| 欧美日韩国产999| 国产成人精品视频在线观看| 欧美精品一区二区三区国产精品| 久久亚洲精品视频| 久久成人国产精品| 国产亚洲美女精品久久久| 欧美巨猛xxxx猛交黑人97人| 97免费中文视频在线观看| 国产精品极品美女粉嫩高清在线| 国产精品mp4| 日韩三级影视基地| 亚洲精品免费一区二区三区| 欧美专区在线观看| 在线观看视频99| 亚洲一区www| 国产美女精品视频| 国产精品海角社区在线观看| 国产精品偷伦免费视频观看的| 国产成人涩涩涩视频在线观看| 国产精品爽爽ⅴa在线观看| 亚洲精品国产精品国自产观看浪潮| 久久免费视频这里只有精品| 国产精品com| 久久精品青青大伊人av| 国产精品午夜视频| 亚洲一区二区三区xxx视频| 国产精品自产拍高潮在线观看| 精品日韩中文字幕| 91精品国产777在线观看| 国产日韩欧美视频| 欧美精品一本久久男人的天堂| 久久人人看视频| 91网站免费观看| 成人有码在线播放| 欧美高清视频在线| 九九久久精品一区| 色综合久久精品亚洲国产| 美乳少妇欧美精品| 欧美日韩国产在线看| 日韩精品在线视频观看| 狠狠久久亚洲欧美专区| 一本一本久久a久久精品综合小说|