ну а пока
- Код: выделить все
wsan=file.open("D:Program FilesPowerProScriptsconsoleConfigconsole.powerpro","r")
v=vec.create(100,100)
for ( i=0; 1; )
vst=file.readstring(wsan)
if (select(vst,1)=="@") Do
v[i]=remove(vst,1)
i=i+1
Endif
if (file.eof(wsan) ) Do
break
Endif
endfor
file.close(wsan)
vec.sort(v)
comline=InputDefault("default", "lousy tiny command line console")
comcom=word(comline , 1)
comarg=select(comline ,length(comcom) + 1,length(comline))
for (; select(comarg,1) ==" "; )
comarg=remove(comarg,1)
endfor
for (i=0; i lt vec.length(v); i=i+1)
if (select(v[i],length(comcom)) == &(comcom)) Do
comcommand = ".consoleconfigconsole@" ++ v[i] ++ "('"'&(comarg)'")"
eval(&(comcommand))
break
Endif
endfor
if (i==vec.length(v)) Do
c="'"" ++comcom ++"'" '"" ++ comarg ++"'""
p=pprofolder ++ "a" ++ timesec ++ ".bat"
wsan=file.open("&(p)","w")
file.writeline(wsan,c)
file.close(wsan)
do(runfile,"'"&(p)'"")
file.delete(p)
Endif
endif
vec.destroy(v)
Configconsole выглядит примерно так :
- Код: выделить все
@book
do("C:wincmdutilsView64view64.exe","I:menolSAPKOWSKYsapkowskij-06-wedmak6.txt")
jump quitt
@cl
do("D:Program FilesQCD 3QCDPlayer.exe","/hide /play E:mp3Christine Lavin")
jump quitt
@db
do("D:Program FilesQCD 3QCDPlayer.exe","/hide /play E:mp3David Bowiedb.m3u")
jump quitt
@em
do("D:Program FilesGovorilkaGovorilka.exe"," I:menolLingrenemil1.txt")
jump quitt
....
@pl
do("D:Program FilesQCD 3QCDPlayer.exe","/noactivate /play &(arg(1))")
jump quitt
@qb
....
@quitt
аббревиатуры целиком писать , как видно, необязательно, но автодополнения нет. Зато настройка куда богаче -- вызываются скрипты PowerPro, а это не только запуск програм...
