[VBS]转换二进制数据为字符串常用办法

[VBS]转换二进制数据为字符串常用办法

至少有三种以上办法，可以把二进制数据（比如您从ASP的Request.BinaryRead方法得到的数据）转换为字符串。

第一种：使用VBS的MultiByte 方法

实例：

 SimpleBinaryToString(Binary)
I, S
I = 1
(Binary)
S = S & (((Binary, I, 1)))
SimpleBinaryToString = S

这个方法非常简单明了，但是处理大数据流时，比较慢。

建议只用来处理100KB以下的数据。

下面的这个类似的方法，性能稍微好些：

 BinaryToString(Binary)
cl1, cl2, cl3, pl1, pl2, pl3
L
cl1 = 1
cl2 = 1
cl3 = 1
L = (Binary)
cl1<=L
pl3 = pl3 & (((Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
cl3>300
pl2 = pl2 & pl3
pl3 =
cl3 = 1
cl2 = cl2 + 1
cl2>200
pl1 = pl1 & pl2
pl2 =
cl2 = 1
BinaryToString = pl1 & pl2 & pl3

BinaryToString方法比SimpleBinaryToString方法性能高20倍。

建议用来处理2MB以下的数据。

第二种方法：使用ADODB.Recordset

ADODB.Recordset 可以让你支持几乎所有VARIANT支持的数据类型，你可以用它在string和

binary之间转换。

 RSBinaryToString(xBinary)
Binary
vartype(xBinary)=8
Binary = MultiByteToBinary(xBinary)
Binary = xBinary
RS, LBinary
adLongVarChar = 201
RS = ()
LBinary = (Binary)
LBinary>0
RS.Fields.Append , adLongVarChar, LBinary
RS.Open
RS.AddNew
RS().AppendChunk Binary
RS.Update
RSBinaryToString = RS()
RSBinaryToString =
RSBinaryToString 没有什么限制--除了物理内存之外。

这种处理方式是MultiByte方式的100倍！

你可以用它来处理高达100MB的数据！

这种转换方式，你也可以用来把MultiByte strings转换为String。下面这个

方法把MultiByte strings转换为Binary：

 MultiByteToBinary(MultiByte)
RS, LMultiByte, Binary
adLongVarBinary = 205
RS = ()
LMultiByte = (MultiByte)
LMultiByte>0
RS.Fields.Append , adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS().AppendChunk MultiByte & (0)
RS.Update
Binary = RS().GetChunk(LMultiByte)
MultiByteToBinary = Binary

第三种：使用ADODB.Stream

这种方式是比较常用的：

Function Stream_BinaryToString(Binary, CharSet)
adTypeText = 2
adTypeBinary = 1
BinaryStream
BinaryStream = ()
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.Write Binary
BinaryStream.Position = 0
BinaryStream.Type = adTypeText
(CharSet) > 0
BinaryStream.CharSet = CharSet
BinaryStream.CharSet =
Stream_BinaryToString = BinaryStream.ReadText

要存储、获取二进制数据，从一个本地文件、上传的二进制数据文件或者ASP中，可以参考：

Pure and Huge ASP file upload with progress.。

Tip keywords: Binary, Byte, Array, VT_UI1, VT_ARRAY, BinaryWrite, BinaryRead, ChrB, InstrB, LeftB, MidB, RightB, ASP, VBS

COPYRIGHT AND PERMITTED USE
OF http://www.pstruh.cz/tips WEBSITE.

      The entire contents of PSTRUH Software website consist of copyright material owned by Antonin Foller, PSTRUH Software.

郑昀兼做翻译。转贴请注明出处。
http://blog.csdn.net/zhengyun_ustc/archive/2004/04/29/12758.aspx