104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
-
+
+
-
+
-
-
-
+
+
+
+
+
+
|
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)
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.留文, 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)
--~ 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
|