Script : изменение атрибутов папки

Те, кто ей начинают пользоваться, уже не в силах остановиться! Она может все. Или почти все!

Сообщение Crow » Ср июл 09, 2003 3:51 am

Да, и такой вопрос - есть, положим, строка
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
local s
s="LongFileName.exe"
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

Как получить эту же строку без кавычек? Строка берётся из клипбоарда.

Для чего всё энто надо - наваял я тут подобие скрипта для создания иконки на папку в Тотале - навёл на файл, кликнул хоткей - и папка уже с иконкой <!--emo&:)-->Изображение<!--endemo-->
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
; не работает с длинным именем самого файла
local tmp
local Path
;local pth
local FName
local IconFileName
local f

tmp=clip.get
*Keys ^pa{back}{shift}{home}{shift}^x
*wait active "*Total Commander*"
Path=clip.get

;pth=path[1]
*Keys ^{enter}{back}{shift}{home}{shift}^x{esc}
*wait active "*Total Commander*"
IconFileName=clip.get
clip.set(tmp)
FName=Path++"desktop.ini"
;wait 1
;MessageBox ("ok", Path++" "++IconFileName)
;MessageBox ("ok", FName)
f=file.open(FName,"w")
if (f > 0) Do
file.writeline(f,"[.ShellClassInfo]")
file.writeline(f,"IconFile="++Path++IconFileName) 
file.writeline(f,"IconIndex=0")
file.close(f)
*Keys ^r
else
  MessageBox ("ok", "Error opening file "++Path++Fname)
endif
quit

<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Всё не так уж важно...
Crow
Капитан
 
Сообщений: 206
Зарегистрирован: Пт мар 28, 2003 4:31 am
Откуда: Ukraine>Kharkov
Пункты репутации: 0

Сообщение Gregory » Ср июл 09, 2003 9:44 am

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->изменение атрибутов папки<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

Делается с помощью miscplugin:
Код: выделить все
sFileName = "c:\folder"
sAttrib = MiscPlugin.set_fileattrib("+R+H")


<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Как получить эту же строку без кавычек? Строка берётся из клипбоарда.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

А что мешает проверить наличие кавычек и их удалить?

Но, вообще говоря, у тебя в скрипте достаточно сложный способ получения имени файла.
Можно было бы снять выделение и скопировать имя файла в буфер.
Gregory
Капитан
 
Сообщений: 156
Зарегистрирован: Пн мар 03, 2003 7:28 pm
Откуда: Киев
Пункты репутации: 0

Сообщение Crow » Ср июл 09, 2003 10:31 am

2Gregory
Вот как проверить наличе кавычек?
я не нашёл работу со строкой как с массивом <!--emo&:(-->Изображение<!--endemo-->
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
Можно было бы снять выделение и скопировать имя файла в буфер.
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Как? Командой ТС, забинденой в нём на ноткей?
Последний раз редактировалось Crow Ср июл 09, 2003 10:35 am, всего редактировалось 1 раз.
Всё не так уж важно...
Crow
Капитан
 
Сообщений: 206
Зарегистрирован: Пт мар 28, 2003 4:31 am
Откуда: Ukraine>Kharkov
Пункты репутации: 0

Сообщение Gregory » Ср июл 09, 2003 10:58 am

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Вот как проверить наличе кавычек?<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

Со строками в PowerPro работают с помощью команд select и remove, select(string,i,k) дает строчку с символами с i-того по k-тый, select(string,i) дает строчку с символами с 1-го по i-тый и т.д., (вообщем см. Help). А проверка должна выглядеть таким образом:

Код: выделить все
if (select(IconFileName,1)=="'"") do
IconFileName=select(IconFileName,2,length(IconFileName)-1)
endif


<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Как? Командой ТС, забинденой в нём на ноткей? <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

Зачем хоткей? Из PowerPro можно выполнять внутренние команды TC c помощью SendMessage

Код: выделить все
TChandle=win.handle("c=TTOTAL_CMD")
;TChandle - handle окна Командера
win.sendmessage(TChandle,0x400+51,2018,0)
;2018 - код cm_CopyFullNamesToClip в totalcmd.inc
;Таким образом в клипбоард будут скопированы имена выделеных файлов
Последний раз редактировалось Gregory Ср июл 09, 2003 10:59 am, всего редактировалось 1 раз.
Gregory
Капитан
 
Сообщений: 156
Зарегистрирован: Пн мар 03, 2003 7:28 pm
Откуда: Киев
Пункты репутации: 0

Сообщение Crow » Чт июл 10, 2003 4:40 am

2Gregory
Похоже, у меня нету miscplugin <!--emo&:(-->Изображение<!--endemo--> .
ПП V3.7 Feb 2003. Может в ней и в хелпе select и remove нету. Хотя, я думаю, твоего пояснения должно хватить.
Слей пожалуйста miscplugin на мыло fileforum@vorona.com.ua.
Последний раз редактировалось Crow Пн авг 18, 2003 3:59 am, всего редактировалось 1 раз.
Всё не так уж важно...
Crow
Капитан
 
Сообщений: 206
Зарегистрирован: Пт мар 28, 2003 4:31 am
Откуда: Ukraine>Kharkov
Пункты репутации: 0

Сообщение dAnIK SeNT » Чт июл 10, 2003 8:49 pm

2Crow
такого рода вопросы уже надоели <!--emo&:)-->Изображение<!--endemo-->.
все интересующиеся - в тему "а где взять плагин".
яНЯЕД ОН СОПЪФЙЕ: Athlon 64 X2 5200+ @2,86GHz / nF 570 SLI (ASUS M2N SLI Deluxe) / 4 Gb RAM (4x1Gb Kingston) / 2,9Tb SATAII (0,50+0,64+0,75+1,00Tb WD) / ASUS 8800 GTS512 / 2x NEC-Optiarc AD-7173 / Thermaltake ToughPower 650W / 2x30W Microlab Solo-2 / 20" LCD Benq FP202W (wide) / openSUSE 11.1 / KDE 4.2.1
<!--coloro:Navy--><span style="color:Navy"><!--/coloro-->оН БЯЕЛ БНОПНЯЮЛ - Б email. б ICQ ОНЪБКЪЧЯЭ ПЮГ Б ОНКЦНДЮ.<!--colorc--></span><!--/colorc-->
dAnIK SeNT
Маршал
 
Сообщений: 5101
Зарегистрирован: Чт мар 28, 2002 7:48 pm
Откуда: яяяп
Пункты репутации: 0


Вернуться в Windows PowerPro

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

cron