5e8e495c56 2024-01-30 1: --~ package.path = [[.\dfns_jvwg_ysaf\?.lua;]] .. package.path
5e8e495c56 2024-01-30 2: --~ package.cpath = [[.\dfns_jvwg_ysaf\?.dll;]] .. package.cpath
5e8e495c56 2024-01-30 3: local 字集码互转库 = require("u8_to_a")
5e8e495c56 2024-01-30 4: local d_5 = {}
4c19907139 2024-02-13 5: --~ function _G.历排(o1_11, u1, u2, u3, o4)
5e8e495c56 2024-01-30 6: --~ local k1_8
5e8e495c56 2024-01-30 7: --~ local k1_11
5e8e495c56 2024-01-30 8: --~ k1_11 = {}
5e8e495c56 2024-01-30 9: --~ for o5 = 1, #o1_11 do
4c19907139 2024-02-13 10: --~ k1_8 = u1(o1_11[o5], u2, u3, o4)
5e8e495c56 2024-01-30 11: --~ if k1_8 then
5e8e495c56 2024-01-30 12: --~ k1_11[#k1_11 + 1] = k1_8
5e8e495c56 2024-01-30 13: --~ end
5e8e495c56 2024-01-30 14: --~ end
5e8e495c56 2024-01-30 15: --~ return k1_11
5e8e495c56 2024-01-30 16: --~ end
4c19907139 2024-02-13 17: --~ function _G.历文(u1, u2, u3, o4)
5e8e495c56 2024-01-30 18: --~ local k1_9
5e8e495c56 2024-01-30 19: --~ k1_9 = {}
4c19907139 2024-02-13 20: --~ for o5 in u2(u1, u3, o4) do
5e8e495c56 2024-01-30 21: --~ k1_9[#k1_9 + 1] = o5
5e8e495c56 2024-01-30 22: --~ end
5e8e495c56 2024-01-30 23: --~ return k1_9
5e8e495c56 2024-01-30 24: --~ end
5e8e495c56 2024-01-30 25: --~ local 简件系库 = require("lfs")
5e8e495c56 2024-01-30 26: --~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
5e8e495c56 2024-01-30 27: --~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
5e8e495c56 2024-01-30 28: function d_5.导入库_通用大字集态_八位态(modname)
5e8e495c56 2024-01-30 29: return require(字集码互转库.u8_to_a(modname))
5e8e495c56 2024-01-30 30: end
5e8e495c56 2024-01-30 31: --~ local
5e8e495c56 2024-01-30 32: do
5e8e495c56 2024-01-30 33: local k1 = 0
5e8e495c56 2024-01-30 34: function _G.递增示()
5e8e495c56 2024-01-30 35: k1 = k1 + 1
5e8e495c56 2024-01-30 36: print(k1)
5e8e495c56 2024-01-30 37: end
5e8e495c56 2024-01-30 38: end
5e8e495c56 2024-01-30 39: --~ do
5e8e495c56 2024-01-30 40: --~ local k1 = os.execute
5e8e495c56 2024-01-30 41: --~ function _G.os.execute(command)
5e8e495c56 2024-01-30 42: --~ return k1(字集码互转库.u2a(command))
5e8e495c56 2024-01-30 43: --~ end
5e8e495c56 2024-01-30 44: --~ end
a4c0b3bd26 2024-02-13 45: function d_5.读件(u1, u2)
5e8e495c56 2024-01-30 46: local k1
5e8e495c56 2024-01-30 47: local k1_3
a4c0b3bd26 2024-02-13 48: k1_3 = io.open(u1, u2 or "r")
5e8e495c56 2024-01-30 49: k1 = k1_3:read("a")
5e8e495c56 2024-01-30 50: k1_3:flush()
5e8e495c56 2024-01-30 51: k1_3:close()
5e8e495c56 2024-01-30 52: return k1
5e8e495c56 2024-01-30 53: end
a4c0b3bd26 2024-02-13 54: function d_5.读件排(o1_9, u1)
5e8e495c56 2024-01-30 55: local k1_9
5e8e495c56 2024-01-30 56: k1_9 = {}
a4c0b3bd26 2024-02-13 57: for u2 = 1, #o1_9 do
a4c0b3bd26 2024-02-13 58: k1_9[#k1_9 + 1] = d_5.读件(o1_9[u2], u1)
5e8e495c56 2024-01-30 59: end
5e8e495c56 2024-01-30 60: return k1_9
5e8e495c56 2024-01-30 61: end
4c19907139 2024-02-13 62: function d_5.写件(u1, u2, u3)
5e8e495c56 2024-01-30 63: local k1_3
4c19907139 2024-02-13 64: k1_3 = io.open(u1, u3 or "w")
a4c0b3bd26 2024-02-13 65: k1_3:write(u2)
5e8e495c56 2024-01-30 66: k1_3:flush()
5e8e495c56 2024-01-30 67: k1_3:close()
5e8e495c56 2024-01-30 68: end
4c19907139 2024-02-13 69: function d_5.写件_一维(u1, o1_9, u2, u3)
a4c0b3bd26 2024-02-13 70: local k1 = table.concat(o1_9, "\n")
4c19907139 2024-02-13 71: if u3 then
4c19907139 2024-02-13 72: k1 = u3(k1)
a4c0b3bd26 2024-02-13 73: end
a4c0b3bd26 2024-02-13 74: d_5.写件(u1, k1, u2)
a4c0b3bd26 2024-02-13 75: end
a4c0b3bd26 2024-02-13 76: function d_5.删制表符(u1)
a4c0b3bd26 2024-02-13 77: return u1:gsub("\t", "")
a4c0b3bd26 2024-02-13 78: end
a4c0b3bd26 2024-02-13 79: --~ function d_5.删空白字(u1)
a4c0b3bd26 2024-02-13 80: --~ return u1:gsub("%s", "")
a4c0b3bd26 2024-02-13 81: --~ end
a4c0b3bd26 2024-02-13 82: --~ function d_5.删空格与制表符(u1)
a4c0b3bd26 2024-02-13 83: --~ u1 = d_5.删空格(u1)
a4c0b3bd26 2024-02-13 84: --~ return d_5.删制表符(u1)
5e8e495c56 2024-01-30 85: --~ end
5e8e495c56 2024-01-30 86: function d_5.文转排(text)
5e8e495c56 2024-01-30 87: local lines = {}
5e8e495c56 2024-01-30 88: for line in text:gmatch("[^\n]+") do
5e8e495c56 2024-01-30 89: table.insert(lines, line)
5e8e495c56 2024-01-30 90: end
5e8e495c56 2024-01-30 91: return lines
5e8e495c56 2024-01-30 92: end
a4c0b3bd26 2024-02-13 93: --~ function d_5.删前缀(u1, u2)
a4c0b3bd26 2024-02-13 94: --~ if u1:find(u2, 1, true) then
a4c0b3bd26 2024-02-13 95: --~ return u1:sub(#u2 + 1)
a4c0b3bd26 2024-02-13 96: --~ end
a4c0b3bd26 2024-02-13 97: --~ end
a4c0b3bd26 2024-02-13 98: --~ function d_5.删后缀(u1, u2)
a4c0b3bd26 2024-02-13 99: --~ if u1:find(u2, -1, true) then
a4c0b3bd26 2024-02-13 100: --~ return u1:sub(1, #u1 - #u2)
a4c0b3bd26 2024-02-13 101: --~ end
a4c0b3bd26 2024-02-13 102: --~ end
a4c0b3bd26 2024-02-13 103: --~ function d_5.删空行_不虑首末态(u1)
a4c0b3bd26 2024-02-13 104: --~ return u1:gsub("\n+", "\n")
a4c0b3bd26 2024-02-13 105: --~ end
a4c0b3bd26 2024-02-13 106: --~ function d_5.删空行(u1)
a4c0b3bd26 2024-02-13 107: --~ u1 = d_5.删空行_不虑首末态(u1)
a4c0b3bd26 2024-02-13 108: --~ u1 = d_5.删前缀(u1, "\n")
a4c0b3bd26 2024-02-13 109: --~ return d_5.删后缀(u1, "\n")
a4c0b3bd26 2024-02-13 110: --~ end
a4c0b3bd26 2024-02-13 111: function d_5.删空格(u1)
a4c0b3bd26 2024-02-13 112: return u1:gsub(" ", "")
5e8e495c56 2024-01-30 113: end
4c19907139 2024-02-13 114: function d_5.筛排(o1_9, u1, u2, u3)
5e8e495c56 2024-01-30 115: local k1_8
5e8e495c56 2024-01-30 116: local k1_9
5e8e495c56 2024-01-30 117: k1_9 = {}
5e8e495c56 2024-01-30 118: for o4 = 1, #o1_9 do
4c19907139 2024-02-13 119: k1_8 = u1(o1_9[o4], u2, u3)
5e8e495c56 2024-01-30 120: if k1_8 then
5e8e495c56 2024-01-30 121: k1_9[#k1_9 + 1] = k1_8
5e8e495c56 2024-01-30 122: end
5e8e495c56 2024-01-30 123: end
5e8e495c56 2024-01-30 124: return k1_9
5e8e495c56 2024-01-30 125: end
4c19907139 2024-02-13 126: --~ function d_5.筛文(u1, u2, u3)
5e8e495c56 2024-01-30 127: --~ local k1_9
5e8e495c56 2024-01-30 128: --~ k1_9 = {}
4c19907139 2024-02-13 129: --~ for o4 in u2(u1, u3) do
5e8e495c56 2024-01-30 130: --~ k1_9[#k1_9 + 1] = o4
5e8e495c56 2024-01-30 131: --~ end
5e8e495c56 2024-01-30 132: --~ return k1_9
5e8e495c56 2024-01-30 133: --~ end
4c19907139 2024-02-13 134: --~ function d_5.判文(u1, u2, u3, o4)
4c19907139 2024-02-13 135: --~ if u1:find(u2 or ".", u3, o4) then
a4c0b3bd26 2024-02-13 136: --~ return u1
5e8e495c56 2024-01-30 137: --~ end
5e8e495c56 2024-01-30 138: --~ end
a4c0b3bd26 2024-02-13 139: --~ function d_5.筛件径(u1, u2)
5e8e495c56 2024-01-30 140: --~ local k1_9
a4c0b3bd26 2024-02-13 141: --~ k1_9 = d_5.筛文(u1, 简件系库.dir)
a4c0b3bd26 2024-02-13 142: --~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, u1 .. "/")
a4c0b3bd26 2024-02-13 143: --~ k1_9 = d_5.筛排(k1_9, d_5.判文, u2)
5e8e495c56 2024-01-30 144: --~ return d_5.筛排(k1_9, d_5.在前后加英文双引号)
5e8e495c56 2024-01-30 145: --~ end
a4c0b3bd26 2024-02-13 146: --~ function d_5.筛单行等式(u1)
a4c0b3bd26 2024-02-13 147: --~ return 常用库.捕排(string.gmatch, u1, "[^\n= \t]+")
a4c0b3bd26 2024-02-13 148: --~ end
a4c0b3bd26 2024-02-13 149: --~ function d_5.捕非空单行(u1)
a4c0b3bd26 2024-02-13 150: --~ return 常用库.捕排(string.gmatch, u1, "[^\n]+[\n]?")
a4c0b3bd26 2024-02-13 151: --~ end
a4c0b3bd26 2024-02-13 152: --~ function d_5.捕非空单行(u1)
a4c0b3bd26 2024-02-13 153: --~ return 常用库.捕排(string.gmatch, u1, "[^\n]+[\n]?")
a4c0b3bd26 2024-02-13 154: --~ end
a4c0b3bd26 2024-02-13 155: function d_5.排转对(o1_12, u1)
5e8e495c56 2024-01-30 156: local k1_5
5e8e495c56 2024-01-30 157: local k1_11
5e8e495c56 2024-01-30 158: k1_11 = {}
a4c0b3bd26 2024-02-13 159: for u2 = 1, #o1_12, u1 + 1 do
5e8e495c56 2024-01-30 160: k1_5 = {}
4c19907139 2024-02-13 161: for u3 = 1, u1 do
4c19907139 2024-02-13 162: k1_5[u3] = o1_12[u2 + u3]
5e8e495c56 2024-01-30 163: end
a4c0b3bd26 2024-02-13 164: k1_11[o1_12[u2]] = k1_5
5e8e495c56 2024-01-30 165: end
5e8e495c56 2024-01-30 166: return k1_11
5e8e495c56 2024-01-30 167: end
a4c0b3bd26 2024-02-13 168: --~ function d_5.加前缀(u1, u2)
a4c0b3bd26 2024-02-13 169: --~ return u2 .. u1
5e8e495c56 2024-01-30 170: --~ end
a4c0b3bd26 2024-02-13 171: --~ function d_5.加后缀(u1, u2)
a4c0b3bd26 2024-02-13 172: --~ return u1 .. u2
5e8e495c56 2024-01-30 173: --~ end
5e8e495c56 2024-01-30 174: function d_5.filterLinesWithCharacter(text, character)
5e8e495c56 2024-01-30 175: local result = {}
5e8e495c56 2024-01-30 176: local lines = d_5.文转排(text)
5e8e495c56 2024-01-30 177: -- 遍历每一行，检查是否包含目标字符
5e8e495c56 2024-01-30 178: for i, line in ipairs(lines) do
5e8e495c56 2024-01-30 179: if line:find(character, 1, true) then
5e8e495c56 2024-01-30 180: table.insert(result, line)
5e8e495c56 2024-01-30 181: end
5e8e495c56 2024-01-30 182: end
5e8e495c56 2024-01-30 183: return result
5e8e495c56 2024-01-30 184: end
a4c0b3bd26 2024-02-13 185: --~ function d_5.办令(u1)
a4c0b3bd26 2024-02-13 186: --~ print(u1)
a4c0b3bd26 2024-02-13 187: --~ os.execute(u1)
a4c0b3bd26 2024-02-13 188: --~ end
a4c0b3bd26 2024-02-13 189: --~ function d_5.在前后加英文双引号(u1)
a4c0b3bd26 2024-02-13 190: --~ return [["]] .. u1 .. [["]]
a4c0b3bd26 2024-02-13 191: --~ end
a4c0b3bd26 2024-02-13 192: --~ function d_5.筛单行等式_左右值态(u1)
5e8e495c56 2024-01-30 193: --~ local k1_11
5e8e495c56 2024-01-30 194: --~ k1_11 = {}
a4c0b3bd26 2024-02-13 195: --~ for u2 in k1_11:gmatch("[^\n= \t]+") do
a4c0b3bd26 2024-02-13 196: --~ table.insert(k1_11, u2)
5e8e495c56 2024-01-30 197: --~ end
a4c0b3bd26 2024-02-13 198: --~ return u2
5e8e495c56 2024-01-30 199: --~ end
5e8e495c56 2024-01-30 200: return d_5
5e8e495c56 2024-01-30 201: