VBS之adodb.stream对象的方法/属性

最新推荐文章于 2024-05-03 16:54:12 发布
最新推荐文章于 2024-05-03 16:54:12 发布
阅读量2.3w 收藏 16
点赞数 4
分类专栏： VBS知识 文章标签： vbs
adodb.stream对象的方法/属性

Cancel 方法
使用方法如下
Object.Cancel
说明：取消执行挂起的异步 Execute 或 Open 方法的调用。
Close 方法
使用方法如下
Object.Close
：关闭对像
CopyTo 方法
使用方法如下
Object.CopyTo(destStream,[CharNumber])
说明：将对像的数据复制，destStream指向要复制的对像，CharNumber为可选参数，指要复制的字节数，不选为全部复制。
Flush 方法
使用方法如下
Object.Flush
说明：
LoadFromFile 方法
使用方法如下
Object.LoadFromFile(FileName)
说明:将FileName指定的文件装入对像中,参数FileName为指定的用户名。
Open 方法
使用方法如下
Object.Open(Source,[Mode],[Options],[UserName],[Password])
说明：打开对像，
参数说明：Sourece 对像源，可不指定
Mode 指定打开模式，可不指定，可选参数如下：
adModeRead =1
adModeReadWrite =3
adModeRecursive =4194304
adModeShareDenyNone =16
adModeShareDenyRead =4
adModeShareDenyWrite =8
adModeShareExclusive =12
adModeUnknown =0
adModeWrite =2
Options 指定打开的选项，可不指定，可选参数如下：
adOpenStreamAsync =1
adOpenStreamFromRecord =4
adOpenStreamUnspecified=-1
UserName 指定用户名，可不指定。
Password 指定用户名的密码
Read 方法
使用方法如下：
Object.Read(Numbytes)
说明：读取指定长度的二进制内容。
参数说明：Numbytes指定的要读取的找度，不指定则读取全部。

ReadText 方法
使用方法如下：
Object.ReadText(NumChars)
说明：读取指定长度的文本
参数说明：NumChars指定的要读取的找度，不指定则读取全部。

SaveToFile 方法
使用方法如下：
Object.SaveToFile(FileName,[Options])
说明：将对像的内容写到FileName指定的文件中
参数说明：FileName指定的文件
Options 存取的选项，可不指定，可选参数如下：
adSaveCreateNotExist =1
adSaveCreateOverWrite =2

SetEOS 方法
使用方法如下：
Object.setEOS()
说明：
SkipLine 方法
使用方法如下：
Object.SkipLine()
说明：
Write 方法
使用方法如下：
Object.Write(Buffer)
说明：将指定的数据装入对像中。
参数说明：Buffer 为指定的要写入的内容。
WriteText 方法
使用方法如下：
Object.Write(Data,[Options])
说明：将指定的文本数据装入对像中。
参数说明：Data 为指定的要写入的内容。
Options 写入的选项，可不指定，可选参数如下：
adWriteChar =0
adWriteLine =1




有下列属性：
Charset
EOS 返回对像内数据是否为空。

LineSeparator 指定换行格式，可选参数有
adCR =13
adCRLF =-1
adLF =10

Mode 指定或返加模式。

Position 指定或返加对像内数据的当前指针。

Size 返回对像内数据的大小。

State 返加对像状态是否打开。

Type 指定或返回的数据类型，可选参数为：
adTypeBinary =1

adTypeText =2  


-----------------------------------------------------------------------------------------------------------------------------------



Adodb.Stream 对象用于二进制数据流或文本流的读写和管理


带 ?? 是未理解的参数，可能是在网页代码中使用的


属性
Charset                 字符集。默认为 Unicode 。全部字符集见附录
EOS                     对象数据是否为空，返回值True|False
LineSeparator           分行符。默认值为-1，回车换行符
Mode                    读写权限。初始值为 0
Position                光标位置。初始值为 0
Size                    对象的大小
State                   对象的状态
Type                    数据类型。默认值为2，文本型




方法
Cancel                  取消执行挂起的异步 Execute 或 Open 方法的调用 ??
Close                   关闭对象
CopyTo                  从源对象光标位置，复制数据到目标对象
Flush                   把缓冲区中的内容发送到相关联的下层对象 ??
LoadFromFile            载入文件。需先打开对象
Open                    打开对象
Read                    读取二进制数据，并相应移动光标位置
ReadText                读取文本数据，并相应移动光标位置
SaveToFile              把对象的数据保存为文件
SetEOS                  设置当前光标位置为数据的结尾
SkipLine                在读取一个文本流时跳过一行，并相应移动光标位置
Write                   写入二进制数据，并相应移动光标位置
WriteText               写入文本数据，并相应移动光标位置


Adodb.Stream 对象在 vbs 里一般用于和 Msxml2.Xmlhttp 对象一起下载文件

也可用于处理文本

-----------------------------------------实例-----------------------------------------------------

Dim objAdodbStream, objAdodbStream2, strRead, binRead, intNumber
Set objAdodbStream = CreateObject("Adodb.Stream")


intNumber = objAdodbStream.State              '返回对象的状态
  Const adStateClosed     = 0                 '对象已关闭
  Const adStateOpen       = 1                 '对象已打开
  Const adStateConnecting = 2                 '对象正在连接      ??
  Const adStateExecuting  = 4                 '对象正在执行命令  ??
  Const adStateFetching   = 8                 '正在检索对象的行  ??


strRead = objAdodbStream.Charset              '返回当前字符集
objAdodbStream.Charset = "CN-GB"              '设置字符集为CN-GB，也就是简体中文


intNumber = objAdodbStream.LineSeparator      '返回当前分行符。默认值为 -1
objAdodbStream.LineSeparator = 13|-1|10       '设置分行符
  Const adCR   = 13                           '回车
  Const adCRLF = -1                           '回车换行
  Const adLF   = 10                           '换行


intNumber = objAdodbStream.Type               '返回当前数据类型。默认为 2
objAdodbStream.Type = 1|2                     '设置数据类型
  Const adTypeBinary = 1                      '二进制
  Const adTypeText   = 2                      '文本


intNumber = objAdodbStream.Mode               '返回当前读写权限。初始值为 0
objAdodbStream.Mode = 1|2|3                   '设置读写权限
  Const adModeUnknown        = 0              '当前的权限未设置
  Const adModeRead           = 1              '只读
  Const adModeWrite          = 2              '只写
  Const adModeReadWrite      = 3              '读写
  Const adModeShareDenyRead  = 4              '阻止其他用户使用读权限打开  ??
  Const adModeShareDenyWrite = 8              '阻止其他用户使用写权限打开  ??
  Const adModeShareExclusive = 12             '阻止其他用户打开            ??
  Const adModeShareDenyNone  = 16             '允许其他用户使用任何权限打开??
  Const adModeRecursive      = 4194304        '用4|8|16权限设置子记录的权限??


objAdodbStream.Open Source,[Mode],[Options],[UserName],[Password]  '打开对象
'Open 方法的参数用法未知
'Sourece 对象源，可不指定                         ??
'Options 指定打开的选项，可不指定，可选参数如下： ??
  Const adOpenStreamAsync       = 1
  Const adOpenStreamFromRecord  = 4
  Const adOpenStreamUnspecified = -1
'UserName 指定用户名，可不指定                    ??
'Password 指定用户名的密码                        ??


intNumber = objAdodbStream.Size               '返回对象的大小


objAdodbStream.LoadFromFile "D:\test.txt"     '载入文件


intNumber = objAdodbStream.Position           '返回当前光标位置，初始值为 0
objAdodbStream.Position = 2                   '设置光标位置
'设置光标位置。必须以读写权限打开文件 .Mode = 3


objAdodbStream.SkipLine                       '在读取一个文本流时跳过一行


strRead = objAdodbStream.ReadText(3)          '读取文本数据
'从当前光标位置处，读取3个字节的文本数据。不指定字节数则读取全部


objAdodbStream.WriteText "abc", 0|1           '写入文本数据
'从当前光标位置处，覆盖写入(注意不是插入)文本数据。回车换行算2个字符
  Const adWriteChar = 0                       '仅插入指定的数据。缺省值
  Const adWriteLine = 1                       '插入数据后，回车换行


binRead = objAdodbStream.Read(3)              '读取二进制数据
'从当前光标位置处，读取3个字节的二进制数据。不指定字节数则读取全部


objAdodbStream.Write binRead                  '写入二进制数据
'从当前光标位置处，覆盖写入(注意不是插入)二进制数据。回车换行算2个字符


