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