xls超级列表框读取数据乱码

奔放的牛

附源码

超级列表框读取xls乱码.用编码转换也转换不了!





补充内容 (2025-1-22 11:50):
源码已附上,鼠标放在图片能看到下载附件

补充内容 (2025-1-22 12:15):
不好意思,源码已补在3楼

aipca

用模块 把程序集1全删除了 简单一些。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

超级列表框_EXCEL_导入 (超级列表框1, , 取运行目录 () ＋ “\NPC.xls”, )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 超级列表框_EXCEL_导入 (超级列表框1, , 取运行目录 () ＋ “\NPC.xls”, )

aipca

那是你上传的图片下载好不……

奔放的牛

config.zip (331.37 KB, 下载次数: 4)

6 小时前 上传

点击文件名下载附件

奔放的牛

aipca 发表于 2025-1-22 12:10
那是你上传的图片下载好不……

不好意思啊,源码已补

aipca

你用的是XLS文件，导入的是文本 所以格式不对，要把XLS另存为CSV文件 修改一下分隔符即可，如果非要XLS格式，那得上EXCEL控件

奔放的牛

aipca 发表于 2025-1-22 12:42
你用的是XLS文件，导入的是文本 所以格式不对，要把XLS另存为CSV文件 修改一下分隔符即可，如果非要XLS格式 ...

我就是要的xls文件读取..可能是用文本方式打开都问题出现乱码

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14741580

熬夜

超级列表框_EXCEL_导入导出.rar (557.94 KB, 下载次数: 1)

6 小时前 上传

点击文件名下载附件

aipca

换一种 不用模块的方式，需要注意的是XLS第一列ID没有命名，需手动补一下。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
NPC项目数组	文本型	1,13

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
name	文本型
连接文本	文本型
SQL语句	文本型
记录集句柄	整数型
ID	文本型
网格X坐标	文本型
网格Y坐标	文本型
名称	文本型
npc类型	文本型
废话id列表	文本型
皮肤	文本型
方向	文本型
功能id	文本型
地图	文本型
绑定战斗	文本型
npc对话间隔	文本型
npc说话文本	文本型
x	整数型

超级列表框1.插入列 (0, “id”, , , , )
超级列表框1.插入列 (1, “网格X坐标”, 70, , , )
超级列表框1.插入列 (2, “网格Y坐标”, 70, , , )
超级列表框1.插入列 (3, “名称”, 100, , , )
超级列表框1.插入列 (4, “npc类型”, 60, , , )
超级列表框1.插入列 (5, “废话id列表”, 80, , , )
超级列表框1.插入列 (6, “皮肤”, , , , )
超级列表框1.插入列 (7, “方向”, , , , )
超级列表框1.插入列 (8, “功能id”, 100, , , )
超级列表框1.插入列 (9, “地图”, 80, , , )
超级列表框1.插入列 (10, “绑定战斗”, 60, , , )
超级列表框1.插入列 (11, “npc对话间隔”, 80, , , )
超级列表框1.插入列 (12, “npc说话文本”, 80, , , )
name ＝ 取运行目录 () ＋ “\npc.xls”
连接文本 ＝ “ODBC;DBQ=” ＋ name ＋ “;Driver={Microsoft Excel Driver (*.xls)}; ”
如果 (外部数据库1.打开 (连接文本, , ))  ' 通过odbc文本链接xls文件
SQL语句 ＝ “select * from [1npc$]”
记录集句柄 ＝ 外部数据库1.cha询 (SQL语句)
外部数据库1.到首记录 (记录集句柄)
判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)
ID ＝ 到文本 (外部数据库1.读 (记录集句柄, “ID”))
网格X坐标 ＝ 到文本 (外部数据库1.读 (记录集句柄, “网格X坐标”))
网格Y坐标 ＝ 到文本 (外部数据库1.读 (记录集句柄, “网格Y坐标”))
名称 ＝ 到文本 (外部数据库1.读 (记录集句柄, “名称”))
npc类型 ＝ 到文本 (外部数据库1.读 (记录集句柄, “npc类型”))
废话id列表 ＝ 到文本 (外部数据库1.读 (记录集句柄, “废话id列表”))
皮肤 ＝ 到文本 (外部数据库1.读 (记录集句柄, “皮肤”))
方向 ＝ 到文本 (外部数据库1.读 (记录集句柄, “方向”))
功能id ＝ 到文本 (外部数据库1.读 (记录集句柄, “功能id”))
地图 ＝ 到文本 (外部数据库1.读 (记录集句柄, “地图”))
绑定战斗 ＝ 到文本 (外部数据库1.读 (记录集句柄, “绑定战斗”))
npc对话间隔 ＝ 到文本 (外部数据库1.读 (记录集句柄, “npc对话间隔”))
npc说话文本 ＝ 到文本 (外部数据库1.读 (记录集句柄, “npc说话文本”))
x ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (x, 0, ID)
超级列表框1.置标题 (x, 1, 网格X坐标)
超级列表框1.置标题 (x, 2, 网格Y坐标)
超级列表框1.置标题 (x, 3, 名称)
超级列表框1.置标题 (x, 4, npc类型)
超级列表框1.置标题 (x, 5, 废话id列表)
超级列表框1.置标题 (x, 6, 皮肤)
超级列表框1.置标题 (x, 7, 方向)
超级列表框1.置标题 (x, 8, 功能id)
超级列表框1.置标题 (x, 9, 地图)
超级列表框1.置标题 (x, 10, 绑定战斗)
超级列表框1.置标题 (x, 11, npc对话间隔)
超级列表框1.置标题 (x, 12, npc说话文本)
外部数据库1.到后一记录 (记录集句柄)
判断循环尾 ()




