| Single Post |
Topic: Редактирование файлов (вырезать, вставить, массово) |
| Author |
Message |
Flasher
|
 Posted: Thu Jul 21, 2011 20:41 Post subject: |
 |
|
Если не ошибаюсь, заменить | Code: | With WScript
Str1 = .Arguments(0)
Str2 = .Arguments(1)
Mode = .Arguments(2)
FF = .Arguments(3)
If .Arguments.Count > 4 Then FZ = .Arguments(4)
End With |
на | Code: | Str1 = InputBox("Введите искомую строку:", "Замена текста в файлах с помощью шаблонов")
With WScript
Str2 = .Arguments(0)
Mode = .Arguments(1)
FF = .Arguments(2)
If .Arguments.Count > 3 Then FZ = .Arguments(3)
End With |
В параметрах не использовать первый исходный.
Last edited by Flasher on Thu Jul 21, 2011 23:04; edited 2 times in total |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
