站长网_站长创业_站长主页_站长之家_易采站长站

会员投稿 投稿指南 站长资讯通告: VBS中SendKeys的基本应用
搜索:
您的位置: 主页 > 教程 > 脚本教程 > VBS > » 正文

VBS基础篇 - vbscript TextStream对象

来源: 易采站长站

TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对象时,我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容。可以通过FileSystemObject 对象的CreateTextFile()及OpenTextFile(),来获取TextStream的对象句柄。

下面我们来具体的看看TextStream 对象的方法及属性的使用

TextStream对象的方法

方法 说明
Close() 关闭一个打开的文件
Read(numchars) 从文件中读出 numchars 个字符
ReadAll() 作为单个字符串读出整个文件
ReadLine() 作为一个字符串从文件中读出一行(直到回车符和换行)
Skip(numchars) 当从文件读出时忽略 numchars 个字符
SkipLine() 当从文件读出时忽略下一行
Write(string) 向文件写入字符串 string
WriteLine(string) 向文件写入字符串 string(可选)和换行符
WriteBlankLines(n) 向文件写入 n 个换行符

Close、Write、WriteLine及WriteBlankLines的使用

方法名:Close()

说明:关闭正在打开的文件

方法名:WriteLine(string)

说明:向文件写入字符串 string(可选)和换行符。

示例:

Dim strPath,strText strPath = "C:\testing.txt" strText = "This is Test !hello word !" '调用函数 Call CreateFile(strPath,strText) Sub CreateFile(strPath,strText) Dim objFso,objStream '创建FileSystemObject对象 Set objFso = CreateObject("Scripting.FileSystemObject") '使用CreateTextFile(),来返回一个TextStream对象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '三个Write的意思为:在文本中写入字符、写入带换行符的字符、写入3个换行符 objStream.Write(strText) objStream.WriteLine(strText) objStream. WriteBlankLines 3 '关闭TextStream对象 objStream.Close End Sub

Read、ReadAll及ReadLine的使用

方法名:Read(numchars)

说明:从 TextStream文件中读入指定数目的字符并返回结果字符串。

方法名:ReadAll()

说明:读入全部 TextStream文件并返回结果字符串。

方法名:ReadLine()

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

示例:

Tags:
最新图文资讯
1 2 3 4 5 6
相关文章列表:
Call CreateFile("c:\test.txt", "This is Test !" & vbCrLf & "hello word !") Sub CreateFile(strPath,strText) Dim objFso,objStream '创建FileSystemObject对象 Set objFso = CreateObject("Scripting.FileSystemObject") '使用FileSystemObject对象的CreateTextFile(),来返回一个TextStream对象句柄 Set objStream = objFso.CreateTextFile(strPath,True) '写入字符 objStream.WriteLine(strText) '读取字符串分别是:读取整行、读取所有、读取指定数目的字符 Msgbox (objStream.ReadLine) Set objStream = objFso.OpenTextFile(strPath,1,true) Msgbox (objStream.ReadAll) Set objStream = objFso.OpenTextFile(strPath,1,true) Msgbox (objStream.Read(9)) '关闭TextStream对象 objStream.Close End Sub
曾刚:消费金融未来监管或出现这几大方向 曾刚:消费金融未来监管或出现这几大
放眼国际,全球金融科技创新正如火如荼,新技术重塑着金融产业全流程。以人工智能、区块链、云计算、大数据为代表的核
2017⇆2019三年寒冬 第三方支付行业之变 2017⇆2019三年寒冬 第三方支付行业之变
中国的钱包制造商,太难了。 有着中国缝制设备制造之都美誉的浙江台州,如今已经找不到专门生产钱包的企业了。 要知道
行业诞生以来最大“地震”!大数据倒在2019 行业诞生以来最大“地震”!大数据倒
一场大数据行业诞生以来最大规模的地震正在发生。 2019年9月6日,第三方数据风控公司魔蝎数据和新颜科技的相关负责人在
“蹊跷”的银行财报:资本充足率飙升至15357% “蹊跷”的银行财报:资本充足率飙升
日前,中国债券信息网披露了黄石农村商业银行股份有限公司(下称黄石农商行)2019年三季度信息报告(下称三季报)。 三
被诈骗+背债!凭什么不让我们起诉支付宝? 被诈骗+背债!凭什么不让我们起诉支付
本文呦呦鹿鸣一位读者的遭遇,这件事从未披露过,他写了下来,供诸君参考。我很欣赏年轻的朋友们这样认真对待自己权利
建行贵州分行被罚50万:“e信通”信贷资金被挪用 建行贵州分行被罚50万:“e信通”信贷资
12月3日,贵州银保监局公布行政处罚信息公开表(银保监银罚决字〔2019〕17号),中国建设银行股份有限公司(以下称建设银
水滴筹创始人:再管不好 愿把公司交给公益组织 水滴筹创始人:再管不好 愿把公司交给
12月5日晚,水滴筹创始人兼CEO沈鹏在微博上发布公开信《水滴筹欢迎大众的监督,希望重新赢得信任》,并表示再管不好,我
山东证监局原局长徐铁被开除党籍:曾与姚刚共事6年 山东证监局原局长徐铁被开除党籍:曾
12月6日,据中央纪委国家监委网站消息,日前,中央纪委国家监委驻中国证监会纪检监察组、山东省监委对中国证券监督管理
助贷业务的运作模式、潜在风险及监管建议 助贷业务的运作模式、潜在风险及监管
编者语: 助贷业务存在客户支持、资金支持和风控支持三种基本模式,其发展建立在比较优势理论和金融功能理论的基础上
太悲情!内幕交易亏损超百万 还被罚60万! 太悲情!内幕交易亏损超百万 还被罚
证监会日前通报了一桩利用内幕交易炒股的案件。在ST天业历时一年多,耗资18亿元的跨国并购案的背后,违法当事人斥资千
最新文章
易采站长站 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助 -