如何解决VBScript 从文件流中读取浮点数
是否有任何纯 VBS /wsh 方法可以从形成 IEEE 浮点数的字符串中获取 4 个字节并将它们返回到单个类型的变体中? 我已经通过从它的字节构建 IEEE 数字来完成它,但它的速度非常慢......
function bintofloat (str,i) 'string,position
dim n1,n2,exponent,mantissa,sign
'only normalized,does'nt detect infinity or NaN
const m_sign= &h80000000&,m_exp= &h7f80
const d_exp= &h800000&,m_mant=&h7fffff&
n1=asc(mid(str,i+3,1))* 256 + asc(mid(str,i+2,1))
if n1 <0 then sign=-1 else sign=1
n2 = ( asc(mid(str,i+1,1)))* 256 + asc(mid(str,i,1))
exponent = ((n1 and m_exp)/&h80)
mantissa= (n2 and m_mant)
if (exponent or mantissa) =0 then
bintofloat=0
else
bintofloat = sign* (mantissa or d_exp) * 2.^(exponent -150)
end if
end function
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。