SQL执行失败: unsupported file format”..手动可以添加成功,软件...

a8371

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口
变量名	类 型	数组	备 注
sqlite3数据库	Sqlite数据库
Sqlite3记录集	Sqlite记录集
Sqlite3数据表	Sqlite表

子程序名	返回值类型	公开	备 注
状态条置文本
参数名	类 型	参考	可空	数组	备 注
文本内容	文本型

状态条.置文本 (0, 文本内容)

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

线程_启动 (&界面初始化线程)
状态条.置文本 (0, “正在初始化,请稍后......”)
' 打开数据库
如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ #数据库文件名 )))
信息框 (“没有数据库”, 0, , )
结束 ()

如果真 (取反 (sqlite3数据库.打开 (取运行目录 () ＋ “\” ＋ #数据库文件名, )))
信息框 (“数据库连接失败”, 0, , )
结束 ()

状态条.置文本 (0, “初始化完毕”)

子程序名	返回值类型	公开	备 注
界面初始化线程

子程序名	返回值类型	公开	备 注
_按钮_下载_被单击

如果真 (编辑框_地址.内容 ＝ “”)
状态条置文本 (“请填写网站”)
返回 ()
线程_启动 (&下载)

子程序名	返回值类型	公开	备 注
下载

变量名	类 型	静态	数组	备 注
源码	文本型
正则	正则表达式类
sql	文本型
循环次数	整数型
执行SQL	文本型
链接	文本型
主类目	文本型
子类目	文本型
价格	文本型
标题	文本型

线程_初始化COM库 ()
状态条置文本 (“正在下载中.......”)
源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框_地址.内容)))
正则.创建 (“
[\s\S]*?href= #引号 (.*?) #引号 title= #引号 (.*?)rel=[\S\s]*? (.*?)[\S\s]*? (.*?)[\S\s]*?[\S\s]*? (.*?)”, 源码, 假, 假, 真, 真)
' '解析匹配内容
sqlite3数据库.开始事务 ()
sql ＝ “insert into 项目信息表(链接,标题,主类目,子类目,价格) values ('%s','%s','%s','%s','%s')”
计次循环首 (正则.取匹配数量 (), 循环次数)
' 执行SQL ＝ 取文本 (sql, 正则.取子匹配文本 (循环次数, 1), 正则.取子匹配文本 (循环次数, 2, ), 正则.取子匹配文本 (循环次数, 3, ), 正则.取子匹配文本 (循环次数, 4, ), 正则.取子匹配文本 (循环次数, 5, ))
' 调试输出 (执行SQL)
' sqlite3数据库.执行SQL语句 (执行SQL)
' 调试输出 (sqlite3数据库.取错误文本 ())
链接 ＝ 正则.取子匹配文本 (循环次数, 1, )
标题 ＝ 正则.取子匹配文本 (循环次数, 2, )
主类目 ＝ 正则.取子匹配文本 (循环次数, 3, )
子类目 ＝ 正则.取子匹配文本 (循环次数, 4, )
价格 ＝ 正则.取子匹配文本 (循环次数, 5, )
' 防止SQL注入和单引号问题
链接 ＝ 子文本替换 (链接, “'”, “''”, , , 真)
标题 ＝ 子文本替换 (标题, “'”, “''”, , , 真)
主类目 ＝ 子文本替换 (主类目, “'”, “''”, , , 真)
子类目 ＝ 子文本替换 (子类目, “'”, “''”, , , 真)
价格 ＝ 子文本替换 (价格, “'”, “''”, , , 真)
执行SQL ＝ 取文本 (sql, 链接, 标题, 主类目, 子类目, 价格)
如果真 (sqlite3数据库.执行SQL语句 (执行SQL) ＝ 假)
调试输出 (“SQL执行失败: ” ＋ sqlite3数据库.取错误文本 ())

计次循环尾 ()
状态条置文本 (“下载完成”)
sqlite3数据库.提交事务 ()
状态条置文本 (“下载完成，共插入” ＋ 到文本 (正则.取匹配数量 ()) ＋ “条数据”)
sqlite3数据库.提交事务 ()
线程_取消COM库 ()

i支持库列表	支持库注释
SqliteDB	Sqlite数据库支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 SqliteDB<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口<br /> .程序集变量 sqlite3数据库, Sqlite数据库<br /> .程序集变量 Sqlite3记录集, Sqlite记录集<br /> .程序集变量 Sqlite3数据表, Sqlite表<br /> <br /> .子程序 状态条置文本<br /> .参数 文本内容, 文本型<br /> <br /> 状态条.置文本 (0, 文本内容)<br /> <br /> .子程序 _窗口_创建完毕<br /> <br /> 线程_启动 (&界面初始化线程)<br /> 状态条.置文本 (0, “正在初始化,请稍后......”)<br /> ' 打开数据库<br /> .如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ #数据库文件名)))<br />     信息框 (“没有数据库”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> <br /> .如果真 (取反 (sqlite3数据库.打开 (取运行目录 () ＋ “\” ＋ #数据库文件名, )))<br />     信息框 (“数据库连接失败”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> <br /> 状态条.置文本 (0, “初始化完毕”)<br /> <br /> .子程序 界面初始化线程<br /> <br /> <br /> <br /> .子程序 _按钮_下载_被单击<br /> <br /> .如果真 (编辑框_地址.内容 ＝ “”)<br />     状态条置文本 (“请填写网站”)<br />     返回 ()<br /> .如果真结束<br /> 线程_启动 (&下载)<br /> <br /> <br /> .子程序 下载<br /> .局部变量 源码, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 sql, 文本型<br /> .局部变量 循环次数, 整数型<br /> .局部变量 执行SQL, 文本型<br /> .局部变量 链接, 文本型<br /> .局部变量 主类目, 文本型<br /> .局部变量 子类目, 文本型<br /> .局部变量 价格, 文本型<br /> .局部变量 标题, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 状态条置文本 (“正在下载中.......”)<br /> 源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框_地址.内容)))<br /> 正则.创建 (“<br /> [\s\S]*?href=#引号(.*?)#引号 title=#引号(.*?)rel=[\S\s]*?(.*?)[\S\s]*?(.*?)[\S\s]*?[\S\s]*? (.*?)”, 源码, 假, 假, 真, 真)<br /> <br /> ' '解析匹配内容<br /> sqlite3数据库.开始事务 ()<br /> <br /> sql ＝ “insert into 项目信息表(链接,标题,主类目,子类目,价格) values ('%s','%s','%s','%s','%s')”<br /> <br /> <br /> .计次循环首 (正则.取匹配数量 (), 循环次数)<br />     ' 执行SQL ＝ 取文本 (sql, 正则.取子匹配文本 (循环次数, 1), 正则.取子匹配文本 (循环次数, 2, ), 正则.取子匹配文本 (循环次数, 3, ), 正则.取子匹配文本 (循环次数, 4, ), 正则.取子匹配文本 (循环次数, 5, ))<br />     ' 调试输出 (执行SQL)<br />     ' sqlite3数据库.执行SQL语句 (执行SQL)<br />     ' 调试输出 (sqlite3数据库.取错误文本 ())<br />     链接 ＝ 正则.取子匹配文本 (循环次数, 1, )<br /> <br />     标题 ＝ 正则.取子匹配文本 (循环次数, 2, )<br /> <br />     主类目 ＝ 正则.取子匹配文本 (循环次数, 3, )<br /> <br />     子类目 ＝ 正则.取子匹配文本 (循环次数, 4, )<br /> <br />     价格 ＝ 正则.取子匹配文本 (循环次数, 5, )<br /> <br /> <br /> <br />     ' 防止SQL注入和单引号问题<br />     链接 ＝ 子文本替换 (链接, “'”, “''”, , , 真)<br />     标题 ＝ 子文本替换 (标题, “'”, “''”, , , 真)<br />     主类目 ＝ 子文本替换 (主类目, “'”, “''”, , , 真)<br />     子类目 ＝ 子文本替换 (子类目, “'”, “''”, , , 真)<br />     价格 ＝ 子文本替换 (价格, “'”, “''”, , , 真)<br /> <br />     执行SQL ＝ 取文本 (sql, 链接, 标题, 主类目, 子类目, 价格)<br /> <br />     .如果真 (sqlite3数据库.执行SQL语句 (执行SQL) ＝ 假)<br /> <br />         调试输出 (“SQL执行失败: ” ＋ sqlite3数据库.取错误文本 ())<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 状态条置文本 (“下载完成”)<br /> sqlite3数据库.提交事务 ()<br /> 状态条置文本 (“下载完成，共插入” ＋ 到文本 (正则.取匹配数量 ()) ＋ “条数据”)<br /> sqlite3数据库.提交事务 ()<br /> 线程_取消COM库 ()

a8371

.版本 2
.支持库 SqliteDB
.支持库 iext
.支持库 spec

.程序集 窗口程序集_窗口
.程序集变量 sqlite3数据库, Sqlite数据库
.程序集变量 Sqlite3记录集, Sqlite记录集
.程序集变量 Sqlite3数据表, Sqlite表

.子程序 状态条置文本
.参数 文本内容, 文本型

状态条.置文本 (0, 文本内容)

.子程序 _窗口_创建完毕

线程_启动 (&界面初始化线程)
状态条.置文本 (0, “正在初始化,请稍后......”)
' 打开数据库
.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ #数据库文件名)))
    信息框 (“没有数据库”, 0, , )
    结束 ()
.如果真结束

.如果真 (取反 (sqlite3数据库.打开 (取运行目录 () ＋ “\” ＋ #数据库文件名, )))
    信息框 (“数据库连接失败”, 0, , )
    结束 ()
.如果真结束

状态条.置文本 (0, “初始化完毕”)

.子程序 界面初始化线程



.子程序 _按钮_下载_被单击

.如果真 (编辑框_地址.内容 ＝ “”)
    状态条置文本 (“请填写网站”)
    返回 ()
.如果真结束
线程_启动 (&下载)


.子程序 下载
.局部变量 源码, 文本型
.局部变量 正则, 正则表达式类
.局部变量 sql, 文本型
.局部变量 循环次数, 整数型
.局部变量 执行SQL, 文本型

线程_初始化COM库 ()
状态条置文本 (“正在下载中.......”)
源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框_地址.内容)))
正则.创建 (“<div class=#引号col-lg-5ths col-lg-3 col-md-4 col-6#引号>[\s\S]*?href=#引号(.*?)#引号 title=#引号(.*?)rel=[\S\s]*?<i class=#引号dot#引号></i>(.*?)</a>[\S\s]*?<i class=#引号dot#引号></i>(.*?)</a></span>[\S\s]*?<span class=#引号meta-author#引号>[\S\s]*?<i class=#引号fas fa-coins#引号></i> (.*?)</span>”, 源码, 假, 假, 真, 真)

' '解析匹配内容
sqlite3数据库.开始事务 ()
sql ＝ “insert into 项目信息表(链接,标题,主类目,子类目,价格) values ('%s','%s','%s','%s','%s')”


.计次循环首 (正则.取匹配数量 (), 循环次数)
    执行SQL ＝ 取文本 (sql, 正则.取子匹配文本 (循环次数, 1), 正则.取子匹配文本 (循环次数, 2, ), 正则.取子匹配文本 (循环次数, 3, ), 正则.取子匹配文本 (循环次数, 4, ), 正则.取子匹配文本 (循环次数, 5, ))
    调试输出 (执行SQL)
    sqlite3数据库.执行SQL语句 (执行SQL)
    调试输出 (sqlite3数据库.取错误文本 ())


.计次循环尾 ()


状态条置文本 (“下载完成”)
sqlite3数据库.提交事务 ()
线程_取消COM库 ()












.版本 2
.支持库 SqliteDB
.支持库 iext
.支持库 spec

.程序集 窗口程序集_窗口
.程序集变量 sqlite3数据库, Sqlite数据库
.程序集变量 Sqlite3记录集, Sqlite记录集
.程序集变量 Sqlite3数据表, Sqlite表

.子程序 状态条置文本
.参数 文本内容, 文本型

状态条.置文本 (0, 文本内容)

.子程序 _窗口_创建完毕

线程_启动 (&界面初始化线程)
状态条.置文本 (0, “正在初始化,请稍后......”)
' 打开数据库
.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ #数据库文件名)))
    信息框 (“没有数据库”, 0, , )
    结束 ()
.如果真结束

.如果真 (取反 (sqlite3数据库.打开 (取运行目录 () ＋ “\” ＋ #数据库文件名, )))
    信息框 (“数据库连接失败”, 0, , )
    结束 ()
.如果真结束

状态条.置文本 (0, “初始化完毕”)

.子程序 界面初始化线程



.子程序 _按钮_下载_被单击

.如果真 (编辑框_地址.内容 ＝ “”)
    状态条置文本 (“请填写网站”)
    返回 ()
.如果真结束
线程_启动 (&下载)


.子程序 下载
.局部变量 源码, 文本型
.局部变量 正则, 正则表达式类
.局部变量 sql, 文本型
.局部变量 循环次数, 整数型
.局部变量 执行SQL, 文本型

线程_初始化COM库 ()
状态条置文本 (“正在下载中.......”)
源码 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (编辑框_地址.内容)))
正则.创建 (“<div class=#引号col-lg-5ths col-lg-3 col-md-4 col-6#引号>[\s\S]*?href=#引号(.*?)#引号 title=#引号(.*?)rel=[\S\s]*?<i class=#引号dot#引号></i>(.*?)</a>[\S\s]*?<i class=#引号dot#引号></i>(.*?)</a></span>[\S\s]*?<span class=#引号meta-author#引号>[\S\s]*?<i class=#引号fas fa-coins#引号></i> (.*?)</span>”, 源码, 假, 假, 真, 真)

' '解析匹配内容
sqlite3数据库.开始事务 ()
sql ＝ “insert into 项目信息表(链接,标题,主类目,子类目,价格) values ('%s','%s','%s','%s','%s')”


.计次循环首 (正则.取匹配数量 (), 循环次数)
    执行SQL ＝ 取文本 (sql, 正则.取子匹配文本 (循环次数, 1), 正则.取子匹配文本 (循环次数, 2, ), 正则.取子匹配文本 (循环次数, 3, ), 正则.取子匹配文本 (循环次数, 4, ), 正则.取子匹配文本 (循环次数, 5, ))
    调试输出 (执行SQL)
    sqlite3数据库.执行SQL语句 (执行SQL)
    调试输出 (sqlite3数据库.取错误文本 ())


.计次循环尾 ()


状态条置文本 (“下载完成”)
sqlite3数据库.提交事务 ()
线程_取消COM库 ()

a8371

a8371 发表于 2025-8-29 02:09
.版本 2
.支持库 SqliteDB
.支持库 iext

两种都写不进去

冬夏

把提交事务改成保存事务看看

a8371

冬夏 发表于 2025-8-29 02:14
把提交事务改成保存事务看看

不行啊


正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(36): 找不到指定的对象成员命令名称“保存事务”。
编译现行易程序失败或被中止!

a8371

整这个6个小时了

冬夏

a8371 发表于 2025-8-29 02:15
不行啊

那把开始事务跟提交事务注释掉看看，不用事务看看能不能成功

冬夏

要么你就单独把插入前的SQL语句拿出来看看，不然就是模块问题

a8371

冬夏 发表于 2025-8-29 02:17
那把开始事务跟提交事务注释掉看看，不用事务看看能不能成功

不行啊 还是一样的错误

冬夏

a8371 发表于 2025-8-29 02:26
不行啊 还是一样的错误

insert into `项目信息表`(`链接`,`标题`,`主类目`,`子类目`,`价格`) values ('%s','%s','%s','%s','%s')