开发者社区> 狂师> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

VBS基础篇 - 对象(7) - TextStream对象

简介: VBS基础篇 - 对象(7) - TextStream对象   TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对象时,我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容。
+关注继续查看

VBS基础篇 - 对象(7) - 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 个换行符

 

 

  CloseWrite、WriteLine及WriteBlankLines的使用

方法名Close()

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

方法名WriteLine(string)

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

示例   

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

 

   ReadReadAll及ReadLine的使用

方法名Read(numchars)

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

方法名ReadAll()

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

方法名ReadLine()

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

示例

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

 

    SkipSkipLine的使用

方法名Skip(numchars)

说明:读取 TextStream文件时跳过指定数目的字符

方法名SkipLine()

说明:当读到 TextStream文件时,跳过下一行。

示例

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim strPath,strText
strPath = "C:\test.txt"
'调用函数
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream
    '创建FileSystemObject对象
    Set objFso = CreateObject ("Scripting.FileSystemObject")
    '使用FileSystemObject对象的CreateTextFile(),来返回一个TextStream对象句柄
    Set objStream = objFso.CreateTextFile(strPath,True)
    '在文本中写入字符
    objStream.Write "This is Test !" & vbCrLf & "hello word !"
    '以只读的方式打开文件
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '读取文件时跳过5个字符;或者跳过当前行,读取下一行
    objStream.Skip(5)
    Msgbox objStream.ReadAll
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '跳过第一行
    objStream.SkipLine
    Msgbox objStream.ReadAll
    '关闭TextStream对象
    objStream.Close
End Sub

 

   TextStream对象的属性 

属性

说明

AtEndOfLine

如果文件位置指针在文件中一行的末尾则返回 True

AtEndOfStream

如果文件位置指针在文件的末尾则返回 True

Column

 1 开始返回文件中当前字符的列号

Line

 1 开始返回文件中当前行的行号

 

  AtEndOfLineAtEndOfStream的使用

两者间的区别是:

AtEndOfLine——读取到当前文本行的末尾;

AtEndOfStream——读取到整个文本的末尾

示例

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim strPath,strText
strPath = "C:\test.txt"
'调用函数
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream,str
    '创建FileSystemObject对象
    Set objFso = CreateObject ("Scripting.FileSystemObject")
    '以只读的方式打开文件,如果文件不存在则创建它
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '如果当前的指针不在行末,则读取文本内容
    Do While objStream.AtEndOfLine <> true
        str = str + objStream.Read(1)
    Loop
    msgbox str
    str = ""
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '如果当前的指针不在文本末端,则读取文本内容
    Do While objStream.AtEndOfStream <> true
        str = str + objStream.Read(1)
    Loop
    MsgBox  str
    '关闭TextStream对象
    objStream.Close
End Sub

 

   ColumnLine的使用

示例

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Call TestTextStream("c:\test.txt")
 
Sub TestTextStream(strPath)
    Dim objFso,objTStream,str
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只读的方式打开文件
    Set objTStream = objFso.OpenTextFile(strPath,1)
    '如果当前的指针不在整个文档的末尾,读取文本的所有内容
    Do While objTStream.AtEndOfStream <> true
        objTStream.ReadAll
        str = str + "共有" & objTStream.Line & "行数据,光标最后所在列号为:" &objTStream.Column & vbCrLf
    Loop
    '打印信息
    MsgBox  str
End Sub   

 

   文本读取示例:

  如何读取文本最后一行数据?  

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Fso,MyFile
Dim strLine
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'以只读的方式打开文件
Set MyFile = Fso.OpenTextFile("C:\test.txt",1)
'直到到达文件尾
Do Until MyFile.AtEndOfStream
    '读取当前整行数据
    strLine = MyFile.ReadLine
Loop
MyFile.Close
MsgBox strLine

 

   如何读取文本最后一行数据(文件末尾有空行)?  

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Fso,MyFile
Dim strLine
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'以只读的方式打开文件
Set MyFile = Fso.OpenTextFile("C:\test.txt",1)
Do Until MyFile.AtEndOfStream
    '读取当前整行字符串
    strNextLine = MyFile.ReadLine
    '判断读取的整行字符串是不是空白
    If Len(strNextLine) > 0 Then
        '不是空白,则赋值
        strLine = strNextLine
    End If
Loop
MyFile.Close
MsgBox strLine

 

  读取文本指定行内容 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
MsgBox TestTextStream("c:\test.txt",1)
 
Function TestTextStream(strPath,IntLine)
    Dim Fso,MyFile
    Set Fso = CreateObject("Scripting.FileSystemObject")
    '以只读的方式打开文件
    Set MyFile = Fso.OpenTextFile(strPath,1)
    '如果当前的指针不在整个文档的末尾,读取文本的整行内容
    Do Until MyFile.AtEndOfStream
        TestTextStream = MyFile.ReadLine
        IntLine = IntLine - 1
        '判断光标是否已达到指定行,达到则退出函数
        If IntLine = 0 Then
            Exit Function
        End If
    Loop
End Function

 

 

技术改变世界! --狂诗绝剑

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
Git - 基础篇(九)
Git - 基础篇(九)
27 0
Git - 基础篇(七)
Git - 基础篇(七)
30 0
CSS - 基础篇(下)
CSS - 基础篇(下)
32 0
【重温基础】12.使用对象 下
【重温基础】12.使用对象 下
23 0
#WPF的3D开发技术基础梳理
原文:#WPF的3D开发技术基础梳理 自学WPF已经有半年有余了,一遍用,一边学。但是一直没有去触摸WPF的3D开发相关技术,因为总觉得在内心是一座大山,觉得自己没有能力去逾越。
1061 0
wpf之3d基础
原文:wpf之3d基础     关于3D方面的东西,本人只是浅尝辄止,从未曾在项目中使用过,相信有不少人也是基于一份兴趣去学习。这里将展示几个基本的WPF 3D编程,希望对初学者有一定帮助。     为帮助理解,这里全部使用C#代码构造,而不是写在XAML中,有兴趣的可以在这里下载源代码。
858 0
FFmpeg代码导读——基础篇
从事音视频技术开发对FFmpeg都不会感到陌生,通过它可以完成音视频采集、编解码、转码、后处理以及流媒体服务等诸多的功能,可以说涵盖了音视频开发中绝大多数的领域。
1926 0
+关注
狂师
公众号:【测试开发技术】作者、2020年行业畅销书《自动化测试实战宝典》图书作者。专注于软件测试开发技术、软件工程效能实践传播和分享!
文章
问答
文章排行榜
最热
最新
相关电子书
更多
对象的生命期管理
立即下载
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载