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

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

Ответить
Настройки темы
VBS/WSH/JS - Прошу помощи в VBS

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


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

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


Добрый день!

Граждане гуру-форумчане!
Очень нужен скрипт на VBS, который бы искал в файле (txt, config, log) строку по маске и заменял её на другую(указанную в скрипте).
Очень-очень нужен...

Отправлено: 11:41, 05-06-2013

 

Ветеран


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

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


1. Кодировка файлов и их максимально возможный размер.
2. Примеры масок.

Отправлено: 13:10, 05-06-2013 | #2



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

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


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


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

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


Цитата Iska:
1. Кодировка файлов и их максимально возможный размер.
2. Примеры масок. »
1. Размер не большой - до 1-2 мб
2. Пример маски - (начало строки, возможно несколько пробелов)<искомое слово>(остальная часть строки - символы,буквы)
3. Кодировка - ANSI

Отправлено: 22:07, 05-06-2013 | #3


Ветеран


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

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


Destany, например, так:
читать дальше »
Код: Выделить весь код
Option Explicit

Const ForReading   = 1
Const ForWriting   = 2


Dim strPath
Dim strReplaceWith

Dim objRegExp

Dim strContent


If WScript.Arguments.Count = 3 Then
	strPath        = WScript.Arguments.Item(0)
	strReplaceWith = WScript.Arguments.Item(2)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strPath) Then
			Set objRegExp = WScript.CreateObject("VBScript.RegExp")
			
			objRegExp.Pattern = WScript.Arguments.Item(1)
			objRegExp.Global  = True
			
			With .OpenTextFile(strPath, ForReading)
				strContent = .ReadAll()
				.Close
			End With
			
			Do While objRegExp.Test(strContent)
				strContent = objRegExp.Replace(strContent, strReplaceWith)
			Loop
			
			With .OpenTextFile(strPath, ForWriting)
				.Write strContent
				.Close
			End With
		Else
			WScript.Echo "Can't find file [" & strPath & "]."
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <file> <Pattern> <Replace with>"
End If

WScript.Quit 0

Пример текстового файла E:\Песочница\0269\0001.txt:
Код: Выделить весь код
Мама мыла раму.

Рабы не мы,
Мы не рабы.
Пример вызова скрипта:
Код: Выделить весь код
cscript.exe //nologo "0001.vbs" "E:\Песочница\0269\0001.txt" "(.*[^Мм])а(.*)" "$1ы$2"
Результат:
Код: Выделить весь код
Мама мылы рыму.

Рыбы не мы,
Мы не рыбы.

Отправлено: 13:20, 06-06-2013 | #4



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прошу помощи... Владимир_Небылица@vk Лечение систем от вредоносных программ 8 05-03-2012 13:27
Прочее - прошу помощи kiruhaN1 Сетевые технологии 4 05-10-2011 12:12
Прошу помощи dazzi Выбор отдельных компонентов компьютера и конфигурации в целом 5 30-04-2011 22:05
прошу помощи... dim4 Хочу все знать 8 25-06-2010 15:26
Прошу о помощи!!! Gor2 Хочу все знать 7 15-11-2002 22:07




 
Переход