Function bytes2BSTR(vIn)
来源:互联网 发布:小熊棋牌源码 编辑:程序博客网 时间:2024/06/05 10:18
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,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
dim strReturn
dim i,ThisCharCode,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
- Function bytes2BSTR(vIn)
- bytes2BSTR
- VIN码
- vin 校验
- dm8168 vin camera port
- Vin验证工具类
- VIN驱动个人总结
- 用vin打造IDE
- 车型vin码判断
- VIN码识别:扫一扫,快速录入VIN码
- vin码详解以及自动扫描vin码识别应用
- VIN码含义及其算法
- 汽车VIN码OCR识别
- 最新VIN(车辆识别码)解析
- 车架号VIN码识别
- Function
- function
- function
- 拥有创新精神的年轻人眼里-----凡墙皆门
- 多线程演示程序(MFC)
- 精彩转贴[组图](C#)安全、简单的Windows Forms多线程编程 (一)
- 为你的j2ee应用增加AOP 特性
- 转贴 [译].NET委托:一个C#睡前故事
- Function bytes2BSTR(vIn)
- js中的小技巧(转帖)
- 嵌入式文件系统小结
- 埃及艳后的鸡蛋美容术 [转]
- Spring 的 BeanPostProcessor
- 一个程序员的奋斗历程
- 全面认识手机扩展卡
- 基于时间戳的缓存构架:最近的数据拥有最佳的性能
- 转贴[译]C#WinForm中实现异形窗体/控件