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

作者佚名来源 ASP编程浏览发布时间 2013-07-09

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

第一种：使用VBS的MultiByte方法

实例：

FunctionSimpleBinaryToString(Binary)
''SimpleBinaryToStringconvertsbinarydata(VT_UI1|VT_ARRAYOrMultiBytestring)
''toastring(BSTR)usingMultiByteVBSfunctions
DimI,S
ForI=1ToLenB(Binary)
S=S&Chr(AscB(MidB(Binary,I,1)))
Next
SimpleBinaryToString=S
EndFunction

这个方法非常简单明了，但是处理大数据流时，比较慢。
建议只用来处理100KB以下的数据。
下面的这个类似的方法，性能稍微好些：
FunctionBinaryToString(Binary)
''AntoninFoller,http://www.pstruh.cz
''OptimizedversionofasimpleBinaryToStringalgorithm.

Dimcl1,cl2,cl3,pl1,pl2,pl3
DimL
cl1=1
cl2=1
cl3=1
L=LenB(Binary)

DoWhilecl1<=L
pl3=pl3&Chr(AscB(MidB(Binary,cl1,1)))
cl1=cl1+1
cl3=cl3+1
Ifcl3>300Then
pl2=pl2&pl3
pl3=""
cl3=1
cl2=cl2+1
Ifcl2>200Then
pl1=pl1&pl2
pl2=""
cl2=1
EndIf
EndIf
Loop
BinaryToString=pl1&pl2&pl3
EndFunction
BinaryToString方法比SimpleBinaryToString方法性能高20倍。建议用来处理2MB以下的数据。
第二种方法：使用ADODB.Recordset
ADODB.Recordset可以让你支持几乎所有VARIANT支持的数据类型，你可以用它在string和
binary之间转换。
FunctionRSBinaryToString(xBinary)
''AntoninFoller,http://www.pstruh.cz
''RSBinaryToStringconvertsbinarydata(VT_UI1|VT_ARRAYOrMultiBytestring)
''toastring(BSTR)usingADOrecordset

DimBinary
''MultiBytedatamustbeconvertedToVT_UI1|VT_ARRAYfirst.
Ifvartype(xBinary)=8ThenBinary=MultiByteToBinary(xBinary)ElseBinary=xBinary

DimRS,LBinary
ConstadLongVarChar=201
SetRS=CreateObject("ADODB.Recordset")
LBinary=LenB(Binary)

IfLBinary>0Then
RS.Fields.Append"mBinary",adLongVarChar,LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunkBinary
RS.Update
RSBinaryToString=RS("mBinary")
Else
RSBinaryToString=""
EndIf
EndFunction
RSBinaryToString没有什么限制--除了物理内存之外。这种处理方式是MultiByte方式的100倍！你可以用它来处理高达100MB的数据！这种转换方式，你也可以用来把MultiBytestrings转换为String。下面这个方法把MultiBytestrings转换为Binary：FunctionMultiByteToBinary(MultiByte)
''©2000AntoninFoller,http://www.pstruh.cz
''MultiByteToBinaryconvertsmultibytestringTorealbinarydata(VT_UI1|VT_ARRAY)
''Usingrecordset
DimRS,LMultiByte,Binary
ConstadLongVarBinary=205
SetRS=CreateObject("ADODB.Recordset")
LMultiByte=LenB(MultiByte)
IfLMultiByte>0Then
RS.Fields.Append"mBinary",adLongVarBinary,LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunkMultiByte&ChrB(0)
RS.Update
Binary=RS("mBinary").GetChunk(LMultiByte)
EndIf
MultiByteToBinary=Binary
EndFunction
第三种：使用ADODB.Stream这种方式是比较常用的：''Stream_BinaryToStringFunction
''2003AntoninFoller,http://www.pstruh.cz
''Binary-VT_UI1|VT_ARRAYdataToconvertToastring
''CharSet-charsetofthesourcebinarydata-defaultis"us-ascii"
FunctionStream_BinaryToString(Binary,CharSet)
ConstadTypeText=2
ConstadTypeBinary=1

''CreateStreamobject
DimBinaryStream''AsNewStream
SetBinaryStream=CreateObject("ADODB.Stream")

''Specifystreamtype-wewantTosavetext/stringdata.
BinaryStream.Type=adTypeBinary

''OpenthestreamAndwritete

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

1 2 下一页

分享到：更多

你可能对下面的文章感兴趣

上一篇: 让批处理被wsh解析的优点下一篇: 修复Windows上面的WScript的脚本(.vbs)不能执行了

关于VBS中转换二进制数据为字符串常用办法的所有评论

随机推荐