VBScript中如何把byte数组转化为字符串？

f2k 2003-05-19 10:01:08

VBScript中如何把byte数组转化为字符串？
在线等待中......

...全文

108 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

心云意水 2003-05-19

打赏
举报

回复

<script language="vbscript">
function bytes2BSTR(vIn)
dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn=""
for i=1 to LenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
if ThisCharCode<&H80 Then
strReturn=strReturn & Chr(ThisCharCode)
else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
end if
next
bytes2BSTR=strReturn
end function
</script>

f2k 2003-05-19

打赏
举报

回复

奇怪，我在javascript中同样没有找到bytes2BSTR函数,大家指教？

f2k 2003-05-19

打赏
举报

回复

在客户端，就象javascript的bytes2BSTR的那种

'/**将bytes数组转换为字符串 ' * @param vin 要转换的bytes数组 ' * @param charset 编码方式 utf-8或者gb2312 ' */ function bytes2str(vin,charset) dim bytesstream,stringreturn set bytesstream = server....

如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。 delimiter：可选。用于标识子字符串界限的字符。如果省略，使用空格 (" ") 作为分隔符。如果 delimiter 为零长度字符串，则...

VBScript字符串函数VBScript 教程... Split(expression, delimiter, count, compare)返回基于 0 的一维数组，其中包含指定数目的子字符串。expression：必选。字符串表达式，包含子字符串

1. Split(expression, delimiter, count, compare) ...如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。 delimiter：可选。用于标识子字符串界限的字符。如果省略，使用空格 ("

CBool函数描述返回表达式，此表达式已转换为 Boolean（布尔类型／是否类型）子类型的 Variant（变量）。语法 CBool(expression) expression 是任意有效的表达式。... 下面的示例利用 CBool 函数把 e

87,907

社区成员

224,614

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章