Batya
|
Posted: Tue Sep 26, 2006 11:30 Post subject: |
|
|
Накидал тут небольшой vbs-скриптик. Только я совсем не разбираюсь в регулярных выражениях. Кто разбирается, тот пусть правит скрипт под себя.
Code: | '===========================================================================
' Обработка буфера обмена регулярными выражениями
'===========================================================================
Option Explicit
Dim TCS, Clip, REx, Arr, A, i
Set TCS = CreateObject("TCScript.Helper")
Set REx = New RegExp
Clip = TCS.GetTextFromClip
Arr = Split(Clip, vbNewLine, -1, 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 |
Для работы скрипта нужен ScriptHelper.
Скрипт обрабатывает буфер обмена (там уже лежат пути) и меняет его по заданным в скрипте условиям.
Кстати, без применения скриптов можно использовать любой текстовый редактор, поддерживающий замену регулярными выражениями. Так что, уж "ручками" совсем не за чем исправлять. |
|