aLexx
|
 Posted: Sat Jun 23, 2007 05:34 Post subject: Поиск файлов, содержащих текст |
 |
|
Есть у меня на панели кнопка, кот. осуществляет поиск файлов, содержащих определённый текст.
Этот текст предварительно занесён в буфер. Кнопка вызывает этот скрипт:
| Code: |
'File: FindText.vbs
'Description: Поиск файлов, содержащих текст из буфера обмена
'Requirements: WSH Helper for TC by Volniy
'Installation: Создайте для скрипта, например, кнопку на панели TC
'Copyright: (c) 2007, aLexx
Option Explicit
Dim TCS, Clip
Set TCS = CreateObject("TCSCRIPT.Helper")
Clip = TCS.GetTextFromClip
TCS.SendCommand("cm_SearchFor")
TCS.SendKeystroke "{DELETE}" 'Очищаем строку "Что искать"
TCS.SendKeystroke "{TAB 7}" 'Переход на чек-бокс "С текстом"
TCS.SendKeystroke chr(32) 'Включаем его
TCS.SendKeystroke (Clip) 'Вносим текст из буфера обмена
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
|
Но! В ТС7.00 и ТС7.01 заметил неприятную особенность - при вставке текста из буфера теряются некоторые
символы, например +,(,). Замена строки"TCS.SendKeystroke chr(32)" на "TCS.SendKeystroke "{^v}"" (CTRL+v -
вставить из буфера) ничего не даёт. В файле "SendKeystroke.txt" написано, что символы +, ( и ) имеют спец.
назначение. Но причём тут вставка из буфера! Тов. Volniy, что скажем? 
Кстати, если врукопашную нажать CTRL+v, то всё ОК. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
