Slide
|
 Posted: Tue Sep 26, 2006 16:22 Post subject: |
 |
|
Batya, спасибо еще раз.
Я его по другому победил. Добавил команду возврата массива имен выделенных файлов из скрипта "GetSrcSelectedFiles( -1)", и привязал на кнопку.
| Code: | '===========================================================================
' Обработка буфера обмена регулярными выражениями
'===========================================================================
Option Explicit
Dim TCS, Clip, REx, Arr, A, i
Set TCS = CreateObject("TCScript.Helper")
Set REx = New RegExp
' Получаем список выделенных файлов
Arr = TCS.GetSrcSelectedFiles( -1)
i = 0
For Each A In Arr
REx.Pattern = "(ftp://)"
A = REx.Replace(A, "http://dir2.")
REx.Pattern = "(\.ru/)"
A = REx.Replace(A, ".ru/mydir/")
Arr(i) = A
i = i + 1
Next
Clip = Join(Arr, vbNewLine)
'MsgBox(Clip)
TCS.SetTextToClip(Clip)
Set TCS = Nothing
WScript.Quit |
Все раборает как часы. А я столько мучился. Большой респект! |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
