asfman
android developer
posts - 90,  comments - 213,  trackbacks - 0
'函数:把二进制字符串转换成普通字符串函数
Public Function Get_BytesToBstr(FileStr)
DIM BTB_SkipFlag : BTB_SkipFlag = 0 '中文字符Skip标志
DIM BTB_varLen '字符长度
DIM BTB_CLow
DIM BTBi
DIM BTB_Content : BTB_Content = ""

If not IsNull(FileStr) Then
BTB_varLen = LenB(FileStr)
For BTBi=1 To BTB_varLen
If BTB_SkipFlag=0 Then
BTB_CLow = MidB(FileStr,BTBi,1)
'判断是否中文的字符
If AscB(BTB_CLow) > 127 Then
'AscW会把二进制的中文双字节字符高位和低位反转,所以要先把中文的高低位反转
BTB_Content = BTB_Content & Chr(AscW(MidB(FileStr,BTBi+1,1) & BTB_CLow))
BTB_SkipFlag = 1
Else
BTB_Content = BTB_Content & Chr(AscB(BTB_CLow))
End If
Else
BTB_SkipFlag = 0
End If
Next
End If
Get_BytesToBstr = BTB_Content
End Function

posted on 2006-07-18 08:43 汪杰 阅读(957) 评论(0)  编辑 收藏 引用 所属分类: asp(javascrpt)
只有注册用户登录后才能发表评论。

<2019年11月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

常用链接

留言簿(15)

随笔分类(1)

随笔档案(90)

文章分类(727)

文章档案(712)

相册

收藏夹

http://blog.csdn.net/prodigynonsense

友情链接

最新随笔

搜索

  •  

积分与排名

  • 积分 - 384921
  • 排名 - 6

最新随笔

最新评论

阅读排行榜

评论排行榜