8c1e3abceb 2024-02-12 1: local 字集库 = require("u8_to_a")
b0e744e1e3 2024-02-12 2: local 档库 = require("lsqlite3")
b0e744e1e3 2024-02-12 3: local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
8c1e3abceb 2024-02-12 4: local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
8c1e3abceb 2024-02-12 5: local d = {}
8c1e3abceb 2024-02-12 6: local 卡档
8c1e3abceb 2024-02-12 7: --~ 卡编
8c1e3abceb 2024-02-12 8: function d.取卡对(o1)
8c1e3abceb 2024-02-12 9: local k1_0, k2_0
8c1e3abceb 2024-02-12 10: --~ 卡文对
8c1e3abceb 2024-02-12 11: k1_0 = d.取卡文(o1)
8c1e3abceb 2024-02-12 12: --~ 卡数据对
8c1e3abceb 2024-02-12 13: k2_0 = d.取卡数据(o1)
8c1e3abceb 2024-02-12 14: return 对库.连两对(k1_0, k2_0)
8c1e3abceb 2024-02-12 15: end
b2254565d9 2024-02-12 16: --~ 卡编
276e038dec 2024-02-12 17: function d._取卡对(o1, o2)
b2254565d9 2024-02-12 18: for o1_4 in 卡档:nrows(文库.连(o2, o1)) do
b2254565d9 2024-02-12 19: return o1_4
b2254565d9 2024-02-12 20: end
b2254565d9 2024-02-12 21: end
beb98c727c 2024-02-12 22: do
beb98c727c 2024-02-12 23: local k1
beb98c727c 2024-02-12 24: --~ 模
beb98c727c 2024-02-12 25: k1 = "select * from texts where id = "
beb98c727c 2024-02-12 26: --~ 卡编
beb98c727c 2024-02-12 27: function d.取卡文(o1)
81b66699fb 2024-02-12 28: return d._取卡对(o1, k1)
beb98c727c 2024-02-12 29: end
beb98c727c 2024-02-12 30: end
beb98c727c 2024-02-12 31: do
beb98c727c 2024-02-12 32: local k1
beb98c727c 2024-02-12 33: --~ 模
beb98c727c 2024-02-12 34: k1 = "select * from datas where id = "
beb98c727c 2024-02-12 35: --~ 卡编
beb98c727c 2024-02-12 36: function d.取卡数据(o1)
81b66699fb 2024-02-12 37: return d._取卡对(o1, k1)
8c1e3abceb 2024-02-12 38: end
8c1e3abceb 2024-02-12 39: end
8c1e3abceb 2024-02-12 40: --~ 卡档路
8c1e3abceb 2024-02-12 41: function d.启卡档(o1)
8c1e3abceb 2024-02-12 42: 卡档 = 档库.open(o1)
8c1e3abceb 2024-02-12 43: end
8c1e3abceb 2024-02-12 44: return d