求精通sqlite大佬帮忙看看 - 精易论坛

如果 (sqlite.打开 (取特定目录 (3) ＋ “\” ＋编辑框名字.内容＋ “.db”, 假))

如果 (sqlite.表是否存在 (“lin”))

如果真 (sql.打开 (“lin”, sqlite))

文件_枚举 (编辑框地址.内容＋ “/”, “*.txt”, 文本数组, 真, 假, 假) ' C:\012.txt

数量＝取数组成员数 (文本数组)

如果真 (数量＞ 9)

t1 ＝取启动时间 ()

计次循环首 (10, i)

sql.插入 () ' sql.写字段值 (“path”, 文本数组 [1])

sql.写字段值 (“path”, 编码_UTF8编码 (文本数组 [1], ))

sql.提交 ()

计次循环尾 ()

t2 ＝取启动时间 ()

间隔＝ t2 － t1

信息＝ “读取到共计文本数量：” ＋到文本 (数量) ＋ #换行符＋ #换行符

信息＝信息＋ “单个耗时（毫秒）：” ＋到文本 (间隔 ÷ 10) ＋ #换行符

信息＝信息＋ “预计耗时（分钟）：” ＋到文本 (间隔 × 数量 ÷ 10 ÷ 60000) ＋ #换行符＋ #换行符

信息＝信息＋ “是否继续进行，请选择”

如果真 (信息框 (信息, 4, , ) ＝ 6)

sqlite.关闭 ()

按钮_读取.禁止＝假

返回 ()

计次循环首 (数量－ 10, i)

sql.插入 ()

sql.写字段值 (“path”, 编码_UTF8编码 (文本数组 [i ＋ 10], ))

sql.提交 ()

计次循环尾 ()

信息框 (“读取结束！！！”, 0, , )

信息框 (“不可以插入”, 0, , )

信息框 (“打开失败”, 0, , )
sqlite.关闭 ()
按钮_读取.禁止＝假

i支持库列表	支持库注释
SqliteDB	Sqlite数据库支持库
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 SqliteDB<br />
.支持库 shell<br />
<br />
.如果 (sqlite.打开 (取特定目录 (3) ＋ “\” ＋ 编辑框名字.内容 ＋ “.db”, 假))<br />
<br />
    .如果 (sqlite.表是否存在 (“lin”))<br />
<br />
        .如果真 (sql.打开 (“lin”, sqlite))<br />
<br />
            文件_枚举 (编辑框地址.内容 ＋ “/”, “*.txt”, 文本数组, 真, 假, 假)  ' C:\012.txt<br />
            数量 ＝ 取数组成员数 (文本数组)<br />
            .如果真 (数量 ＞ 9)<br />
                t1 ＝ 取启动时间 ()<br />
                .计次循环首 (10, i)<br />
                    sql.插入 ()  ' sql.写字段值 (“path”, 文本数组 [1])<br />
                    sql.写字段值 (“path”, 编码_UTF8编码 (文本数组 [1], ))<br />
                    sql.提交 ()<br />
                .计次循环尾 ()<br />
                t2 ＝ 取启动时间 ()<br />
                间隔 ＝ t2 － t1<br />
                信息 ＝ “读取到共计文本数量：” ＋ 到文本 (数量) ＋ #换行符 ＋ #换行符<br />
                信息 ＝ 信息 ＋ “单个耗时（毫秒）：” ＋ 到文本 (间隔 ÷ 10) ＋ #换行符<br />
                信息 ＝ 信息 ＋ “预计耗时（分钟）：” ＋ 到文本 (间隔 × 数量 ÷ 10 ÷ 60000) ＋ #换行符 ＋ #换行符<br />
                信息 ＝ 信息 ＋ “是否继续进行，请选择”<br />
                .如果真 (信息框 (信息, 4, , ) ＝ 6)<br />
                    sqlite.关闭 ()<br />
                    按钮_读取.禁止 ＝ 假<br />
                    返回 ()<br />
                .如果真结束<br />
<br />
            .如果真结束<br />
<br />
            .计次循环首 (数量 － 10, i)<br />
                sql.插入 ()<br />
                sql.写字段值 (“path”, 编码_UTF8编码 (文本数组 [i ＋ 10], ))<br />
                sql.提交 ()<br />
            .计次循环尾 ()<br />
<br />
            信息框 (“读取结束！！！”, 0, , )<br />
        .如果真结束<br />
<br />
    .否则<br />
        信息框 (“不可以插入”, 0, , )<br />
    .如果结束<br />
<br />
.否则<br />
    信息框 (“打开失败”, 0, , )<br />
.如果结束<br />
sqlite.关闭 ()<br />
按钮_读取.禁止 ＝ 假