快捷的转字符

rollout unnamedRollout "Untitled" width:162 height:300
(
 button btn1 "Button" pos:[6,77] width: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