aLexx
|
 Posted: Sat Jun 23, 2007 13:24 Post subject: |
 |
|
Вот исправленный и дополненный скрипт:
| Code: |
' File: FindText.vbs
' Description: Поиск файлов, содержащих текст из буфера обмена
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели TC
' Copyright: (c) 2007, Volniy, aLexx
Option Explicit
Dim TCS, regEx, Clip
Set TCS = CreateObject("TCSCRIPT.Helper")
Set regEx = New RegExp
regEx.Pattern = "(\+|\(|\)|\^|%|~|\[|\]|\{|\})"
regEx.Global = True
regEx.IgnoreCase = True
Clip = TCS.GetTextFromClip
TCS.SendCommand("cm_SearchFor")
TCS.SendKeystroke "{DELETE}" 'Очищаем строку "Что искать"
TCS.SendKeystroke "{TAB 7}" 'Переход на чек-бокс "С текстом"
TCS.SendKeystroke chr(32) 'Включаем его
TCS.SendKeystroke (regEx.Replace(Clip, "{$1}")) 'Типа вносим текст из буфера обмена
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
Set regEx = Nothing
WScript.Quit
|
Дополнены исправления для круглых скобок. Замечание про поиск в архивах остаётся в силе. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