objAdodbStream.SetEOS                         '设置当前光标位置为数据的结尾


objAdodbStream.SaveToFile "D:\test1.txt", 1|2 '把对象的数据保存为文件
  Const adSaveCreateNotExist  = 1             '不覆盖已有文件。缺省值
  Const adSaveCreateOverWrite = 2             '覆盖已有文件


blnYN = objAdodbStream.EOS                    '对象数据是否为空
'对象数据是否为空，返回True|False。需打开对象
'Open 后为 True
'Write 后还是为 True，即使这时 Size > 0
'SaveToFile 后才为 False


Set objAdodbStream2 = CreateObject("Adodb.Stream")
With objAdodbStream2
  .Charset = "CN-GB"
  .type = 2
  .mode = 3
  .open
  objAdodbStream.CopyTo objAdodbStream2, 3
  '从objAdodbStream光标位置复制3个字节的数据到objAdodbStream2。不指定则全部复制
  .SaveToFile "D:\test2.txt", 2
End With


objAdodbStream.Close                          '关闭对象


-------------------一个实例，和 Msxml2.Xmlhttp 对象一起下载文件-------------------------

Dim objMsxml2Xmlhttp, objAdodbStream, strUrl, BinTemp


Set objMsxml2Xmlhttp = CreateObject("Msxml2.Xmlhttp")
Set objAdodbStream   = CreateObject("Adodb.Stream")


strUrl = "http://www.baidu.com/img/baidu_sylogo1.gif"


With objMsxml2Xmlhttp    '下载数据
  .Open "get", strUrl, False
  .Send
  BinTemp = .ResponseBody
End With


With objAdodbStream      '保存为文件
  .Type = 1
  .Mode = 3
  .Open
  .Write BinTemp
  .SaveToFile "D:\baidu_sylogo1.gif"
  .Close
End With


