Выделение дубликатов

[Вахмурка]

Похоже, что и нет. Тупой поиск позволил выделить нечто похожее, покопайся, если есть нужда:
http://ghisler.ch/board/viewtopic.php?t=18609
http://forum.wincmd.ru/viewtopic.php?t=5341
http://forum.wincmd.ru/viewtopic.php?p=42961
http://forum.wincmd.ru/viewtopic.php?p=44951
http://forum.wincmd.ru/viewtopic.php?t=12287

[Flasher]

HEXFIX
Тут в строке

Код: Выделить всё

    If Cnt Mod 2 = 1 Then

вместо 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

[HEXFIX]

Flasher
В который раз выручаешь. Спасибо, всё работает. Только одно "но". После того как скрипт сработал вылетает вот такое окошечко.

[Flasher]

HEXFIX
Это может быть, если в предпоследней строке убрать точку спереди.

[HEXFIX]

Точка стоит. Метод copy-paste же.

[Flasher]

Да в общем-то, логично. Надо подумать, почему у тебя с этим проблема. Можно, конечно, эту строку удалить вместе с T = .GetTextFromClip, но тогда текущий буфер теряется.

[HEXFIX]

Да в общем-то не критично. Просто у меня срабатывает рефлекс "Ошибка!"

[Flasher]

Не критично что? Потеря буфера или появление ошибки?

[HEXFIX]

Появление ошибки. Скрипт работает ведь. Но, конечно же, хотелось бы от неё избавиться.

[Flasher]

А попробуй заключить T в скобки: .SetTextToClip(T)

[HEXFIX]

Bingo!

[Flasher]

Хорошо. Назови версию Хелпера на вcякий случай. У меня beta 12.

[HEXFIX]

Beta 10

[Flasher]

Возможно, в этом и причина. Рекомендую обновиться. Там есть важное изменение, касаемое буфера.

[shveicar]

Добрый день Подскажите, можно ли заставить данный скрипт

Выделить элементы списка с заданным шагом

выделять файлы или папки с определенным количеством символов в имени. И добавить бы в него, окно с вводом параметров: режим выделения, шаг, число символов. (параметр - начальная позиция, мне не совсем понятен) -Цены бы-ему не было. Спасибо.
P.s Ксати - в оригинале этот скрипт, у меня, почему то не работает.