ADDED   残局文料/lib_lua/ipml_mj_ysaf.lua
Index: 残局文料/lib_lua/ipml_mj_ysaf.lua
==================================================================
--- /dev/null
+++ 残局文料/lib_lua/ipml_mj_ysaf.lua
@@ -0,0 +1,115 @@
+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.删注释_lua_多行注释(o1)
+  o1 = o1:gsub("%-%-%[%[.-%]%]", "")
+  return o1
+  end
+function d_5.删注释_lua_单行注释(o1)
+  o1 = o1:gsub("%-%-.-\n", "")
+  return o1
+  end
+function d_5.删注释_lua(o1)
+  o1 = d_5.删注释_lua_多行注释(o1)
+  o1 = d_5.删注释_lua_单行注释(o1)
+  return o1
+  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)
+  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 = {}
+  for line in text:gmatch("[^\n]+") do
+    table.insert(lines, line)
+    end
+  -- 遍历每一行，检查是否包含目标字符
+  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
+return d_5