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
|
--~ package.path = [[.\dfns_jvwg_ysaf\?.lua;]] .. package.path
--~ package.cpath = [[.\dfns_jvwg_ysaf\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
--~ function _G.历排(o1_11, u1, u2, o3, o4)
--~ local k1_8
--~ local k1_11
--~ k1_11 = {}
--~ for o5 = 1, #o1_11 do
--~ k1_8 = u1(o1_11[o5], u2, o3, o4)
--~ if k1_8 then
--~ k1_11[#k1_11 + 1] = k1_8
--~ end
--~ end
--~ return k1_11
--~ end
--~ function _G.历文(u1, u2, o3, o4)
--~ local k1_9
--~ k1_9 = {}
--~ for o5 in u2(u1, o3, o4) do
--~ k1_9[#k1_9 + 1] = o5
--~ end
--~ return k1_9
--~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
|
|
|
|
|
|
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
|
--~ package.path = [[.\dfns_jvwg_ysaf\?.lua;]] .. package.path
--~ package.cpath = [[.\dfns_jvwg_ysaf\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
--~ function _G.历排(o1_11, u1, u2, u3, o4)
--~ local k1_8
--~ local k1_11
--~ k1_11 = {}
--~ for o5 = 1, #o1_11 do
--~ k1_8 = u1(o1_11[o5], u2, u3, o4)
--~ if k1_8 then
--~ k1_11[#k1_11 + 1] = k1_8
--~ end
--~ end
--~ return k1_11
--~ end
--~ function _G.历文(u1, u2, u3, o4)
--~ local k1_9
--~ k1_9 = {}
--~ for o5 in u2(u1, u3, o4) do
--~ k1_9[#k1_9 + 1] = o5
--~ end
--~ return k1_9
--~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
|
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
|
local k1_9
k1_9 = {}
for u2 = 1, #o1_9 do
k1_9[#k1_9 + 1] = d_5.读件(o1_9[u2], u1)
end
return k1_9
end
function d_5.写件(u1, u2, o3)
local k1_3
k1_3 = io.open(u1, o3 or "w")
k1_3:write(u2)
k1_3:flush()
k1_3:close()
end
function d_5.写件_一维(u1, o1_9, u2, o3)
local k1 = table.concat(o1_9, "\n")
if o3 then
k1 = o3(k1)
end
d_5.写件(u1, k1, u2)
end
function d_5.删制表符(u1)
return u1:gsub("\t", "")
end
--~ function d_5.删空白字(u1)
|
|
|
|
|
|
|
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
|
local k1_9
k1_9 = {}
for u2 = 1, #o1_9 do
k1_9[#k1_9 + 1] = d_5.读件(o1_9[u2], u1)
end
return k1_9
end
function d_5.写件(u1, u2, u3)
local k1_3
k1_3 = io.open(u1, u3 or "w")
k1_3:write(u2)
k1_3:flush()
k1_3:close()
end
function d_5.写件_一维(u1, o1_9, u2, u3)
local k1 = table.concat(o1_9, "\n")
if u3 then
k1 = u3(k1)
end
d_5.写件(u1, k1, u2)
end
function d_5.删制表符(u1)
return u1:gsub("\t", "")
end
--~ function d_5.删空白字(u1)
|
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
|
--~ u1 = d_5.删空行_不虑首末态(u1)
--~ u1 = d_5.删前缀(u1, "\n")
--~ return d_5.删后缀(u1, "\n")
--~ end
function d_5.删空格(u1)
return u1:gsub(" ", "")
end
function d_5.筛排(o1_9, u1, u2, o3)
local k1_8
local k1_9
k1_9 = {}
for o4 = 1, #o1_9 do
k1_8 = u1(o1_9[o4], u2, o3)
if k1_8 then
k1_9[#k1_9 + 1] = k1_8
end
end
return k1_9
end
--~ function d_5.筛文(u1, u2, o3)
--~ local k1_9
--~ k1_9 = {}
--~ for o4 in u2(u1, o3) do
--~ k1_9[#k1_9 + 1] = o4
--~ end
--~ return k1_9
--~ end
--~ function d_5.判文(u1, u2, o3, o4)
--~ if u1:find(u2 or ".", o3, o4) then
--~ return u1
--~ end
--~ end
--~ function d_5.筛件径(u1, u2)
--~ local k1_9
--~ k1_9 = d_5.筛文(u1, 简件系库.dir)
--~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, u1 .. "/")
|
|
|
|
|
|
|
|
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
|
--~ u1 = d_5.删空行_不虑首末态(u1)
--~ u1 = d_5.删前缀(u1, "\n")
--~ return d_5.删后缀(u1, "\n")
--~ end
function d_5.删空格(u1)
return u1:gsub(" ", "")
end
function d_5.筛排(o1_9, u1, u2, u3)
local k1_8
local k1_9
k1_9 = {}
for o4 = 1, #o1_9 do
k1_8 = u1(o1_9[o4], u2, u3)
if k1_8 then
k1_9[#k1_9 + 1] = k1_8
end
end
return k1_9
end
--~ function d_5.筛文(u1, u2, u3)
--~ local k1_9
--~ k1_9 = {}
--~ for o4 in u2(u1, u3) do
--~ k1_9[#k1_9 + 1] = o4
--~ end
--~ return k1_9
--~ end
--~ function d_5.判文(u1, u2, u3, o4)
--~ if u1:find(u2 or ".", u3, o4) then
--~ return u1
--~ end
--~ end
--~ function d_5.筛件径(u1, u2)
--~ local k1_9
--~ k1_9 = d_5.筛文(u1, 简件系库.dir)
--~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, u1 .. "/")
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
--~ end
function d_5.排转对(o1_12, u1)
local k1_5
local k1_11
k1_11 = {}
for u2 = 1, #o1_12, u1 + 1 do
k1_5 = {}
for o3 = 1, u1 do
k1_5[o3] = o1_12[u2 + o3]
end
k1_11[o1_12[u2]] = k1_5
end
return k1_11
end
--~ function d_5.加前缀(u1, u2)
--~ return u2 .. u1
|
|
|
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
--~ end
function d_5.排转对(o1_12, u1)
local k1_5
local k1_11
k1_11 = {}
for u2 = 1, #o1_12, u1 + 1 do
k1_5 = {}
for u3 = 1, u1 do
k1_5[u3] = o1_12[u2 + u3]
end
k1_11[o1_12[u2]] = k1_5
end
return k1_11
end
--~ function d_5.加前缀(u1, u2)
--~ return u2 .. u1
|