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

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Возможно ли ускорить данный скрипт ?

Ответить
Настройки темы
CMD/BAT - [решено] Возможно ли ускорить данный скрипт ?

Старожил


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

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


Изменения
Автор: dark-------13
Дата: 18-03-2013
Здравствуйте,
Подскажите пожалуйста, можно ли ускорить данный скрипт ?

Код: Выделить весь код
@Echo Off Set infile=obr.xml Set find=^^^<signature^^^> Set replace=^^^<img src="data:image/png;base64, Set find2=^^^</signature^^^> Set replace2=" /^^^> Set find3=^^^<portrait^^^> Set replace3=^^^<img src="data:image/png;base64, Set find4=^^^</portrait^^^> Set replace4=" /^^^>  setlocal enabledelayedexpansion for /F "tokens=* usebackq" %%n in ("!infile!") do ( 	set LINE=%%n 	set LINE=!LINE:%find%=%replace%! 	set LINE=!LINE:%find2%=%replace2%! 	set LINE=!LINE:%find3%=%replace3%! 	set LINE=!LINE:%find4%=%replace4%! 	>>"5.txt" echo !LINE! )

Отправлено: 15:02, 18-03-2013

 

Аватара для gora

Ушёл из жизни


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

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


Цитата dark-------13:
можно ли ускорить данный скрипт ? »
На cmd, вряд ли. Попробуйте на vbs:
Код: Выделить весь код
Set FSO = CreateObject("Scripting.FileSystemObject")
infile = "obr.xml"
outfile = "5.txt"
find1 = "<signature>"
replace1 = "<img src=""data:image/png;base64,"
find2 = "</signature>"
replace2 = """ />"
find3 = "<portrait>"
replace3 = "<img src=""data:image/png;base64,"
find4 = "</portrait>"
replace4 = """ />"

strt = Now

Set rd_file = FSO.OpenTextFile(infile, 1,, -2)
Buffer = rd_file.ReadAll
rd_file.Close
size1 = Len(Buffer)

Buffer = Replace(CStr(Buffer), find1, replace1, 1, -1, 1)
Buffer = Replace(CStr(Buffer), find2, replace2, 1, -1, 1)
Buffer = Replace(CStr(Buffer), find3, replace3, 1, -1, 1)
Buffer = Replace(CStr(Buffer), find4, replace4, 1, -1, 1)

Set wr_file = FSO.OpenTextFile(outfile, 2, True)
wr_file.Write Buffer
wr_file.Close
size2 = Len(Buffer)

fnsh = Now

MsgBox "Размер файла до -		" & size1 & vbCr _
	& "Размер файла после -	" & size2 & vbCr _
	& "Время работы -		" & DateDiff("s",strt,fnsh) & " с", 64, "Замены произведены"
WScript.Quit
Файл в 3МБ у меня обрабатывает ~ 1с.
Это сообщение посчитали полезным следующие участники:

Отправлено: 09:43, 19-03-2013 | #2



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

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


Старожил


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

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


Спасибо большое уважаемый Gora, в очередной раз выручаете меня!

Отправлено: 13:04, 19-03-2013 | #3


Аватара для apozlevich

Ветеран


Автор проектов


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

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


Оптимизировать bat, оптимизировать vbs... Если хотите скорость - пишите на C.

-------
echo 127.0.0.1 google.ru >> %systemroot%\system32\drivers\etc\hosts && ipconfig /flushdns && echo Я ничего не трогал, оно само!


Отправлено: 10:56, 20-03-2013 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Возможно ли ускорить данный скрипт ?

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочее - Ускорить интернет возможно ли? Ramzes505 Хочу все знать 26 13-09-2009 11:17
Загрузка - Возможно ли ускорить закачку W7 с сайта Microsoft firedevil Microsoft Windows 7 10 20-01-2009 18:58
NVIDIA GeForce 8400M G возможно ли как нибудь програмно ускорить работу?? Dimon.bma Видеокарты 6 08-12-2008 23:01
[решено] Существует ли возможность ускорить процесс? stalingrad432006 Видео и аудио: обработка и кодирование 20 20-05-2008 20:58
можно ли как нибудь ускорить загрузку Windows 2000? alibaster Microsoft Windows NT/2000/2003 7 08-07-2005 12:56




 
Переход