|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скрипт VDS для редактирования файлов |
|
|
VBS/WSH/JS - Скрипт VDS для редактирования файлов
|
Новый участник Сообщения: 6 |
Профиль | Отправить PM | Цитировать Добрый вечер всем. Возникла нужда в VDS скрипте, но данных знаний нету, да и поисковые системы нужного результата не дали(( потому обращаюсь к вам
имеется папка с файлами NC (по идее тот же текст файл) - 1.найти в папке все NC файлы 2.найти строчки в файлaх Pressorting1); (таких несколько идёт цикл до 20) 3. ну это уже как легче по скрипту сделать, нужно в следующей строчке написать f5000 Думаю для знатоков это не составит труда за ранее благодарю за любую помощь |
|
Отправлено: 23:39, 21-03-2015 |
Новый участник Сообщения: 23
|
Профиль | Отправить PM | Цитировать |
Отправлено: 16:13, 22-03-2015 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать |
Отправлено: 16:20, 22-03-2015 | #3 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать можно даже так, если находит Pressorting то в следушей строке добавляет f5000
|
Отправлено: 16:52, 22-03-2015 | #4 |
Новый участник Сообщения: 23
|
Профиль | Отправить PM | Цитировать Цитата mar4ello24:
|
||
Отправлено: 17:24, 22-03-2015 | #5 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать |
Отправлено: 17:39, 22-03-2015 | #6 |
Новый участник Сообщения: 23
|
Профиль | Отправить PM | Цитировать Option Explicit Dim oFolderItems, oFolderItem, sCont Set oFolderItems = CreateObject("Shell.Application").NameSpace("C:\Test\nc\").Items oFolderItems.Filter 64 + 128, "*.nc" For Each oFolderItem In oFolderItems Do With CreateObject("Scripting.FileSystemObject").OpenTextFile(oFolderItem.Path, 1, False) If .AtEndOfStream Then Exit Do sCont = .ReadAll .Close End With With CreateObject("VBScript.RegExp") .Global = True .MultiLine = True .IgnoreCase = True .Pattern = "(Pressorting[\s\S]*?)$" sCont = .Replace(sCont, "$1" & vbCrLf & "f5000") End With With CreateObject("Scripting.FileSystemObject").OpenTextFile(oFolderItem.Path, 2, True) .Write(sCont) .Close End With Loop Until True Next |
Отправлено: 23:02, 22-03-2015 | #7 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать просто супер, ты мой спаситель а я мудрил что то через FSO если не трудно подкинь где посмотреть про данный метод
ой и если можно можете плз закомментировать все строчки что бы я понял как происходит обработка файлов, ну типо- открыть/найти/след строчка/добавить/сохранить/закрыть. очень интерестно стало про бейсик |
Отправлено: 01:03, 23-03-2015 | #8 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата mar4ello24:
FolderItems3.Filter method (Windows) |
|
Отправлено: 02:12, 23-03-2015 | #9 |
Новый участник Сообщения: 23
|
Профиль | Отправить PM | Цитировать mar4ello24, если в двух словах, техническая реализация следующая:
В oFolderItems получаем коллекцию нужных нам файлов с помощью Shell.Application и фильтрации по маске. Каждый из них обрабатываем в цикле For Each ... Next. В первом With ... End With помещаем содержимое файла в переменную sCont с помощью Scripting.FileSystemObject. Во втором With ... End With заменяем все вхождения строки, содержащей искомый текст, на саму себя с присоединением новой строки с текстом, с помощью VBScript.RegExp. В третьем With ... End With помещаем содержимое переменной обратно в файл с помощью Scripting.FileSystemObject. Do ... Loop используется вместо GoTo Описания всех применённых ActiveX с примерами есть по ссылке Объекты Windows Script Host. Собственно, с применением данных (и многих других) ActiveX и раскрываются все возможности WSH, без них скрипты имели бы лишь академический интерес, поэтому мой совет - освоить весь материал по ссылке. |
Последний раз редактировалось omegastripes, 23-03-2015 в 13:18. Отправлено: 10:23, 23-03-2015 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Графика - [решено] Нужна програамма для редактирования файлов с расширением PSD | GIM153 | Программное обеспечение Windows | 4 | 01-03-2012 12:20 | |
Разное - Снятие защиты с файлов Windows XP для редактирования ресурсов | prokazzza | Оформление Windows XP | 32 | 18-12-2011 00:44 | |
Любой язык - нужен скрипт для удаления всех файлов кроме нужных для запуска Windows XP | Dark Ange1 | Скриптовые языки администрирования Windows | 11 | 07-03-2010 13:34 | |
Прочие БД - Бесплатная программа для открытия/редактирования файлов mdb | GreyObr | Программирование и базы данных | 12 | 27-01-2010 15:54 | |
Программы для просмотра/редактирования файлов DBF | black dragon | Программное обеспечение Windows | 2 | 11-03-2008 20:31 |
|