5e8e495c56 2024-01-30 顽雨沉风: --~ package.path = [[.\dfns_jvwg_ysaf\?.lua;]] .. package.path
5e8e495c56 2024-01-30 顽雨沉风: --~ package.cpath = [[.\dfns_jvwg_ysaf\?.dll;]] .. package.cpath
5e8e495c56 2024-01-30 顽雨沉风: local 字集码互转库 = require("u8_to_a")
5e8e495c56 2024-01-30 顽雨沉风: local d_5 = {}
5e8e495c56 2024-01-30 顽雨沉风: --~ function _G.历排(o1_11, o1, o2, o3, o4)
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1_8
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1_11
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_11 = {}
5e8e495c56 2024-01-30 顽雨沉风: --~ for o5 = 1, #o1_11 do
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_8 = o1(o1_11[o5], o2, o3, o4)
5e8e495c56 2024-01-30 顽雨沉风: --~ if k1_8 then
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_11[#k1_11 + 1] = k1_8
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ return k1_11
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function _G.历文(o1, o2, o3, o4)
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1_9
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9 = {}
5e8e495c56 2024-01-30 顽雨沉风: --~ for o5 in o2(o1, o3, o4) do
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9[#k1_9 + 1] = o5
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ return k1_9
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ local 简件系库 = require("lfs")
5e8e495c56 2024-01-30 顽雨沉风: --~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
5e8e495c56 2024-01-30 顽雨沉风: --~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
5e8e495c56 2024-01-30 顽雨沉风: function d_5.导入库_通用大字集态_八位态(modname)
5e8e495c56 2024-01-30 顽雨沉风: return require(字集码互转库.u8_to_a(modname))
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ local
5e8e495c56 2024-01-30 顽雨沉风: do
5e8e495c56 2024-01-30 顽雨沉风: local k1 = 0
5e8e495c56 2024-01-30 顽雨沉风: function _G.递增示()
5e8e495c56 2024-01-30 顽雨沉风: k1 = k1 + 1
5e8e495c56 2024-01-30 顽雨沉风: print(k1)
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ do
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1 = os.execute
5e8e495c56 2024-01-30 顽雨沉风: --~ function _G.os.execute(command)
5e8e495c56 2024-01-30 顽雨沉风: --~ return k1(字集码互转库.u2a(command))
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.读件(o1, o2)
5e8e495c56 2024-01-30 顽雨沉风: local k1
5e8e495c56 2024-01-30 顽雨沉风: local k1_3
5e8e495c56 2024-01-30 顽雨沉风: k1_3 = io.open(o1, o2 or "r")
5e8e495c56 2024-01-30 顽雨沉风: k1 = k1_3:read("a")
5e8e495c56 2024-01-30 顽雨沉风: k1_3:flush()
5e8e495c56 2024-01-30 顽雨沉风: k1_3:close()
5e8e495c56 2024-01-30 顽雨沉风: return k1
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.读件排(o1_9, o1)
5e8e495c56 2024-01-30 顽雨沉风: local k1_9
5e8e495c56 2024-01-30 顽雨沉风: k1_9 = {}
5e8e495c56 2024-01-30 顽雨沉风: for o2 = 1, #o1_9 do
5e8e495c56 2024-01-30 顽雨沉风: k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1)
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: return k1_9
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.写件(o1, o2, o3)
5e8e495c56 2024-01-30 顽雨沉风: local k1_3
5e8e495c56 2024-01-30 顽雨沉风: k1_3 = io.open(o1, o3 or "w")
5e8e495c56 2024-01-30 顽雨沉风: k1_3:write(o2)
5e8e495c56 2024-01-30 顽雨沉风: k1_3:flush()
5e8e495c56 2024-01-30 顽雨沉风: k1_3:close()
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.写件_一维(o1, o1_9, o2, o3)
5e8e495c56 2024-01-30 顽雨沉风: local k1 = table.concat(o1_9, "\n")
5e8e495c56 2024-01-30 顽雨沉风: if o3 then
5e8e495c56 2024-01-30 顽雨沉风: k1 = o3(k1)
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: d_5.写件(o1, k1, o2)
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.删制表符(o1)
5e8e495c56 2024-01-30 顽雨沉风: return o1:gsub("\t", "")
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.删空白字(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return o1:gsub("%s", "")
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.删空格与制表符(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ o1 = d_5.删空格(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return d_5.删制表符(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.文转排(text)
5e8e495c56 2024-01-30 顽雨沉风: local lines = {}
5e8e495c56 2024-01-30 顽雨沉风: for line in text:gmatch("[^\n]+") do
5e8e495c56 2024-01-30 顽雨沉风: table.insert(lines, line)
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: return lines
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.删前缀(o1, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ if o1:find(o2, 1, true) then
5e8e495c56 2024-01-30 顽雨沉风: --~ return o1:sub(#o2 + 1)
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.删后缀(o1, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ if o1:find(o2, -1, true) then
5e8e495c56 2024-01-30 顽雨沉风: --~ return o1:sub(1, #o1 - #o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.删空行_不虑首末态(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return o1:gsub("\n+", "\n")
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.删空行(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ o1 = d_5.删空行_不虑首末态(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ o1 = d_5.删前缀(o1, "\n")
5e8e495c56 2024-01-30 顽雨沉风: --~ return d_5.删后缀(o1, "\n")
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.删空格(o1)
5e8e495c56 2024-01-30 顽雨沉风: return o1:gsub(" ", "")
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.筛排(o1_9, o1, o2, o3)
5e8e495c56 2024-01-30 顽雨沉风: local k1_8
5e8e495c56 2024-01-30 顽雨沉风: local k1_9
5e8e495c56 2024-01-30 顽雨沉风: k1_9 = {}
5e8e495c56 2024-01-30 顽雨沉风: for o4 = 1, #o1_9 do
5e8e495c56 2024-01-30 顽雨沉风: k1_8 = o1(o1_9[o4], o2, o3)
5e8e495c56 2024-01-30 顽雨沉风: if k1_8 then
5e8e495c56 2024-01-30 顽雨沉风: k1_9[#k1_9 + 1] = k1_8
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: return k1_9
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.筛文(o1, o2, o3)
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1_9
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9 = {}
5e8e495c56 2024-01-30 顽雨沉风: --~ for o4 in o2(o1, o3) do
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9[#k1_9 + 1] = o4
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ return k1_9
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.判文(o1, o2, o3, o4)
5e8e495c56 2024-01-30 顽雨沉风: --~ if o1:find(o2 or ".", o3, o4) then
5e8e495c56 2024-01-30 顽雨沉风: --~ return o1
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.筛件径(o1, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1_9
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9 = d_5.筛文(o1, 简件系库.dir)
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/")
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_9 = d_5.筛排(k1_9, d_5.判文, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ return d_5.筛排(k1_9, d_5.在前后加英文双引号)
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.筛单行等式(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+")
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.捕非空单行(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?")
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.捕非空单行(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?")
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.排转对(o1_12, o1)
5e8e495c56 2024-01-30 顽雨沉风: local k1_5
5e8e495c56 2024-01-30 顽雨沉风: local k1_11
5e8e495c56 2024-01-30 顽雨沉风: k1_11 = {}
5e8e495c56 2024-01-30 顽雨沉风: for o2 = 1, #o1_12, o1 + 1 do
5e8e495c56 2024-01-30 顽雨沉风: k1_5 = {}
5e8e495c56 2024-01-30 顽雨沉风: for o3 = 1, o1 do
5e8e495c56 2024-01-30 顽雨沉风: k1_5[o3] = o1_12[o2 + o3]
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: k1_11[o1_12[o2]] = k1_5
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: return k1_11
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.加前缀(o1, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ return o2 .. o1
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.加后缀(o1, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ return o1 .. o2
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: function d_5.filterLinesWithCharacter(text, character)
5e8e495c56 2024-01-30 顽雨沉风: local result = {}
5e8e495c56 2024-01-30 顽雨沉风: local lines = d_5.文转排(text)
5e8e495c56 2024-01-30 顽雨沉风: -- 遍历每一行，检查是否包含目标字符
5e8e495c56 2024-01-30 顽雨沉风: for i, line in ipairs(lines) do
5e8e495c56 2024-01-30 顽雨沉风: if line:find(character, 1, true) then
5e8e495c56 2024-01-30 顽雨沉风: table.insert(result, line)
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: return result
5e8e495c56 2024-01-30 顽雨沉风: end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.办令(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ print(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ os.execute(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.在前后加英文双引号(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ return [["]] .. o1 .. [["]]
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ function d_5.筛单行等式_左右值态(o1)
5e8e495c56 2024-01-30 顽雨沉风: --~ local k1_11
5e8e495c56 2024-01-30 顽雨沉风: --~ k1_11 = {}
5e8e495c56 2024-01-30 顽雨沉风: --~ for o2 in k1_11:gmatch("[^\n= \t]+") do
5e8e495c56 2024-01-30 顽雨沉风: --~ table.insert(k1_11, o2)
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: --~ return o2
5e8e495c56 2024-01-30 顽雨沉风: --~ end
5e8e495c56 2024-01-30 顽雨沉风: return d_5
5e8e495c56 2024-01-30 顽雨沉风: