Страница 4 из 8
Добавлено: Чт июл 14, 2011 00:06
Вахмурка
Добавлено: Чт июл 14, 2011 00:25
Flasher
HEXFIX
Тут в строке
вместо
2 написать
WScript.Arguments(0)
В параметрах задавать свой шаг.
В общем, прилизал:
Код: Выделить всё
' Выделить элементы списка с заданным шагом
' Необходима регистрация 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
Добавлено: Чт июл 14, 2011 17:43
HEXFIX
Flasher
В который раз выручаешь. Спасибо, всё работает. Только одно "но". После того как скрипт сработал вылетает вот такое окошечко.
Добавлено: Чт июл 14, 2011 19:37
Flasher
HEXFIX
Это может быть, если в предпоследней строке убрать точку спереди.
Добавлено: Чт июл 14, 2011 20:40
HEXFIX
Точка стоит.
Метод copy-paste же.
Добавлено: Чт июл 14, 2011 21:04
Flasher
Да в общем-то, логично. Надо подумать, почему у тебя с этим проблема. Можно, конечно, эту строку удалить вместе с T = .GetTextFromClip, но тогда текущий буфер теряется.
Добавлено: Чт июл 14, 2011 21:36
HEXFIX
Да в общем-то не критично. Просто у меня срабатывает рефлекс "Ошибка!"
Добавлено: Чт июл 14, 2011 22:00
Flasher
Не критично что? Потеря буфера или появление ошибки?
Добавлено: Чт июл 14, 2011 22:09
HEXFIX
Появление ошибки. Скрипт работает ведь. Но, конечно же, хотелось бы от неё избавиться.
Добавлено: Чт июл 14, 2011 22:13
Flasher
А попробуй заключить T в скобки: .SetTextToClip(T)
Добавлено: Чт июл 14, 2011 22:31
HEXFIX
Bingo!
Добавлено: Чт июл 14, 2011 22:35
Flasher
Хорошо. Назови версию Хелпера на вcякий случай. У меня beta 12.
Добавлено: Чт июл 14, 2011 22:53
HEXFIX
Beta 10
Добавлено: Чт июл 14, 2011 22:56
Flasher
Возможно, в этом и причина. Рекомендую
обновиться. Там есть важное изменение, касаемое буфера.
Добавлено: Ср июл 27, 2011 17:36
shveicar
Добрый день Подскажите, можно ли заставить данный скрипт
Выделить элементы списка с заданным шагом
выделять файлы или папки с определенным количеством символов в имени. И добавить бы в него, окно с вводом параметров: режим выделения, шаг, число символов. (параметр - начальная позиция, мне не совсем понятен) -Цены бы-ему не было. Спасибо.
P.s Ксати - в оригинале этот скрипт, у меня, почему то не работает.
