unicode内容如何保存/cha询数据库问题

lty368

请问各位大佬，易语言保存数据到sqlite，如何解决因unicode不支持而导致无法完整添加的问题。

JSON数据：[{"issue":{"answer":"B","issuse":"与苯二氮䓬类相比，非苯二氮䓬类在抗惊厥、抗焦虑及肌肉松弛效应更弱，在改善睡眠持续时间和睡眠质量的同时，还缩短了睡眠潜伏期和减少了觉醒次数，属于该类的镇静催眠药是","textAnalysis":"本题考查镇静与催眠药的分类与代表药品。用于治疗失眠的非苯二氮䓬类药物包括扎来普隆、唑吡坦、佐匹克隆。故本题的正确答案为B。地西泮属于苯二氮䓬类。水合氯醛属于醛类。雷美替胺属于褪黑素受体激动剂。苯巴比妥属于巴比妥类。","option":[{"name":"A","value":"地西泮"},{"name":"B","value":"唑吡坦"},{"name":"C","value":"水合氯醛"}]},"correctCount":17472,"issuesType":"单项选择题"},{"issue":{"answer":"E","issuse":"关于苯二氮䓬类镇静催眠药的说法，不正确的是","textAnalysis":"原发性失眠首选非苯二氮䓬类药物，为改善起始睡眠（难以入睡）和维持睡眠质量（夜间觉醒或早间觉醒过早），可选唑吡坦、佐匹克隆。故本题的正确答案为E。对焦虑型、夜间醒来次数较多或早醒者可选用氟西泮。","option":[{"name":"A","value":"老年患者对苯二氮䓬类药物较敏感，易产生“宿醉”现象"},{"name":"B","value":"地西泮和夸西泮属于长效苯二氮䓬类药物"},{"name":"C","value":"可促进中枢神经递质γ-氨基丁酸（GABA）的释放或突触的传递"}]},"correctCount":16649,"issuesType":"单项选择题"}]

我现在是这样处理的：
将返回的JSON数据，到文本，JOSN解析，取值，保存到数据库。但会出现unicode格式文本：䓬等文字，会变成?


之前我发求助帖，大佬们说，可以将返回数据直接base64编码成文本直接存入数据库，然后前端js解析出来。确实，可以解决保存问题。
但是sqlite数据库里面的数据，没有可读性了。json数据全量base64保存而不是取指定值保存，一些无用数据也会保存。

我现在的需求是：
1.如何将接口返回的json数据，只将unicode格式文本进行编码保存，其他汉字正常保存，保留数据库的可读性。
如果想要彻底解决unicode导致的数据丢失问题，是否



补充内容 (2025-5-2 16:02):
有更合理的方案，请大佬们指点。

永痕

zysqlite.zip (578.02 KB, 下载次数: 2)

2025-5-3 14:01 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
json	zyJsonDocument
sqlite	zySqlite数据库类

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
uText	字节集

' jsonData ＝ 读入文件 (“dataU8.json”)
' tW ()
' 测试json解析 ()
' 创建数据库 ()
' uText ＝ 测试json解析 ()
db_打开 ()
db_创建数据库 ()
' db_插入数据 ()
db_cha询数据 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
db_打开

变量名	类 型	静态	数组	备 注
打开选项	整数型

