package.path = [[.\lib_lua\?.lua;]] .. package.path
package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
local 简件系库 = require("lfs")
--~ function _G.require_u8(modname)
--~ return require(字集码互转库.u8_to_a(modname))
--~ end
do
local k1 = 0
function _G.递增示()
k1 = k1 + 1
print(k1)
end
end
--~ do
--~ local k1 = os.execute
--~ function _G.os.execute(command)
--~ return k1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(o1, o2)
local k1
local k1_3
k1_3 = io.open(o1, o2 or "r")
k1 = k1_3:read("a")
k1_3:flush()
k1_3:close()
return k1
end
function d_5.读件排(o1_9, o1)
local k1_9
k1_9 = {}
for o2 = 1, #o1_9 do
k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1)
end
return k1_9
end
function d_5.写件(o1, o2, o3)
local k1_3
k1_3 = io.open(o1, o3 or "w")
k1_3:write(o2)
k1_3:flush()
k1_3:close()
end
function d_5.写件_一维(o1, o1_9, o2, o3)
local k1 = table.concat(o1_9, "\n")
if o3 then
k1 = o3(k1)
end
d_5.写件(o1, k1, o2)
end
--~ function d_5.删制表符(o1)
--~ return o1:gsub("\t", "")
--~ end
function d_5.删空格与制表符(o1)
o1 = d_5.删空格(o1)
return d_5.删制表符(o1)
end
function d_5.文转排(text)
local lines = {}
for line in text:gmatch("[^\n]+") do
table.insert(lines, line)
end
return lines
end
function d_5.删前缀(o1, o2)
if o1:find(o2, 1, true) then
return o1:sub(#o2 + 1)
end
end
function d_5.删后缀(o1, o2)
if o1:find(o2, -1, true) then
return o1:sub(1, #o1 - #o2)
end
end
--~ function d_5.删空行_不虑首末态(o1)
--~ return o1:gsub("\n+", "\n")
--~ end
--~ function d_5.删空行(o1)
--~ o1 = d_5.删空行_不虑首末态(o1)
--~ o1 = d_5.删前缀(o1, "\n")
--~ return d_5.删后缀(o1, "\n")
--~ end
--~ function d_5.删空格(o1)
--~ return o1:gsub(" ", "")
--~ end
function d_5.筛排(o1_9, o1, o2, o3)
local k1_8
local k1_9
k1_9 = {}
for o4 = 1, #o1_9 do
k1_8 = o1(o1_9[o4], o2, o3)
if k1_8 then
k1_9[#k1_9 + 1] = k1_8
end
end
return k1_9
end
function d_5.捕排(o1, o2, o3)
local k1_9
k1_9 = {}
for o4 in o1(o2, o3) do
k1_9[#k1_9 + 1] = o4
end
return k1_9
end
function d_5.留文(o1, o2)
if o1:match(o2 or ".") then
return o1
end
end
function d_5.筛件径(o1, o2)
local k1_9
k1_9 = d_5.捕排(简件系库.dir, o1)
k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/")
return d_5.筛排(k1_9, d_5.留文, o2)
end
--~ function d_5.筛件径(o1, o2)
--~ local k1
--~ local k1_9
--~ k1_9 = {}
--~ for o3 in 简件系库.dir(o1) do
--~ if o3:match(o2 or ".") then
--~ k1_9[#k1_9 + 1] = o1 .. "/" .. o3
--~ end
--~ end
--~ return k1_9
--~ end
function d_5.加前缀(o1, o2)
return o2 .. o1
end
--~ function d_5.加前缀与后缀(o1, o2, o3)
--~ return o2 .. o1 .. o3
--~ end
function d_5.加后缀(o1, o2)
return o1 .. o2
end
function d_5.filterLinesWithCharacter(text, character)
local result = {}
local lines = d_5.文转排(text)
-- 遍历每一行，检查是否包含目标字符
for i, line in ipairs(lines) do
if line:find(character, 1, true) then
table.insert(result, line)
end
end
return result
end
function d_5.办并说(o1)
print(o1)
os.execute(o1)
end
--~ function d_5.筛单行等式_左右值态(o1)
--~ local k1_11
--~ k1_11 = {}
--~ for o2 in k1_11:gmatch("[^\n= \t]+") do
--~ table.insert(k1_11, o2)
--~ end
--~ return o2
--~ end
return d_5