国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS基礎(chǔ)篇 - vbscript TextStream對(duì)象

2019-10-26 18:08:14
字體:
供稿:網(wǎng)友

TextStream對(duì)象是用于訪問文本文件的對(duì)象,它是FileSystemObject一個(gè)獨(dú)立的附屬對(duì)象,但在使用TextStream對(duì)象時(shí),我們?nèi)砸柚鶩ileSystemObject 對(duì)象或其附屬對(duì)象來創(chuàng)建一個(gè) TextStream 對(duì)象并訪問磁盤文件的內(nèi)容。可以通過FileSystemObject 對(duì)象的CreateTextFile()及OpenTextFile(),來獲取TextStream的對(duì)象句柄。

下面我們來具體的看看TextStream 對(duì)象的方法及屬性的使用

TextStream對(duì)象的方法

方法 說明
Close() 關(guān)閉一個(gè)打開的文件
Read(numchars) 從文件中讀出 numchars 個(gè)字符
ReadAll() 作為單個(gè)字符串讀出整個(gè)文件
ReadLine() 作為一個(gè)字符串從文件中讀出一行(直到回車符和換行)
Skip(numchars) 當(dāng)從文件讀出時(shí)忽略 numchars 個(gè)字符
SkipLine() 當(dāng)從文件讀出時(shí)忽略下一行
Write(string) 向文件寫入字符串 string
WriteLine(string) 向文件寫入字符串 string(可選)和換行符
WriteBlankLines(n) 向文件寫入 n 個(gè)換行符

Close、Write、WriteLine及WriteBlankLines的使用

方法名:Close()

說明:關(guān)閉正在打開的文件

方法名:WriteLine(string)

說明:向文件寫入字符串 string(可選)和換行符。

示例:

Dim strPath,strTextstrPath = "C:/testing.txt"strText = "This is Test !hello word !"'調(diào)用函數(shù)Call CreateFile(strPath,strText) Sub CreateFile(strPath,strText) Dim objFso,objStream '創(chuàng)建FileSystemObject對(duì)象 Set objFso = CreateObject("Scripting.FileSystemObject") '使用CreateTextFile(),來返回一個(gè)TextStream對(duì)象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '三個(gè)Write的意思為:在文本中寫入字符、寫入帶換行符的字符、寫入3個(gè)換行符 objStream.Write(strText) objStream.WriteLine(strText) objStream. WriteBlankLines 3 '關(guān)閉TextStream對(duì)象 objStream.CloseEnd Sub

Read、ReadAll及ReadLine的使用

方法名:Read(numchars)

說明:從 TextStream文件中讀入指定數(shù)目的字符并返回結(jié)果字符串。

方法名:ReadAll()

說明:讀入全部 TextStream文件并返回結(jié)果字符串。

方法名:ReadLine()

說明:從 TextStream文件中讀入一整行字符(直到下一行,但不包括下一行字符),并返回字符串

示例:

Call CreateFile("c:/test.txt", "This is Test !" & vbCrLf & "hello word !") Sub CreateFile(strPath,strText) Dim objFso,objStream '創(chuàng)建FileSystemObject對(duì)象 Set objFso = CreateObject("Scripting.FileSystemObject") '使用FileSystemObject對(duì)象的CreateTextFile(),來返回一個(gè)TextStream對(duì)象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '寫入字符 objStream.WriteLine(strText) '讀取字符串分別是:讀取整行、讀取所有、讀取指定數(shù)目的字符 Msgbox (objStream.ReadLine) Set objStream = objFso.OpenTextFile(strPath,1,true) Msgbox (objStream.ReadAll) Set objStream = objFso.OpenTextFile(strPath,1,true) Msgbox (objStream.Read(9)) '關(guān)閉TextStream對(duì)象 objStream.CloseEnd Sub
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 弋阳县| 滦平县| 正蓝旗| 宜宾县| 清涧县| 将乐县| 阿拉善右旗| 普安县| 西贡区| 舒兰市| 原平市| 鄂托克前旗| 湘乡市| 汨罗市| 平顺县| 呼伦贝尔市| 延寿县| 安吉县| 子长县| 汶上县| 赤水市| 资溪县| 高要市| 太保市| 双辽市| 广灵县| 瓦房店市| 灵寿县| 苏尼特左旗| 长汀县| 山西省| 册亨县| 交城县| 西华县| 磐安县| 湖南省| 班戈县| 陕西省| 永兴县| 方城县| 丹阳市|