求解决“外部超级列表框_保存数据”不能正常读取问题。

xcsyj

读取导入后的数据都是乱码，没法用啊。32位和64位系统上都测试过了，希望哪个大大能帮忙解决一下？

supeng4676

萧阳天 发表于 2016-11-23 23:22
win7 64位上测试，可以读取

乱码乱码乱码乱码乱码乱码乱码乱码

88884217

不会 同学，，，，等等

88884217

好复杂哦懒

萧阳天

win7 64位上测试，可以读取

1. .版本 2
   
2. 
   
3. .子程序 外部超级列表框_保存数据, 逻辑型, 公开, 如果要读入的话,直接 超级列表框.表项=读入文件(C:\001.ebb) 即可
   
4. .参数 超级列表框句柄, 整数型, , 超级列表框句柄
   
5. .参数 要保存的位置, 文本型, , 如: C:\001.ebb 即可
   
6. .参数 列表类型, 整数型, 可空, 默认为"报表列表框"  0=报表列表框 1=大图标列表框
   
7. .参数 不保存指定列的索引, 整数型, 可空, 输入不保存指定列的索引,如:我不保存第1列,直接输入0,因为索引是多0开始的
   
8. .局部变量 局_列数, 整数型
   
9. .局部变量 局_字节集, 字节集, , , 超级列表框列数
   
10. .局部变量 局_表项计次, 整数型
    
11. .局部变量 局_列计次, 整数型
    
12. .局部变量 局_文件号, 整数型
    
13. .局部变量 外部超级列表框, 外部超级列表框
    
14. .局部变量 局_文本, 文本型
    
15. 
    
16. 外部超级列表框.初始化 (超级列表框句柄)
    
17. 局_文件号 ＝ 打开内存文件 ()
    
18. .判断开始 (列表类型 ＝ 0)
    
19.     局_列数 ＝ 外部超级列表框.取列数 () － 1
    
20.     .计次循环首 (外部超级列表框.取表项数 (), 局_表项计次)
    
21.         局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 0)
    
22.         插入字节集 (局_文件号, { 0 } ＋ 到字节集 (外部超级列表框.取图片 (局_表项计次 － 1, 0)) ＋ { 255, 255, 255, 255, 0, 0, 0, 0 } ＋ 到字节集 (外部超级列表框.取表项数值 (局_表项计次 － 1)) ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
23.         .如果 (是否为空 (不保存指定列的索引))
    
24.             .计次循环首 (局_列数, 局_列计次)
    
25.                 局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 局_列计次)
    
26.                 插入字节集 (局_文件号, { 1 } ＋ 到字节集 (外部超级列表框.取图片 (局_表项计次 － 1, 局_列计次)) ＋ { 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
27.             .计次循环尾 ()
    
28.         .否则
    
29.             .计次循环首 (局_列数, 局_列计次)
    
30.                 .如果 (不保存指定列的索引 ＝ 局_列计次)
    
31.                     局_文本 ＝ “”
    
32.                 .否则
    
33.                     局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 局_列计次)
    
34.                 .如果结束
    
35.                 插入字节集 (局_文件号, { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
36.             .计次循环尾 ()
    
37.         .如果结束
    
38. 
    
39.     .计次循环尾 ()
    
40. .判断 (列表类型 ＝ 1)
    
41.     .计次循环首 (外部超级列表框.取表项数 (), 局_表项计次)
    
42.         局_文本 ＝ 外部超级列表框.取标题 (局_表项计次 － 1, 0)
    
43.         插入字节集 (局_文件号, { 0 } ＋ 到字节集 (外部超级列表框.取图片 (局_表项计次 － 1, 0)) ＋ { 255, 255, 255, 255, 0, 0, 0, 0 } ＋ 到字节集 (外部超级列表框.取表项数值 (局_表项计次 － 1)) ＋ 到字节集 (局_文本) ＋ { 0, 0 })
    
44.     .计次循环尾 ()
    
45. .默认
    
46. 
    
47. .判断结束
    
48. 移动读写位置 (局_文件号, #文件首, 0)
    
49. 局_字节集 ＝ 读入字节集 (局_文件号, 取文件长度 (局_文件号))
    
50. .如果 (写到文件 (要保存的位置, 局_字节集))
    
51.     关闭文件 (局_文件号)
    
52.     返回 (真)
    
53. .否则
    
54.     关闭文件 (局_文件号)
    
55. .如果结束
    
56. 返回 (假)
    
57. 
    

复制代码

xcsyj

可以正常保存，但是用 超级列表框.表项=读入文件（“c:\1.ebb”）命令读入的数据都是乱码。

冰点

保存的数据  用    超级列表框1.表项=读入文件（“保存的数据的文件路径”） 这个方式读取的。。。