|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Возможно ли ускорить данный скрипт ? |
|
CMD/BAT - [решено] Возможно ли ускорить данный скрипт ?
|
Старожил Сообщения: 169 |
Здравствуйте,
Подскажите пожалуйста, можно ли ускорить данный скрипт ? @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 |
Ушёл из жизни Сообщения: 6021
|
Профиль | Отправить PM | Цитировать Цитата dark-------13:
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 |
|
Отправлено: 09:43, 19-03-2013 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 169
|
Профиль | Отправить PM | Цитировать Спасибо большое уважаемый Gora, в очередной раз выручаете меня!
|
Отправлено: 13:04, 19-03-2013 | #3 |
Ветеран Сообщения: 1025
|
Профиль | Отправить PM | Цитировать Оптимизировать bat, оптимизировать vbs... Если хотите скорость - пишите на C.
|
------- Отправлено: 10:56, 20-03-2013 | #4 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Прочее - Ускорить интернет возможно ли? | 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 |
|