Index: 残局文料/lib/ipml_mj_ysaf.lua ================================================================== --- 残局文料/lib/ipml_mj_ysaf.lua +++ 残局文料/lib/ipml_mj_ysaf.lua @@ -1,178 +1,179 @@ -package.path = [[.\lib\?.lua;]] .. package.path -package.cpath = [[.\lib\?.dll;]] .. package.cpath -local 字集码互转库 = require("u8_to_a") -local d_5 = {} -local 简件系库 = require("lfs") ---~ 程语_月_标准库_仿照_加多_多编码_大字集_通用 -function d_5.require_通用大字集态_八位态(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) ---~ return o1:gsub("%s", "") ---~ 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 o2(o1, o3) do ---~ k1_9[#k1_9 + 1] = o4 ---~ end ---~ return k1_9 ---~ end ---~ function d_5.判文(o1, o2, o3, o4) ---~ if o1:find(o2 or ".", o3, o4) then ---~ return o1 ---~ end ---~ end -function d_5.筛件径(o1, o2) - local k1_9 - k1_9 = d_5.筛文(o1, 简件系库.dir) - k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") - k1_9 = d_5.筛排(k1_9, d_5.判文, o2) - return d_5.筛排(k1_9, d_5.在前后加英文双引号) -end ---~ function d_5.筛单行等式(o1) ---~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+") ---~ end ---~ function d_5.捕非空单行(o1) ---~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") ---~ end ---~ function d_5.捕非空单行(o1) ---~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") ---~ end -function d_5.排转对(o1_12, o1) - local k1_5 - local k1_11 - k1_11 = {} - for o2 = 1, #o1_12, o1 + 1 do - k1_5 = {} - for o3 = 1, o1 do - k1_5[o3] = o1_12[o2 + o3] - end - k1_11[o1_12[o2]] = k1_5 - end - return k1_11 -end ---~ function d_5.加前缀(o1, o2) ---~ return o2 .. o1 ---~ 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) ---~ return [["]] .. 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 +package.path = [[.\lib\?.lua;]] .. package.path +package.cpath = [[.\lib\?.dll;]] .. package.cpath +local 字集码互转库 = require("u8_to_a") +local d_5 = {} +local 简件系库 = require("lfs") +--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用 +function d_5.require_通用大字集态_八位态(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) +--~ return o1:gsub("%s", "") +--~ 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 o2(o1, o3) do +--~ k1_9[#k1_9 + 1] = o4 +--~ end +--~ return k1_9 +--~ end +--~ function d_5.判文(o1, o2, o3, o4) +--~ if o1:find(o2 or ".", o3, o4) then +--~ return o1 +--~ end +--~ end +function d_5.筛件径(o1, o2) + local k1_9 + k1_9 = d_5.筛文(o1, 简件系库.dir) + k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") + k1_9 = d_5.筛排(k1_9, d_5.判文, o2) + return d_5.筛排(k1_9, d_5.在前后加英文双引号) + end +--~ function d_5.筛单行等式(o1) +--~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+") +--~ end +--~ function d_5.捕非空单行(o1) +--~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") +--~ end +--~ function d_5.捕非空单行(o1) +--~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") +--~ end +function d_5.排转对(o1_12, o1) + local k1_5 + local k1_11 + k1_11 = {} + for o2 = 1, #o1_12, o1 + 1 do + k1_5 = {} + for o3 = 1, o1 do + k1_5[o3] = o1_12[o2 + o3] + end + k1_11[o1_12[o2]] = k1_5 + end + return k1_11 + end +--~ function d_5.加前缀(o1, o2) +--~ return o2 .. o1 +--~ 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) +--~ return [["]] .. 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 + Index: 残局文料/lib/程语_月_基类_排_遍历.lua ================================================================== --- 残局文料/lib/程语_月_基类_排_遍历.lua +++ 残局文料/lib/程语_月_基类_排_遍历.lua @@ -1,19 +1,20 @@ -local d_2 = {} -function d_2.遍历_返排态(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_2.遍历_基态(o1_9, o1, o2, o3) - for o4 = 1, #o1_9 do - o1(o1_9[o4], o2, o3) - end -end -return d_2 +local d_2 = {} +function d_2.遍历_返排态(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_2.遍历_基态(o1_9, o1, o2, o3) + for o4 = 1, #o1_9 do + o1(o1_9[o4], o2, o3) + end + end +return d_2 + Index: 残局文料/lib/程语_月_基类_文_前后缀.lua ================================================================== --- 残局文料/lib/程语_月_基类_文_前后缀.lua +++ 残局文料/lib/程语_月_基类_文_前后缀.lua @@ -1,10 +1,9 @@ local d_3 = {} local require = 常用库.require_通用大字集态_八位态 local 筛文库 = require("程语_月_基类_文_筛文") --~ 加 ---~ 加_分_基 function d_3.加前缀_基态(o1, o2) return o2 .. o1 end function d_3.加后缀_基态(o1, o2) return o1 .. o2 @@ -14,28 +13,25 @@ --~ 筛文库.返全文(o1, ) --~ local k1 --~ k1 = d_3.删前缀(o1, o2, o3) --~ return o2 .. o1 --~ end ---~ 加_合 function d_3.加前缀与后缀_基态(o1, o2, o3) return o2 .. o1 .. (o3 or "") end --~ 删 ---~ 删_分 -function d_3.删前缀(o1, o2, o3) +function d_3.删前缀_基态(o1, o2, o3) if o1:find(o2, 1, o3 or true) then return o1:sub(#o2 + 1) end end -function d_3.删后缀(o1, o2, o3) +function d_3.删后缀_基态(o1, o2, o3) if o1:find(o2, -1, o3 or true) then return o1:sub(1, #o1 - #o2) end end ---~ 删 --~ 场景_令行窗_件径 function d_3.在前后加英文双引号_基态(o1) return [["]] .. o1 .. [["]] end return d_3 Index: 残局文料/lib/程语_月_基类_文_筛文.lua ================================================================== --- 残局文料/lib/程语_月_基类_文_筛文.lua +++ 残局文料/lib/程语_月_基类_文_筛文.lua @@ -1,7 +1,8 @@ -local d_2 = {} -function d_2.返全文(o1, o2, o3, o4) - if o1:find(o2, o3, o4) then - return o1 - end -end -return d_2 +local d_2 = {} +function d_2.返全文(o1, o2, o3, o4) + if o1:find(o2, o3, o4) then + return o1 + end + end +return d_2 + Index: 残局文料/lib/程语_月_基类_文_遍历.lua ================================================================== --- 残局文料/lib/程语_月_基类_文_遍历.lua +++ 残局文料/lib/程语_月_基类_文_遍历.lua @@ -1,10 +1,11 @@ -local d_2 = {} -function d_2.遍历(o1, o2, o3) - local k1_9 - k1_9 = {} - for o4 in o2(o1, o3) do - k1_9[#k1_9 + 1] = o4 - end - return k1_9 -end -return d_2 +local d_2 = {} +function d_2.遍历(o1, o2, o3) + local k1_9 + k1_9 = {} + for o4 in o2(o1, o3) do + k1_9[#k1_9 + 1] = o4 + end + return k1_9 + end +return d_2 + DELETED 残局文料/lib/程语_月_基类_能_传参_字集码_大字集_通用.lua Index: 残局文料/lib/程语_月_基类_能_传参_字集码_大字集_通用.lua ================================================================== --- 残局文料/lib/程语_月_基类_能_传参_字集码_大字集_通用.lua +++ /dev/null @@ -1,3 +0,0 @@ -local d_2 = {} ---~ 八位 -return d_2 Index: 残局文料/lib/算机_基统_窗群_令行窗_无窗.lua ================================================================== --- 残局文料/lib/算机_基统_窗群_令行窗_无窗.lua +++ 残局文料/lib/算机_基统_窗群_令行窗_无窗.lua @@ -7,13 +7,16 @@ function d_2.办令_基态(o1) print(o1) os.execute(o1) end --~ 件夹 -function d_2.入件夹而用件径_基态(o1, o2, o3, o4) +function d_2.入件夹而用件径_筛态_前后缀态(o1, o2, o3, o4, o5, o6) local k1_9 - k1_9 = 件径库.入件夹而返件径排_筛态(o1, o2) + k1_9 = 件径库.入件夹而返件径排_筛态(o1, o2, o3, o4) k1_9 = 遍历排库.遍历_返排态(k1_9, 前后缀库.在前后加英文双引号_基态) - k1_9 = 遍历排库.遍历_返排态(k1_9, 前后缀库.加前缀与后缀_基态, o3, o4) + k1_9 = 遍历排库.遍历_返排态(k1_9, 前后缀库.加前缀与后缀_基态, o5, o6) 遍历排库.遍历_基态(k1_9, d_2.办令_基态) end +function d_2.入件夹而用件径_筛后缀态_前缀态(o1, o2, o3) + d_2.入件夹而用件径_筛态_前后缀态(o1, o2, -#o2, true, o3) + end return d_2 Index: 残局文料/齐月程语件.lua ================================================================== --- 残局文料/齐月程语件.lua +++ 残局文料/齐月程语件.lua @@ -3,8 +3,8 @@ local require = 常用库.require_通用大字集态_八位态 local 令行库 = require("算机_基统_窗群_令行窗_无窗") local 转参库 = require("程语_月_基类_能_传参_转化") local d_2 = {} function d_2.齐月程语件_基态_通用大字集态_八位态(o1, o2) - 转参库.三参(令行库.入件夹而用件径_基态, 字集码互转库.u8_to_a, o1, [[%.lua$]], o2) + 转参库.三参(令行库.入件夹而用件径_筛后缀态_前缀态, 字集码互转库.u8_to_a, o1, [[.lua]], o2) end d_2.齐月程语件_基态_通用大字集态_八位态([[../single]], [[stylua --indent-type Spaces --sort-requires --indent-width 2 --collapse-simple-statement Never ]])