模块子程序：LibXLW_Format 有个小BUG，现在贴上修复后的源码：

  

子程序名	返回值类型	公开	备 注
LibXLW_Format	字节集		将LibXL_W取到的字节集格式化为可读 Unicode
参数名	类 型	参考	可空	数组	备 注
待处理的数据	字节集

变量名	类 型	静态	数组	备 注
len	整数型
返回数据	字节集
i	整数型
pbu	字节集

len ＝ 到整数 (取字节集长度 (待处理的数据) ÷ 2)
如果真 (len ＜ 2)
返回 (待处理的数据)

计次循环首 (len, i)
pbu ＝ 取字节集中间 (待处理的数据, i × 2 － 1, 2)
如果真 (pbu ＝ { 0, 0 })
返回数据 ＝ 取字节集左边 (待处理的数据, i × 2)
跳出循环 ()  ' 增加了这一句，取出来的更准确

计次循环尾 ()
如果真 (返回数据 ＝ {  })
返回数据 ＝ 待处理的数据
返回 (返回数据)

.版本 2<br /> <br /> .子程序 LibXLW_Format, 字节集, 公开, 将LibXL_W取到的字节集格式化为可读 Unicode<br /> .参数 待处理的数据, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 返回数据, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 pbu, 字节集<br /> <br /> len ＝ 到整数 (取字节集长度 (待处理的数据) ÷ 2)<br /> .如果真 (len ＜ 2)<br />     返回 (待处理的数据)<br /> .如果真结束<br /> <br /> .计次循环首 (len, i)<br />     pbu ＝ 取字节集中间 (待处理的数据, i × 2 － 1, 2)<br />     .如果真 (pbu ＝ { 0, 0 })<br />         返回数据 ＝ 取字节集左边 (待处理的数据, i × 2)<br />         跳出循环 ()  '增加了这一句，取出来的更准确<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (返回数据 ＝ {  })<br />     返回数据 ＝ 待处理的数据<br /> .如果真结束<br /> 返回 (返回数据)

感谢分享..............

谢谢分享

感谢分享！！！！

谢谢分享这个好

大家注意了 在读单元格内容的时候 有些会导致一个bug 崩溃  原因是  len ＝ 指针到整数 (p － 4)  len读取不到的时候

害 读取单元格文本某些文本直接崩溃啊太难了

下载学习学习

感谢分享

谢谢分享