| View previous topic :: View next topic |
| Author |
Message |
Serge Yolkin
Joined: 25 Jul 2009
Posts: 664
|
 (Separately) Posted: Sun Aug 23, 2009 16:28 Post subject: |
 |
|
Прошу прощения, вот так:
Echo.>"%Date:~8,2%-%Date:~3,2%-%Date:~0,2%_%Time:~0,2%-%Time:~3,2%-%Time:~6,2%.txt" |
|
| Back to top |
|
 |
Bubek
Joined: 21 Jul 2007
Posts: 20
|
| (Separately) Posted: Mon Aug 24, 2009 10:26 Post subject: |
|
|
Tol!k
А как сделать чтобы по нажатию этой кнопки запускался не EmEditor, а блокнот (все-таки EmEditor не на всех компах есть)? |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Mon Aug 24, 2009 12:12 Post subject: |
|
|
| Bubek wrote: | | EmEditor не на всех компах есть |
Если бы ещё блокнот умел то, что умеет EmEditor 
В этой кнопке используется GetClip
| Code: | TOTALCMD#BAR#DATA
%comspec% /c
for /f "tokens=1,2,3,4,5,6,7 delims=:,. " %%a in ('echo %%date%% %%time%%') do GetClip>%%c-%%b-%%a_%%d-%%e-%%f.txt&&start %%c-%%b-%%a_%%d-%%e-%%f.txt
C:\WINDOWS\system32\shell32.dll,75
Создать дата_время.txt с содержимым буфера обмена и открыть
1
-1 |
|
|
| Back to top |
|
|
Bubek
Joined: 21 Jul 2007
Posts: 20
|
| (Separately) Posted: Mon Aug 24, 2009 12:54 Post subject: |
|
|
Tol!k
Спасибо, у меня просто блокнот заменен на Akelpad. Файл создает, но не открывает. |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Fri Jun 24, 2011 13:54 Post subject: пояснение скрипта |
|
|
Здравствуйте - на странице 1 Volniy привел пример скрипта
| Code: | Dim fso, F
Set fso = CreateObject("scripting.filesystemobject")
F = WScript.Arguments(0)
Set F=fso.OpenTextFile(F, 2, True)
F.WriteLine("<html>")
F.WriteLine("<head>")
F.WriteLine("<title>Untitled</title>")
F.WriteLine("</head>")
F.WriteLine("<body>")
F.WriteBlankLines(1)
F.WriteLine("Hello World!")
F.WriteBlankLines(1)
F.WriteLine("</body>")
F.WriteLine("</html>")
Set F=Nothing
Set fso=Nothing
WScript.Quit |
создающего html файл
пытался изменить скрипт для создания html файла содержанием типа
| Code: | Dim fso, F
Set fso = CreateObject("scripting.filesystemobject")
F = WScript.Arguments(0)
Set F=fso.OpenTextFile(F, 2, True)
F.WriteLine("<html>")
F.WriteLine("<head>")
F.WriteLine("<META HTTP-EQUIV="Refresh" CONTENT="0; URL=spravka.chm">")
F.WriteLine("<title>open file</title>")
F.WriteLine("</head>")
F.WriteLine("</html>")
Set F=Nothing
Set fso=Nothing
WScript.Quit |
выскакивает ошибка- строка 13 символ 33 предпологается наличие объекта')' - что нужно исправить? Заранее благодарен. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Jun 24, 2011 14:12 Post subject: |
|
|
| shveicar wrote: | | строка 13 |
На 13 выход. Там не на что жаловаться. Вот на 7-й:
| Quote: | | F.WriteLine("<META HTTP-EQUIV=""Refresh"" CONTENT=""0; URL=spravka.chm"">") |
|
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Fri Jun 24, 2011 14:27 Post subject: |
|
|
| Спасибо! Я в скриптах не силен, только начинаю осваивать, как я понял, там где в теге есть кавычки - в скрипте они должны удваиваться? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Jun 24, 2011 14:34 Post subject: |
|
|
("""текст""" & переменная & """текст""текст""текст""" & переменная & """") =
"текст"текст переменной"текст"текст"текст"текст переменной"
Last edited by Flasher on Fri Jun 24, 2011 15:02; edited 2 times in total |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Fri Jun 24, 2011 14:40 Post subject: |
|
|
| Еще раз спасибо! Буду осваивать. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Jun 24, 2011 15:02 Post subject: |
|
|
| Забыл символы слияния указать, поправил. |
|
| Back to top |
|
|
Bubek
Joined: 21 Jul 2007
Posts: 20
|
| (Separately) Posted: Fri Feb 10, 2012 12:38 Post subject: |
|
|
Подскажите, пользовался вот этой кнопкой
Вместо emeditor у меня Akepad, месяца три кнопка перестала работать как нужно, т.е. файл создает, а вот из буфера обмена текст в него не помещает, что нужно подправить?
| ! | Avada: | | Замечание за оверквотинг. Если дана ссылка, зачем ещё код кнопки? Избыточная информация удалена. | |
|
| Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009
Posts: 664
|
| (Separately) Posted: Sun Feb 12, 2012 20:40 Post subject: |
|
|
Bubek
Вы, говоря дипломатично, вводите в заблуждение форумчан своим вопросом. Кнопка, на которую Вы ссылаетесь, никогда не работала правильно с AkelPad'ом. Дело в том, что код кнопки ничего не делает с буфером обмена. Вероятно, за копирование из буфера отвечает ключ комстроки /i (не уверен, emEditor не использую), но к Акелу он не имеет никакого отношения. Попробуйте поэкспериментировать с ключом /Command(4155). Кроме того, Акел позволяет молча создавать несуществующий файл при использовании ключа /C+ (т.е. файл в коде кнопки можно не создавать, а сразу передавать сформированное имя редактору). Можно и вовсе не создавать никакого файла, а вставлять содержимое буфера в новую вкладку. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
|
| Back to top |
|
|
Bubek
Joined: 21 Jul 2007
Posts: 20
|
| (Separately) Posted: Mon Feb 13, 2012 00:12 Post subject: |
|
|
Serge Yolkin
Спасибо, после нескольких попыток была добавлена в конец параметров команда /Command(4155) - все работает.
P.s. Извините что ввел Вас в заблуждение. |
|
| Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009
Posts: 664
|
| (Separately) Posted: Mon Feb 13, 2012 00:56 Post subject: |
|
|
[off]
По мотивам последних постов поэкспериментировал сам, правда на JS. Но комстроку можно выдернуть куда угодно.
1. Создать в Акеле файл с датой в имени и содежимым из буфера: | Code: | var t=new Date(),u='';
u=q(t.getFullYear())+' '+q(t.getMonth()+1)+' '+q(t.getDate())+' '+q(t.getHours())+' '+q(t.getMinutes())+' '+q(t.getSeconds());
new ActiveXObject('WScript.Shell').Exec('%COMMANDER_PATH%\\AkelPad\\AkelPad.exe /C+ '+u+'.txt/Command(4155)/Command(4196)/Command(4196)');
function q(e){return(('0'+e).substring((''+e).length-1));}
|
2. Создать в Акеле (если он уже открыт) новую вкладку (если не открыт - просто открыть) и вставить содержимое буфера: | Code: | new ActiveXObject('WScript.Shell').Exec('%COMMANDER_PATH%\\AkelPad\\AkelPad.exe /Call("Templates::Open",1,"")/Command(4155)/Command(4196)/Command(4174)'); |
Если не используется плагин Templates можно заменить Call... на Command(4101) (при использовании плагина такой ключ покажет диалог выбора шаблона, что я посчитал неудобным)
[/off]
Last edited by Serge Yolkin on Mon Feb 13, 2012 01:17; edited 3 times in total |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
