string ls_b="1101010010101010000"//二进制串
string ls_h=""//二六进制值
string ls_s="0123456789ABCDEF"
int i,j,k
ls_b="000"+ls_b
i=int(len(ls_b)/4)*4
ls_b=right(ls_b,i)//ls_b的长度已为4的倍数
for i=1 to len(ls_b) step 4
j=ingeter(mid(ls_b,i,1))*2^3+ingeter(mid(ls_b,i+1,1))*2^2+ingeter(mid(ls_b,i+2,1))*2+ingeter(mid(ls_b,i+3,1))
ls_h=ls_h+mid(ls_s,j+1,1)
next