Пытаюсь сделать File Box Extender Replacement , причем Эксплорера у меня нет -Litestep PowerPro и TC
Как бы Этого добиться?
Clip ClearClipboard
Clip Menu Folders
foldername = Clip
Clip ClearClipboard
if ((activewindow "Open*") or (activewindow "Save*")) Do
Clip Cut
filename = Clip
Clip TextPaste &(foldername)
Keys {Enter}{Del}
Clip TextPaste &(filename)
Clip ClearClipboard
Endif
if (activewindow("Open*,Save*")) do
.clipsave
local foldername
Clip Menu favorites
foldername = Clip
Clip TextPaste &(foldername)
Keys {fast}{Enter}{ho}+{ed}{del}
.cliprestore
endif
if (clip.get != "") Do
saved_clip=clip.get
clip_empty = "0"
Else
clip_empty = "1"
Endif
if ((activewindow "*Select*") or (activewindow "*Open*") or (activewindow "*Browse*") or (activewindow "*Save*") or (activewindow "*Select*")) Do
keys %n
clip.clear
clip.copy
a = clip.get
clip.set(filemenu("D:Program FilesPowerProfavfolder_any.txt"))
clip.paste
keys {enter}
if (a != "") Do
clip.set("&(a)")
clip.paste
else
clip.clear
clip.paste
Endif
else
if (activewindow "Total Commander 5*") Do
Window SendMessage "wm_user+51 2029 " Total Commander 5*
if (select(clip.get,3) == "" ) Do
Window SendMessage "wm_user+51 2002 " Total Commander 5*
Debug &(select(clip.get,3) )
Endif
clip.set(filemenu("D:Program FilesPowerProfavfolder_any.txt"))
if ((select(clip.get,1) le "9") and (select(clip.get,1) ge "0") ) Do
Window SendMessage "wm_user+51 &(clip.get) " Total Commander 5*
Else
Window SendMessage "wm_user+51 2005 " Total Commander 5*
clip.set("cd " ++ clip.get)
clip.paste
keys {enter}
Endif
Else
; Return Hotkey
Endif
endif
clip.clear
if (clip_empty == "0") Do
clip.set("&(saved_clip)")
EndIf
Window SendMessage "wm_user+51 2029 " Total Commander 5*
clip.set(clip.get ++ "'n")
clip.tofileappend("D:Program FilesPowerProfavfolder_any.txt")
.sortfavfolmenu
han = file.open("D:Program FilesPowerProfavfolder_any.txt","r")
local i j k
v = vec.create(200,100)
j=0
for (i=0;1;i=i+1)
cline = file.readline(han)
v[i]=cline
if (cline == "colsep'n")
j=i
if (file.eof(han))
break
endfor
if (j ==0)
j=&(vec.length(v))
file.close(han)
vv =vec.create(vec.length(v))
for (i=0; (i lt j);i=i+1)
if(v[i] == "colsep'n")
break
vv[i]=v[i]
endfor
k=i
vv1 =vec.create(vec.length(v))
for (;i le j;i=i+1)
vv1[i-k]=v[i]
endfor
vv2 =vec.create(vec.length(v))
for (;i lt vec.length(v)-1;i=i+1)
vv2[i-j-1]=v[i]
endfor
vec.sort(vv)
vec.sort(vv2)
han=file.open("D:Program FilesPowerProfavfolder_any.txt", "w")
file.writeline(han,vv[0])
for (i=1; i lt vec.length(vv); i=i+1)
if (vv[i] != vv[i-1])
file.writeline(han,vv[i])
endfor
for (i=0; i lt vec.length(vv1); i=i+1)
file.writeline(han,vv1[i])
endfor
file.writeline(han,vv2[0])
for (i=1; i lt vec.length(vv2); i=i+1)
if (vv2[i] != vv2[i-1])
file.writeline(han,vv2[i])
endfor
file.close(han)
vec.destroy(v)
vec.destroy(vv)
vec.destroy(vv1)
vec.destroy(vv2)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 18