1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
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
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
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
|
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
+
-
-
-
-
-
+
+
+
+
+
-
+
-
+
-
+
-
+
-
+
-
+
|
local d_4 = {}
local d = {}
local 简文件库 = require("lfs")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function d_4.历排(o1_0, o1, o2_0, o3_0, o4_0)
function d.历排(o1_0, o1, o2_0, o3_0, o4_0)
local k1_0
--~ 集排
k1_0 = {}
for o2 = 1, #o1_0 do
k1_0[#k1_0 + 1] = o1(o1_0[o2], o2_0, o3_0, o4_0)
end
return k1_0
end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function d_4.历文(o1, o2, o1_0, o2_0)
function d.历文(o1, o2, o1_0, o2_0)
local k1_0
--~ 集排
k1_0 = {}
for o3_0 in o2(o1, o1_0, o2_0) do
k1_0[#k1_0 + 1] = o3_0
end
return k1_0
end
--~ 表中值
--~ 值类
--~ 办值的能
function d_4.操类(o1_0, o1, o2)
function d.操类(o1_0, o1, o2)
if type(o1_0) == o1 then
return o2(o1_0)
else
return o1_0
end
end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function d_4.全筛文(o1, o2, o3, o4)
function d.全筛文(o1, o2, o3, o4)
if string.find(o1, o2, o3, o4) then
return o1
end
end
--~ 文
--~ 前缀
function d_4.加前缀(o1, o2)
function d.加前缀(o1, o2)
return (o2 or "") .. o1
end
--~ 文
--~ 后缀
function d_4.加后缀(o1, o2)
function d.加后缀(o1, o2)
return o1 .. (o2 or "")
end
--~ 令
function d_4.办令(o1)
function d.办令(o1)
print(o1)
os.execute(o1)
end
--~ 文
--~ 前缀
function d_4.全筛前缀(o1, o2)
function d.全筛前缀(o1, o2)
if string.sub(o1, 1, #o2) == o2 then
return o1
end
end
--~ 文
--~ 后缀
function d_4.全筛后缀(o1, o2)
function d.全筛后缀(o1, o2)
if string.sub(o1, -#o2) == o2 then
return o1
end
end
--~ 目对
function d_4.用令行工具操文件(o1_0)
function d.用令行工具操文件(o1_0)
local k1_9
--~ 令行排
k1_9 = d_4.历文(o1_0.文件目, 简文件库.dir)
k1_9 = d_4.历排(k1_9, d_4.全筛后缀, o1_0.文件类)
k1_9 = d.历文(o1_0.文件目, 简文件库.dir)
k1_9 = d.历排(k1_9, d.全筛后缀, o1_0.文件类)
for o1 = 1, #k1_9 do
k1_9[o1] = d_4.加前缀(k1_9[o1], o1_0.文件目)
k1_9[o1] = d_4.加前缀(k1_9[o1], [["]])
k1_9[o1] = d_4.加后缀(k1_9[o1], [["]])
k1_9[o1] = d_4.加前缀(k1_9[o1], o1_0.令行前缀)
d_4.办令(k1_9[o1])
k1_9[o1] = d.加前缀(k1_9[o1], o1_0.文件目)
k1_9[o1] = d.加前缀(k1_9[o1], [["]])
k1_9[o1] = d.加后缀(k1_9[o1], [["]])
k1_9[o1] = d.加前缀(k1_9[o1], o1_0.令行前缀)
d.办令(k1_9[o1])
end
end
--~ 文件路
--~ 式
function d_4.读文件(o1, o2)
function d.读文件(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_4.加对限(o1_0)
function d.加对限(o1_0)
for o1 = 1, #o1_0 do
o1_0[o1] = d_4.加前缀(o1_0[o1], [[k1_0["]])
o1_0[o1] = d.加前缀(o1_0[o1], [[k1_0["]])
o1_0[o1] = string.gsub(o1_0[o1], "=", "\"]=", 1)
end
table.insert(o1_0, 1, "local k1_0 = {}")
table.insert(o1_0, "return k1_0")
return table.concat(o1_0, "\n")
end
--~ 文
--~ 文件路
--~ 式
function d_4.写文件(o1, o2, o3)
function d.写文件(o1, o2, o3)
local k1_3
--~ 文件
k1_3 = io.open(o2, o3 or "w")
k1_3:write(o1)
k1_3:flush()
k1_3:close()
end
--~ 文
function d_4.删左右空白(o1)
function d.删左右空白(o1)
o1 = string.gsub(o1, "^%s+", "")
return string.gsub(o1, "%s+$", "")
end
return d_4
return d
|