'函数：把二进制字符串转换成普通字符串函数
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
汪杰 阅读(1084)
评论(0) 编辑 收藏 引用 所属分类:
asp(javascrpt)