/*===================二进制转十进制函数gf_bintodec=====================
函数名:gf_bintodec
参数说明:
string类型 1、s_bin 二进制字符串
注意事项:
功能:将二进制字符串转换为十进制字符串。
返回值:十进制的字符串。非法二进制字符串返回-1;空串返回Null
作者:费贤智
日期:2005/2/4
=======================================================================*/
int li_len,li_loop
string ls_return
if upper(left(s_bin,1))='B' then s_bin=mid(s_bin,2)//去除进制标识
li_len=len(s_bin)
for li_loop=(li_len - 1) to 0 step -1
if long(mid(s_bin,li_len - li_loop,1))>1 then return "-1"//非法二进制字符串
ls_return=string(long(ls_return)+long(mid(s_bin,li_len - li_loop,1))*2^li_loop)
next
return ls_return