Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скрипт VDS для редактирования файлов

Ответить
Настройки темы
VBS/WSH/JS - Скрипт VDS для редактирования файлов

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Добрый вечер всем. Возникла нужда в VDS скрипте, но данных знаний нету, да и поисковые системы нужного результата не дали(( потому обращаюсь к вам

имеется папка с файлами NC (по идее тот же текст файл) - 1.найти в папке все NC файлы
2.найти строчки в файлaх Pressorting1); (таких несколько идёт цикл до 20)
3. ну это уже как легче по скрипту сделать, нужно в следующей строчке написать f5000

Думаю для знатоков это не составит труда за ранее благодарю за любую помощь

Отправлено: 23:39, 21-03-2015

 

Новый участник


Сообщения: 23
Благодарности: 6

Профиль | Отправить PM | Цитировать


Цитата mar4ello24:
... Возникла нужда в VDS скрипте ...»
Имеется в виду VBS?
Цитата mar4ello24:
... найти в папке все NC файлы ...»
Расширение файлов .nc?
Цитата:
найти строчки в файлaх Pressorting1); ...
Из-за смайлов непонятно что за текст? имеется в виду
Код: Выделить весь код
Pressorting:(1);
?

Отправлено: 16:13, 22-03-2015 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


да vbs ,
HTML код: Выделить весь код
Pressorting:(1);


Отправлено: 16:20, 22-03-2015 | #3


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


можно даже так, если находит Pressorting то в следушей строке добавляет f5000

Отправлено: 16:52, 22-03-2015 | #4


Новый участник


Сообщения: 23
Благодарности: 6

Профиль | Отправить PM | Цитировать


Цитата mar4ello24:
... папка с файлами NC (по идее тот же текст файл) ...»
Расширение файлов .nc? Кодировка ANSI?

Отправлено: 17:24, 22-03-2015 | #5


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


HTML код: Выделить весь код
Расширение файлов .nc? Кодировка ANSI?

ага


потихоньку сам копаюсь и вникаю в методы может через годик и сам зделаю)

Отправлено: 17:39, 22-03-2015 | #6


Новый участник


Сообщения: 23
Благодарности: 6

Профиль | Отправить 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
Благодарности: 0

Профиль | Отправить PM | Цитировать


просто супер, ты мой спаситель а я мудрил что то через FSO если не трудно подкинь где посмотреть про данный метод

ой и если можно можете плз закомментировать все строчки что бы я понял как происходит обработка файлов, ну типо- открыть/найти/след строчка/добавить/сохранить/закрыть. очень интерестно стало про бейсик

Отправлено: 01:03, 23-03-2015 | #8


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата mar4ello24:
если не трудно подкинь где посмотреть про данный метод »
Shell Objects for Scripting and Microsoft Visual Basic (Windows)
FolderItems3.Filter method (Windows)

Отправлено: 02:12, 23-03-2015 | #9


Новый участник


Сообщения: 23
Благодарности: 6

Профиль | Отправить 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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скрипт VDS для редактирования файлов

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Графика - [решено] Нужна програамма для редактирования файлов с расширением 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




 
Переход