Flasher
|
 Posted: Sun Dec 02, 2012 22:15 Post subject: |
 |
|
Как угодно. Поменять | Code: | With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0) : Before = .Item(1) : Middle = .Item(2) : After = .Item(3)
End With : L = vbNewLine |
на | Code: | With WScript.Arguments
If .Count = 0 Then WScript.Quit
List = .Item(0)
End With : L = vbNewLine
IBox Before, "начальную", L : IBox Middle, "заменяемую", L : IBox After, "завершающую", L
Sub IBox(Name, NStr, NL)
Name = InputBox(NL&NL&NL&NL&"Введите " & NStr & " искомую часть строки:",_
"Замена текста в строках выбр. файлов на основе RegExp")
If Trim(Name) = "" Then Wscript.Quit
End Sub |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sun Dec 02, 2012 23:06; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
