rollout unnamedRollout "Untitled" 162 height:300
(
button btn1 "Button" pos:[6,77] 137 height:121
local kl
on btn1 pressed do
(
--while not eof std_oo do
for o = 1 to 4 do
(
local opo = readLine std_oo
coun= filterString opo " "
if coun.count>1 then
(
kl= ""
for i in coun do
(
kl+=i
)
format "%\n" kl to:li
--print kl
)
)
)
on unnamedRollout open do
(
global filePath,std_oo
filePath = getDir #maxRoot + @"\ce.api"
std_oo=openFile filePath
----输到新文件中。
global lingshi ,li
lingshi = getDir #maxRoot + @"\mytools.tmp"
li = createfile lingshi
)
on unnamedRollout close do
(
close std_oo
close li
)
)
CreateDialog unnamedRollout