个人中心
gpt4 book ai didi

VBS基础篇 - vbscript TextStream对象

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 31 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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（可选）和换行符.

示例:

?
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

Read、ReadAll及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

 Skip、SkipLine的使用 。

方法名：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 开始返回文件中当前行的行号” 。

  。

AtEndOfLine及AtEndOfStream的使用 。

两者间的区别是:

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

Column及Line的使用 。

示例:

?
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

这篇文章就结束到这了，需要的朋友可以参考一下.

最后此篇关于VBS基础篇 - vbscript TextStream对象的文章就讲到这里了,如果你想了解更多关于VBS基础篇 - vbscript TextStream对象的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

31 4 0
文章推荐： Yii2下session跨域名共存的解决方案
文章推荐： VBS基础篇 vbscript Sendkeys模拟键盘操作
文章推荐： 浅谈PHP的$_SERVER[SERVER_NAME]
文章推荐： VBS数组函数学习实例分析(二)
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com