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