| View previous topic :: View next topic |
| Author |
Message |
Вахмурка
Joined: 27 Dec 2004
Posts: 2586
Location: Большая деревня Москва
|
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
 (Separately) Posted: Thu Jul 14, 2011 00:25 Post subject: |
 |
|
HEXFIX
Тут в строке
| Code: | If Cnt Mod 2 = 1 Then |
вместо 2 написать WScript.Arguments(0)
В параметрах задавать свой шаг.
В общем, прилизал:
| Code: | ' Выделить элементы списка с заданным шагом
' Необходима регистрация Script Helper ActiveX for TC
' Параметры: <режим выделения> <шаг> <начальная позиция>
' Режим выделения: 1 - всё; 2 - только файлы; 3 - только папки
' Начальная позиция: 1/2 - первый/второй элемент
' Пример: 2 5 1
'==============================================
With CreateObject("TCScript.Helper")
T = .GetTextFromClip
.LockTC True
.SendCommand 330&WScript.Arguments(0)
.SendCommand 2017, True
.SendCommand 524
List = Split(.GetTextFromClip,vbNewLine)
If UBound(List) >= Abs(WScript.Arguments(1)) Then
For Cnt=0 To UBound(List)
If Cnt Mod WScript.Arguments(1) = WScript.Arguments(2)-1 Then
Buf = Buf & List(Cnt) & vbNewLine
End If
Next
.SetTextToClip CStr(Buf)
.LockTC False
.SendCommand 2033, True
End If
.SetTextToClip T
End With |
|
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Thu Jul 14, 2011 17:43 Post subject: |
|
|
Flasher
В который раз выручаешь. Спасибо, всё работает. Только одно "но". После того как скрипт сработал вылетает вот такое окошечко.
 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 14, 2011 19:37 Post subject: |
|
|
HEXFIX
Это может быть, если в предпоследней строке убрать точку спереди. |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Thu Jul 14, 2011 20:40 Post subject: |
|
|
Точка стоит.  Метод copy-paste же. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 14, 2011 21:04 Post subject: |
|
|
| Да в общем-то, логично. Надо подумать, почему у тебя с этим проблема. Можно, конечно, эту строку удалить вместе с T = .GetTextFromClip, но тогда текущий буфер теряется. |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Thu Jul 14, 2011 21:36 Post subject: |
|
|
Да в общем-то не критично. Просто у меня срабатывает рефлекс "Ошибка!"
 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 14, 2011 22:00 Post subject: |
|
|
| Не критично что? Потеря буфера или появление ошибки? |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Thu Jul 14, 2011 22:09 Post subject: |
|
|
| Появление ошибки. Скрипт работает ведь. Но, конечно же, хотелось бы от неё избавиться. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 14, 2011 22:13 Post subject: |
|
|
| А попробуй заключить T в скобки: .SetTextToClip(T) |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Thu Jul 14, 2011 22:31 Post subject: |
|
|
Bingo!
 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 14, 2011 22:35 Post subject: |
|
|
| Хорошо. Назови версию Хелпера на вcякий случай. У меня beta 12. |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Thu Jul 14, 2011 22:53 Post subject: |
|
|
| Beta 10 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jul 14, 2011 22:56 Post subject: |
|
|
| Возможно, в этом и причина. Рекомендую обновиться. Там есть важное изменение, касаемое буфера. |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Wed Jul 27, 2011 17:36 Post subject: |
|
|
Добрый день Подскажите, можно ли заставить данный скрипт | Quote: | | Выделить элементы списка с заданным шагом |
выделять файлы или папки с определенным количеством символов в имени. И добавить бы в него, окно с вводом параметров: режим выделения, шаг, число символов. (параметр - начальная позиция, мне не совсем понятен) -Цены бы-ему не было. Спасибо.
P.s Ксати - в оригинале этот скрипт, у меня, почему то не работает. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
