当前位置： 移动技术网 > IT编程>脚本编程>VBScript > bytes2BSTR

bytes2BSTR

2017年12月12日  | 移动技术网IT编程  | 我要评论

恶狼殿下独宠我,邯郸人才招聘网有职,存款年利率

复制代码 代码如下:

function bytes2bstr(vin) 
 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  

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网