4,007
社区成员
发帖
与我相关
我的任务
分享帮个忙，能不能把这段VBS改成JS
<script language=vbscript>
Function bytes2BSTR(vIn)
dim i
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>
Function bytes2BSTR(vIn)
dim i
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>
...全文
请发表友善的回复…
发表回复
afei0220 2006-01-25
- 打赏
- 举报
郁闷，又没解决，接分酸了
是是非非 2006-01-18
- 打赏
- 举报
JavaScript实现难度比较高～
rollenc 2006-01-18
- 打赏
- 举报
帮忙啊！
celevantis 2006-01-18
- 打赏
- 举报
不会JS，向来只用VBS
rollenc 2006-01-18
- 打赏
- 举报
什么意思？
