44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
-
-
-
+
+
+
|
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("\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
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
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
139
140
141
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
+
+
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
|
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)
--~ 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
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
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, 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 11:gmatch("[^\n= \t]+") do
table.insert(k1_11, o2)
end
return o2
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
|