[高难求解]将这段VBS函数翻译成JS

[xiaotian0420]

可以给翻译成的，我要以身相许，给空间你

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

[topmonkey]

翻译不了，偶也不知道JS怎样按字节处理字符串，还是帮你顶一下吧

[xiaotian0420]

大家帮帮我吧

[超级大笨狼]

js不如vbs强大，干这个不行。其他的也多数不如vbs方便。
vbs 短暂的美！

但是我发现一个奇怪的问题，就是vbs的数组，无法得到维数的信息
反而在js里调用vbs数组可以求出维数dimensions 方法
请参阅
dimensions 方法
应用于： VBArray 对象
返回 VBArray 的维数。

[超级大笨狼]

SCRIPT LANGUAGE="VBScript">
<!--
Function CreateVBArray()
Dim i, j, k
Dim a(2, 2)
k = 1
For i = 0 To 2
For j = 0 To 2
a(j, i) = k
k = k + 1
Next
Next
CreateVBArray = a
End Function
-->
</SCRIPT>

<SCRIPT LANGUAGE="JScript">
<!--
function VBArrayTest(vba)
{
var i, s;
var a = new VBArray(vba);
for (i = 1; i <= a.dimensions(); i++)
{
s = "The upper bound of dimension ";
s += i + " is ";
s += a.ubound(i)+ ".<BR>";
}
return(s);
}
-->
</SCRIPT>

[超级大笨狼]

<script language="JavaScript">
<!--
alert("A".charCodeAt())
alert(String.fromCharCode(65))
//-->
</script>