外部数据库1.关闭 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 NPC项目数组, 文本型, , "1,13"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 name, 文本型<br /> .局部变量 连接文本, 文本型<br /> .局部变量 SQL语句, 文本型<br /> .局部变量 记录集句柄, 整数型<br /> .局部变量 ID, 文本型<br /> .局部变量 网格X坐标, 文本型<br /> .局部变量 网格Y坐标, 文本型<br /> .局部变量 名称, 文本型<br /> .局部变量 npc类型, 文本型<br /> .局部变量 废话id列表, 文本型<br /> .局部变量 皮肤, 文本型<br /> .局部变量 方向, 文本型<br /> .局部变量 功能id, 文本型<br /> .局部变量 地图, 文本型<br /> .局部变量 绑定战斗, 文本型<br /> .局部变量 npc对话间隔, 文本型<br /> .局部变量 npc说话文本, 文本型<br /> .局部变量 x, 整数型<br /> <br /> 超级列表框1.插入列 (0, “id”, , , , )<br /> 超级列表框1.插入列 (1, “网格X坐标”, 70, , , )<br /> 超级列表框1.插入列 (2, “网格Y坐标”, 70, , , )<br /> 超级列表框1.插入列 (3, “名称”, 100, , , )<br /> 超级列表框1.插入列 (4, “npc类型”, 60, , , )<br /> 超级列表框1.插入列 (5, “废话id列表”, 80, , , )<br /> 超级列表框1.插入列 (6, “皮肤”, , , , )<br /> 超级列表框1.插入列 (7, “方向”, , , , )<br /> 超级列表框1.插入列 (8, “功能id”, 100, , , )<br /> 超级列表框1.插入列 (9, “地图”, 80, , , )<br /> 超级列表框1.插入列 (10, “绑定战斗”, 60, , , )<br /> 超级列表框1.插入列 (11, “npc对话间隔”, 80, , , )<br /> 超级列表框1.插入列 (12, “npc说话文本”, 80, , , )<br /> name ＝ 取运行目录 () ＋ “\npc.xls”<br /> 连接文本 ＝ “ODBC;DBQ=” ＋ name ＋ “;Driver={Microsoft Excel Driver (*.xls)}; ”<br /> .如果 (外部数据库1.打开 (连接文本, , ))  ' 通过odbc文本链接xls文件<br />     SQL语句 ＝ “select * from [1npc$]”<br /> <br />     记录集句柄 ＝ 外部数据库1.cha询 (SQL语句)<br />     外部数据库1.到首记录 (记录集句柄)<br />     .判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假)<br />         ID ＝ 到文本 (外部数据库1.读 (记录集句柄, “ID”))<br />         网格X坐标 ＝ 到文本 (外部数据库1.读 (记录集句柄, “网格X坐标”))<br />         网格Y坐标 ＝ 到文本 (外部数据库1.读 (记录集句柄, “网格Y坐标”))<br />         名称 ＝ 到文本 (外部数据库1.读 (记录集句柄, “名称”))<br />         npc类型 ＝ 到文本 (外部数据库1.读 (记录集句柄, “npc类型”))<br />         废话id列表 ＝ 到文本 (外部数据库1.读 (记录集句柄, “废话id列表”))<br />         皮肤 ＝ 到文本 (外部数据库1.读 (记录集句柄, “皮肤”))<br />         方向 ＝ 到文本 (外部数据库1.读 (记录集句柄, “方向”))<br />         功能id ＝ 到文本 (外部数据库1.读 (记录集句柄, “功能id”))<br />         地图 ＝ 到文本 (外部数据库1.读 (记录集句柄, “地图”))<br />         绑定战斗 ＝ 到文本 (外部数据库1.读 (记录集句柄, “绑定战斗”))<br />         npc对话间隔 ＝ 到文本 (外部数据库1.读 (记录集句柄, “npc对话间隔”))<br />         npc说话文本 ＝ 到文本 (外部数据库1.读 (记录集句柄, “npc说话文本”))<br />         x ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />         超级列表框1.置标题 (x, 0, ID)<br />         超级列表框1.置标题 (x, 1, 网格X坐标)<br />         超级列表框1.置标题 (x, 2, 网格Y坐标)<br />         超级列表框1.置标题 (x, 3, 名称)<br />         超级列表框1.置标题 (x, 4, npc类型)<br />         超级列表框1.置标题 (x, 5, 废话id列表)<br />         超级列表框1.置标题 (x, 6, 皮肤)<br />         超级列表框1.置标题 (x, 7, 方向)<br />         超级列表框1.置标题 (x, 8, 功能id)<br />         超级列表框1.置标题 (x, 9, 地图)<br />         超级列表框1.置标题 (x, 10, 绑定战斗)<br />         超级列表框1.置标题 (x, 11, npc对话间隔)<br />         超级列表框1.置标题 (x, 12, npc说话文本)<br />         外部数据库1.到后一记录 (记录集句柄)<br />     .判断循环尾 ()<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> 外部数据库1.关闭 ()