迎风悟极道
关注
  • 4
    点赞
  • 踩
  • 16
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用vbs读写文件（Adodb.Stream）方式
05-27
使用vbs读写文件（Adodb.Stream）方式，防止乱码
ADODB.Stream组件Charset属性值集合
10-30
ADODB.Stream组件Charset属性值集合
VBS处理UTF-8文本之ADODB.stream
12-15 6181
文章目录1、ADODB.stream对象2、ADODB.stream对象的方法2.1、open2.2、close2.3、Write 方法2.4、WriteText 方法2.5、Read 方法2.6、ReadText 方法2.7、Flush 方法2.8、CopyTo 方法2.9、SkipLine 方法2.10、LineSeparator 属性2.11、EOS 属性2.12、SetEOS 方法2.13...
VBA 读取sheet页中的指定区域数据，生成CSV文件
最新发布
菜鸟记录
05-03 353
⏹VBA 读取sheet页中的指定区域数据，生成CSV文件
VBS创建二进制文件的两种方法
yuman198629的专栏
02-20 2564
搞了一天，在网上看了很多，发现这种比较少有，高手都不屑来写，所以记录一下，给自己那些有需要的人。 主要是受到文章点击打开链接的启发，基本属于实践和翻译。 不多说，方法一，借用ADODB.Stream，具体实现如下： '首先定义一些文件打开和写入方式 Const adTypeBinary = 1 '二进制 Const adTypeText = 2 '文本方式 Const adSaveCre
adodb.stream
明枫驿站
07-02 628
set stream = Server.CreateObject("ADODB.Stream") stream.mode = 3      '1－读，2－写，3－读写 stream.type = 1         '1－二进制，2－文本 stream.Open dataStream.position = index dataStream.CopyTo stream, count  
VB、VBS 、ASP、VBA 利用ADODB.Stream实现GB2312和UTF8编码转换
编程路
05-25 3605
先前说到，想用ADODB.Stream 实现GB2312和UTF8编码转换 未果，找了下，找到个文章：《利用ADO STREAM实现GB2312和UTF8编码转换》，试了下，在VB和VBA都没问题，但是在 ASP 和 VBS 下面就不成了，原因就是我一直纠结的，adoStream.Write bytes 失败！ 于是又专门找了一下 VBS 下 Byte 数组的定义方法（https://www.jb51.net/article/33247.htm），将上面的《利用ADO STREAM实现G...
Adodb.Stream 组件的使用说明
Crossroads(十字街頭)
12-20 1155
Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作.有下列方法：Cancel 方法     使用方法如下     Object.Cancel     说明：取消执行挂起的异步 Execute 或 Open 方法的调用。Close  方法     使用方法如下     Object.Close     ：关闭对像CopyTo 方法   
vb adodb.stream 详解
01-27
vb adodb stream aeecss adodb resouse recordset
JScript中使用ADODB.Stream判断文件编码的代码
12-10
一开始使用ASCII编码来读取文本数据，模拟读取二进制数据，但是发现如果字符编码大于127时，只会得到小于128的值，相当于和128取余了，因此ASCII编码是不行的。... 其实说来也简单，就是把编码换一下，使用437，这个是...
adodb.stream文件操作类详解
weixin_34006965的博客
11-01 512
<% ''/*******************************二进制文件操作类************************************ ''/*作者：死在水中的鱼（死鱼） ''/*日期：2004年9月7日 ''/*BLOG: http://blog.csdn.net/bpfish ''/* ''/*用法： ''/*Dim obj,sData,iPos...
ADO对象总结
丁佳瑞廊坊师范学院信息技术提高班十六期
08-15 1215
ADO的对象总结 ADO（ActiveX Data Object），是一种基于OLEDB之上的数据库访问技术，OLEDB是一种底层的编程接口，它支持关系或非关系型数据源，比如各种类型的数据库，电子表格，电子邮件和文本文件等。 ADO中主要包括七个对象，分为三个独立对象（主要对象）和四个依赖独立对象（辅助对象） ...
ADODB.Stream
明枫驿站
05-17 1093
示例: set stream = Server.CreateObject("ADODB.Stream") stream.mode = 3      '1－读，2－写，3－读写 stream.type = 1         '1－二进制，2－文本 stream.Open dataStream.position = index dataStream.CopyTo stream,
VB使用ADODB操作数据库的常用方法
wmdk007的博客
10-10 6363
准备工作 Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合
157.'VB/VBA中实现数据库中的文件存取
huang714的专栏
03-22 336
'VB/VBA中实现数据库中的文件存取 '示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串 ' '************************************************************************* '** '** 使用 ADODB.Stream 保存/读取文件到数据库 '** 引用 Microsoft ActiveX Dat...
Stream 对象表示二进制数据或文本的流。
06-29 3215
在诸如文件系统或电子邮件系统这样的树状分级结构中，Record 可能有一个与之相关联的位的默认二进制流，其中包含文件或电子邮件的内容。Stream 对象可用于对包含这些数据流的字段或记录进行操作。可以通过下列方式获取 Stream 对象：   　　通过指向包含二进制或文本数据的对象（通常是文件）的 URL。此对象可以是简单的文档、表示结构化文档的 Record 对象或文件夹。   　　通过
VBS访问SQL数据库
s13596191285的博客
12-10 1583
'####################################################################################### '功能：VBS访问SQL数据库 dim conn set conn=WScript.CreateObject("ADODB.Connection") conn.Open "Driver={SQL server};server=192.168.1.1;database=mydb;uid=myuser;pwd=mypwd;"
vb6ADODB.Stream保存文件到数据库怎么实现
06-21
在VB6中使用ADODB.Stream对象将文件保存到数据库中可以分为以下步骤： 1. 声明ADODB.Stream对象 ``` Dim objStream As New ADODB.Stream ``` 2. 打开ADODB.Stream对象 ``` objStream.Type = adTypeBinary objStream.Open ``` 3. 读取文件内容并写入ADODB.Stream对象 ``` Dim strFilePath As String strFilePath = "C:\example\file.txt" objStream.LoadFromFile strFilePath ``` 4. 将ADODB.Stream对象中的内容保存到数据库中 ``` Dim objConn As New ADODB.Connection Dim strSql As String objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\example\db.mdb" strSql = "INSERT INTO [Table] ([FileName], [FileData]) VALUES ('file.txt', ?)" Dim objCmd As New ADODB.Command With objCmd .ActiveConnection = objConn .CommandText = strSql .Parameters.Append .CreateParameter("FileData", adLongVarBinary, adParamInput, , objStream.Read) .Execute End With ``` 5. 关闭ADODB.Stream对象和数据库连接 ``` objStream.Close objConn.Close ``` 以上代码片段是将文件保存到Access数据库中的示例，如果你使用的是其他类型的数据库，需要修改连接字符串以及SQL语句。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值