打开选项 ＝ 位或 ( #SQLITE_打开_读写, #SQLITE_打开_创建 )
如果真 (sqlite.打开 (“test.db”, 打开选项, ) ＝ 假)
输出调试文本 (“打开数据库失败！”)

子程序名	返回值类型	公开	备 注
db_创建数据库

变量名	类 型	静态	数组	备 注
fields	S3字段信息		2

如果真 (sqlite.表是否存在 (“issue”))
返回 ()

fields [1].名称 ＝ “id”
fields [1].类型 ＝ #整数型
fields [1].属性 ＝ 位或 ( #S3字段属性_主键, #S3字段属性_自动递增 )
fields [2].名称 ＝ “json”
fields [2].类型 ＝ #文本型
如果真 (sqlite.创建表 (“issue”, fields) ＝ 假)
输出调试文本 (“创建表失败！” ＋ sqlite.取错误文本 ())
返回 ()
输出调试文本 (“创建表成功！”)

子程序名	返回值类型	公开	备 注
db_cha询数据

变量名	类 型	静态	数组	备 注
sqlText	文本型
stmt	zySqlite记录集类
result	逻辑型
u8textBin	字节集
id	整数型
uText	字节集
idUtext	字节集

sqlText ＝ “select * from issue”
stmt ＝ sqlite.取记录集 (sqlText)
如果真 (stmt.取句柄 () ＝ 0)
输出调试文本 (sqlite.取错误文本 ())
返回 ()

判断循环首 (stmt.到下一行 ())
id ＝ stmt.读字段整数值 (0)
u8textBin ＝ stmt.读字段字节集值 (1)
' 调试输出 (id, )
uText ＝ zyA2W (到文本 (u8textBin), 65001)  ' UTF-8  > UTF-16
idUtext ＝ zyA2W (到文本 (id))
MessageBoxW (0, uText, idUtext, 0)
判断循环尾 ()
stmt.关闭 ()

子程序名	返回值类型	公开	备 注
db_插入数据

变量名	类 型	静态	数组	备 注
sqlText	文本型
stmt	zySqlite记录集类
result	逻辑型
bool	逻辑型
uText	字节集
ret

. ' 如果真 (sqlite.开始事务 (, ) ≠ #SQLITE_成功)
' 输出调试文本 (“开始事务失败！”)
' 返回 ()

sqlText ＝ “insert into issue (json) values (@json)”
stmt ＝ sqlite.取记录集 (sqlText, result)
如果真 (result)
输出调试文本 (“创建记录集成功”)
uText ＝ 测试json解析 ()
stmt.绑定参数字节集 (“@json”, uText)
stmt.执行 ()
stmt.关闭 ()
' sqlite.提交事务 ()

子程序名	返回值类型	公开	备 注
测试json解析	字节集

变量名	类 型	静态	数组	备 注
bool	逻辑型
bin	字节集
path	文本型
pathW	字节集
uText	字节集
u8text	文本型
ansiText	文本型

' bin ＝ 读入文件 (“dataW.json”)
bin ＝ 读入文件 (“dataU8.json”)
' bool ＝ json.解析W (bin)
bool ＝ json.解析UTF8 (到文本 (bin))
输出调试文本 (bool)
如果真 (bool ＝ 假)
返回 ({  })
path ＝ “[0].issue.issuse”
pathW ＝ zyA2W (path)
ansiText ＝ json.取文本 (path)
uText ＝ json.取文本W (pathW)
u8text ＝ zyW2A (uText, 65001)  ' UTF-16 LE >  UTF-8
MessageBoxW (0, uText, pathW, 0)
返回 (到字节集 (u8text))

.版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 json, zyJsonDocument<br /> .程序集变量 sqlite, zySqlite数据库类<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 uText, 字节集<br /> <br /> ' jsonData ＝ 读入文件 (“dataU8.json”)<br /> ' tW ()<br /> <br /> ' 测试json解析 ()<br /> ' 创建数据库 ()<br /> ' uText ＝ 测试json解析 ()<br /> <br /> db_打开 ()<br /> db_创建数据库 ()<br /> ' db_插入数据 ()<br /> db_cha询数据 ()<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> <br /> .子程序 db_打开<br /> .局部变量 打开选项, 整数型<br /> <br /> 打开选项 ＝ 位或 (#SQLITE_打开_读写, #SQLITE_打开_创建)<br /> .如果真 (sqlite.打开 (“test.db”, 打开选项, ) ＝ 假)<br />     输出调试文本 (“打开数据库失败！”)<br /> .如果真结束<br /> <br /> <br /> .子程序 db_创建数据库<br /> .局部变量 fields, S3字段信息, , "2"<br /> <br /> .如果真 (sqlite.表是否存在 (“issue”))<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> fields [1].名称 ＝ “id”<br /> fields [1].类型 ＝ #整数型<br /> fields [1].属性 ＝ 位或 (#S3字段属性_主键, #S3字段属性_自动递增)<br /> <br /> fields [2].名称 ＝ “json”<br /> fields [2].类型 ＝ #文本型<br /> <br /> <br /> .如果真 (sqlite.创建表 (“issue”, fields) ＝ 假)<br />     输出调试文本 (“创建表失败！” ＋ sqlite.取错误文本 ())<br />     返回 ()<br /> .如果真结束<br /> 输出调试文本 (“创建表成功！”)<br /> <br /> <br /> .子程序 db_cha询数据<br /> .局部变量 sqlText, 文本型<br /> .局部变量 stmt, zySqlite记录集类<br /> .局部变量 result, 逻辑型<br /> .局部变量 u8textBin, 字节集<br /> .局部变量 id, 整数型<br /> .局部变量 uText, 字节集<br /> .局部变量 idUtext, 字节集<br /> <br /> sqlText ＝ “select * from issue”<br /> stmt ＝ sqlite.取记录集 (sqlText)<br /> .如果真 (stmt.取句柄 () ＝ 0)<br />     输出调试文本 (sqlite.取错误文本 ())<br />     返回 ()<br /> .如果真结束<br /> <br /> .判断循环首 (stmt.到下一行 ())<br />     id ＝ stmt.读字段整数值 (0)<br />     u8textBin ＝ stmt.读字段字节集值 (1)<br />     ' 调试输出 (id, )<br />     uText ＝ zyA2W (到文本 (u8textBin), 65001)  ' UTF-8  > UTF-16<br />     idUtext ＝ zyA2W (到文本 (id))<br />     MessageBoxW (0, uText, idUtext, 0)<br /> <br /> .判断循环尾 ()<br /> stmt.关闭 ()<br /> <br /> <br /> .子程序 db_插入数据<br /> .局部变量 sqlText, 文本型<br /> .局部变量 stmt, zySqlite记录集类<br /> .局部变量 result, 逻辑型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 uText, 字节集<br /> .局部变量 ret<br /> <br /> .' 如果真 (sqlite.开始事务 (, ) ≠ #SQLITE_成功)<br />     ' 输出调试文本 (“开始事务失败！”)<br />     ' 返回 ()<br /> .如果真结束<br /> <br /> sqlText ＝ “insert into issue (json) values (@json)”<br /> stmt ＝ sqlite.取记录集 (sqlText, result)<br /> .如果真 (result)<br />     输出调试文本 (“创建记录集成功”)<br />     uText ＝ 测试json解析 ()<br />     stmt.绑定参数字节集 (“@json”, uText)<br /> <br />     stmt.执行 ()<br />     stmt.关闭 ()<br /> <br /> .如果真结束<br /> ' sqlite.提交事务 ()<br /> <br /> <br /> .子程序 测试json解析, 字节集<br /> .局部变量 bool, 逻辑型<br /> .局部变量 bin, 字节集<br /> .局部变量 path, 文本型<br /> .局部变量 pathW, 字节集<br /> .局部变量 uText, 字节集<br /> .局部变量 u8text, 文本型<br /> .局部变量 ansiText, 文本型<br /> <br /> <br /> ' bin ＝ 读入文件 (“dataW.json”)<br /> bin ＝ 读入文件 (“dataU8.json”)<br /> <br /> ' bool ＝ json.解析W (bin)<br /> bool ＝ json.解析UTF8 (到文本 (bin))<br /> 输出调试文本 (bool)<br /> .如果真 (bool ＝ 假)<br />     返回 ({  })<br /> .如果真结束<br /> path ＝ “[0].issue.issuse”<br /> pathW ＝ zyA2W (path)<br /> <br /> ansiText ＝ json.取文本 (path)<br /> uText ＝ json.取文本W (pathW)<br /> u8text ＝ zyW2A (uText, 65001)  ' UTF-16 LE >  UTF-8<br /> <br /> MessageBoxW (0, uText, pathW, 0)<br /> 返回 (到字节集 (u8text))

emodiyu

直接字节集储存即可，转换utf8文本方式储存也可以，以下模块能实现

sqlite3.30.1 数据库模块+支持库（彻底解决多线程死锁问题）
https://bbs.125.la/forum.php?mod=viewthread&tid=14512756
(出处: 精易论坛)

lty368

emodiyu 发表于 2025-5-2 19:16
直接字节集储存即可，转换utf8文本方式储存也可以，以下模块能实现

sqlite3.30.1 数据库模块+支持库（彻底 ...

转换utf8文本方式储存，unicode文本就变成？了。

1425113841

换个语言吧, 易语言适合做前端的内容, 不适合做后端的内容.

永痕

zysqlite.zip (679.73 KB, 下载次数: 2)

2025-5-3 14:12 上传

点击文件名下载附件
补充源码

lty368

永痕 发表于 2025-5-3 14:13
补充源码

谢谢大佬，牛逼。我是用E2EE需要在前端网页显示。这个unicode保存到数据库没问题了，怎么通过接口返回给前端？之前不考虑unicode的时候，我是cha询出来直接返回存取列表json给前端。

lufanjingyi

base64编码呗

lty368

已解决，谢谢各位大佬。
使用E2EE支持库，即可完美解决unicode问题。可以以文本形式添加到数据库，也可以以文本形式展示到前端。
具体实现，见图，贼简单。