Что нового

[Данные, строки] Генерация скрипта из файла.

lodger

Новичок
Сообщения
5
Репутация
0
Версия AutoIt: 3.3.8.1

Описание: Скрипт читает следующие данные из файла upd.txt (имя файла из ссылки, дату и описание) и генерирует два bat файла (32.bat и 64.bat) основываясь на тегах ([32], [64], [32 / 64])

Примечания:
файл (upd.txt) с входными данными имеет следующий вид:
Код:
[color=#FF0000][b]Список 1[/b][/color]

[b]01 -[url=http://download.microsoft.com/download/6/F/C/6FC4B3F3-1103-452F-929D-A9FCABF1AD2B/Windows8.1-KB2883200-x86.msu][32] [/url] [url=http://download.microsoft.com/download/A/A/E/AAE643D5-8B3C-4B64-AC39-B4DD304C2B13/Windows8.1-KB2883200-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2883200/]KB[/url]2883200  16.10.13[/b]  Обновление для Windows 8.1  (Входит в [color=#FF3300]ROLLUP-1[/color])
[b]02 -[url=http://download.microsoft.com/download/6/F/C/6FC4B3F3-1103-452F-929D-A9FCABF1AD2B/Windows8.1-KB2894029-x86.msu][32] [/url] [url=http://download.microsoft.com/download/A/A/E/AAE643D5-8B3C-4B64-AC39-B4DD304C2B13/Windows8.1-KB2894029-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2883200/]KB[/url]2894029  16.10.13[/b]  Обновление для Windows 8.1  (Входит в [color=#FF3300]ROLLUP-1[/color])
[b]03 -[url=http://download.microsoft.com/download/6/F/C/6FC4B3F3-1103-452F-929D-A9FCABF1AD2B/Windows8.1-KB2894179-x86.msu][32] [/url] [url=http://download.microsoft.com/download/A/A/E/AAE643D5-8B3C-4B64-AC39-B4DD304C2B13/Windows8.1-KB2894179-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2883200/]KB[/url]2894179  16.10.13[/b]  Обновление для Windows 8.1  (Входит в [color=#FF3300]ROLLUP-1[/color])
[b]04 -[url=http://download.microsoft.com/download/D/F/F/DFFAED96-2A41-4FFC-BE33-287311D7CFB6/Windows8.1-KB2859675-x86.msu][32] [/url] [url=http://download.microsoft.com/download/5/7/C/57C8D094-A659-4F3B-9974-EA3E0F60191C/Windows8.1-KB2859675-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2859675/]KB[/url]2859675  24.09.13[/b]  Обновление Microsoft Camera Codec Pack
[b]05 -[url=http://download.microsoft.com/download/9/5/4/95458EF9-9839-469E-BC20-63E1E301FFD1/Windows8.1-KB2884846-x86.msu][32] [/url] [url=http://download.microsoft.com/download/A/8/4/A841280A-B435-44F3-8012-3372A1FCC963/Windows8.1-KB2884846-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2884846/]KB[/url]2884846  16.10.13[/b]  Обновление для Windows 8.1  (Rollup-обновление)
[b]06 -[url=http://download.microsoft.com/download/9/5/4/95458EF9-9839-469E-BC20-63E1E301FFD1/Windows8.1-KB2898742-x86.msu][32] [/url] [url=http://download.microsoft.com/download/A/8/4/A841280A-B435-44F3-8012-3372A1FCC963/Windows8.1-KB2898742-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2884846/]KB[/url]2898742  16.10.13[/b]  Обновление для Windows 8.1  (входит в Rollup-группу KB2884846)
[b]07 -[url=http://download.microsoft.com/download/B/1/0/B1022F9B-9F68-439A-9F76-1E9396E952B0/Windows8.1-KB2902892-x86.msu][32] [/url] [url=http://download.microsoft.com/download/1/1/0/110D0B58-B843-419F-8E2E-C7B67AB71872/Windows8.1-KB2902892-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2902892/]KB[/url]2902892  28.10.13[/b]  Обновление для Windows 8.1
[b]08 -[url=http://download.microsoft.com/download/A/C/9/AC90B7C6-2787-4D97-8A54-B9A1F8C69F81/Windows8.1-KB917607-x86.msu][32] [/url] [url=http://download.microsoft.com/download/A/C/9/AC90B7C6-2787-4D97-8A54-B9A1F8C69F81/Windows8.1-KB917607-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/917607/]KB[/url]917607    05.11.13[/b]  Программа "Справка Windows" (WinHlp32.exe) для Windows 8.1
[b]09 -[url=http://download.microsoft.com/download/0/8/5/085EADCB-55DD-4EBD-8CF8-C8922A804F70/Windows8.1-KB2898108-x86.msu][32] [/url] [url=http://download.microsoft.com/download/1/0/3/10380116-27E9-4596-AB69-2AA2F0D9B195/Windows8.1-KB2898108-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2898108/]KB[/url]2898108  11.11.13[/b]  Обновление для проигрывателя Flash Player в Internet Explorer 11
[b]10 -[url=http://download.microsoft.com/download/1/C/1/1C17441C-2202-4288-B706-6445A8B95912/Windows8.1-KB2888505-x86.msu][32] [/url] [url=http://download.microsoft.com/download/9/9/C/99C788DE-BC11-4DB0-949D-BA04DB5E8800/Windows8.1-KB2888505-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2888505/]KB[/url]2888505  11.11.13[/b]  Накопительное обновление системы безопасности для IE11
[b]11 -[url=http://download.microsoft.com/download/8/F/A/8FA69402-2041-453D-87DD-2C7AA095923E/Windows8.1-KB2900986-x86.msu][32] [/url] [url=http://download.microsoft.com/download/9/E/F/9EF1FCCB-D148-4A7F-AF8E-A8BD5A7A1AD9/Windows8.1-KB2900986-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2900986/]KB[/url]2900986  11.11.13[/b]  Обновление системы безопасности для ActiveX Killbits
[b]12 -[url=http://download.microsoft.com/download/7/B/1/7B158221-E9BC-4CD2-8CFF-1677E5DE952E/Windows8.1-KB2862152-x86.msu][32] [/url] [url=http://download.microsoft.com/download/5/1/E/51E532ED-A0F7-45FA-A60D-2CE5B50E3A7E/Windows8.1-KB2862152-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2862152/]KB[/url]2862152  11.11.13[/b]  Обновление для системы безопасности Windows 8.1
[b]13 -[url=http://download.microsoft.com/download/6/3/1/631DBB80-DA1E-4AAB-AE00-FB253980657F/Windows8.1-KB2868626-x86.msu][32] [/url] [url=http://download.microsoft.com/download/6/8/B/68BA84FA-7BD8-4B24-B780-9CA545EE5BF1/Windows8.1-KB2868626-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2868626/]KB[/url]2868626  11.11.13[/b]  Обновление для системы безопасности Windows 8.1
[b]14 -[url=http://download.microsoft.com/download/2/F/1/2F1FD358-2B2C-479D-922B-CBAC2411CADC/Windows8.1-KB2876331-x86.msu][32] [/url] [url=http://download.microsoft.com/download/8/5/7/857A863F-22F0-455C-BB49-6A945374CC37/Windows8.1-KB2876331-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2876331/]KB[/url]2876331  11.11.13[/b]  Обновление для системы безопасности Windows 8.1
[b]15 -[url=http://download.microsoft.com/download/2/8/E/28E7F4BB-9446-4C78-831B-FB4117A1B778/Windows8.1-KB2887595-v2-x86.msu][32] [/url] [url=http://download.microsoft.com/download/F/D/C/FDCE14DE-F89D-4838-A56B-C3331EDE6814/Windows8.1-KB2887595-v2-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2887595/]KB[/url]2887595  11.11.13[/b]  Обновление для Windows 8.1  (Rollup-обновление)
[b]16 -[url=http://download.microsoft.com/download/2/8/E/28E7F4BB-9446-4C78-831B-FB4117A1B778/Windows8.1-KB2898514-x86.msu][32] [/url] [url=http://download.microsoft.com/download/F/D/C/FDCE14DE-F89D-4838-A56B-C3331EDE6814/Windows8.1-KB2898514-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2887595/]KB[/url]2898514  11.11.13[/b]  Обновление для Windows 8.1  (входит в Rollup-группу KB2887595)
[b]17 -[url=http://download.microsoft.com/download/2/8/E/28E7F4BB-9446-4C78-831B-FB4117A1B778/Windows8.1-KB2901101-x86.msu][32] [/url] [url=http://download.microsoft.com/download/F/D/C/FDCE14DE-F89D-4838-A56B-C3331EDE6814/Windows8.1-KB2901101-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2887595/]KB[/url]2901101  11.11.13[/b]  Обновление для Windows 8.1  (входит в Rollup-группу KB2887595)
[b]18 -[url=http://download.microsoft.com/download/2/8/E/28E7F4BB-9446-4C78-831B-FB4117A1B778/Windows8.1-KB2906956-x86.msu][32] [/url] [url=http://download.microsoft.com/download/F/D/C/FDCE14DE-F89D-4838-A56B-C3331EDE6814/Windows8.1-KB2906956-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2887595/]KB[/url]2906956  11.11.13[/b]  Обновление для Windows 8.1  (входит в Rollup-группу KB2887595)
[b]19 -[url=http://download.microsoft.com/download/2/8/E/28E7F4BB-9446-4C78-831B-FB4117A1B778/Windows8.1-KB2908174-x86.msu][32] [/url] [url=http://download.microsoft.com/download/F/D/C/FDCE14DE-F89D-4838-A56B-C3331EDE6814/Windows8.1-KB2908174-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2887595/]KB[/url]2908174  11.11.13[/b]  Обновление для Windows 8.1  (входит в Rollup-группу KB2887595)
[b]20 -[url=http://download.windowsupdate.com/d/msdownload/update/software/updt/2013/11/rootsupd_2f61a0a102b7aededed0362ab4fd023d2016f5f0.exe][32 / 64] [/url]-[url=http://support.microsoft.com/kb/931125/]KB[/url]931125    11.11.13[/b]  Обновление корневых сертификатов для Windows 8.1 [Ноябрь 2013 г.]   [b][color=#FF0000](Только с[/color] [url=http://catalog.update.microsoft.com/v7/site/home.aspx]КЦОМ)[/url][/b]
[b]21 -[url=http://download.microsoft.com/download/C/9/F/C9F5D9A7-6D45-404C-8A7F-EC72BBC01EF6/Windows8.1-KB2908279-v2-x86.msu][32] [/url] [url=http://download.microsoft.com/download/3/6/9/369CDEBA-1AD4-420A-818A-8CB6CB3412CE/Windows8.1-KB2908279-v2-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2908279/]KB[/url]2908279  15.11.13[/b]  Обновление для Windows 8.1

[color=#FF0000][b]Список 2[/b][/color]

[b]01 -[url=http://download.microsoft.com/download/D/F/9/DF92CB69-ABB8-4C81-9621-78A8E57531A3/Windows6.3-KB2835517-x86.msu][32] [/url] [url=http://download.microsoft.com/download/D/F/9/DF92CB69-ABB8-4C81-9621-78A8E57531A3/Windows6.3-KB2835517-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2835517/]KB[/url]2835517  10.10.13[/b]  Пакет дополнительных компонентов мультимедиа для Windows 8.1 N и KN
[b]02 -[url=http://download.microsoft.com/download/1/8/E/18EA4843-C596-4542-9236-DE46F780806E/Windows8.1-KB2693643-x86.msu][32] [/url] [url=http://download.microsoft.com/download/1/8/E/18EA4843-C596-4542-9236-DE46F780806E/Windows8.1-KB2693643-x64.msu] [64] [/url]-[url=http://support.microsoft.com/kb/2693643/]KB[/url]2693643  17.10.13[/b]  Средства удаленного администрирования сервера для Windows 8.1
[b]03 -[url=http://download.microsoft.com/download/4/A/A/4AA524C6-239D-47FF-860B-5B397199CBF8/Windows-KB890830-V5.6.exe][32] [/url] [url=http://download.microsoft.com/download/2/C/5/2C563B99-54D9-4D85-A82B-45D3CD2F53CE/Windows-KB890830-x64-V5.6.exe] [64] [/url]-[url=http://support.microsoft.com/kb/890830/]KB[/url]890830    11.11.13[/b]  Средство удаления вредоносных программ

bat файл следующего вида:
Код:
@echo off
ECHO.
ECHO Installing Hotfixes
ECHO -------------------------------------------------------------------------
ECHO 01-KB2859675 24.09.13  Обновление Microsoft Camera Codec Pack
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2859675-x86.msu /quiet /norestart
ECHO 02-KB2886439 06.10.13  Обновление для проигрывателя Flash Player в Internet Explorer 11
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2886439-x86.msu /quiet /norestart
ECHO 03-KB2884101 08.10.13  Накопительное обновление системы безопасности для IE11
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2884101-x86.msu /quiet /norestart
ECHO 04-KB2884846 16.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2884846-x86.msu /quiet /norestart
ECHO 05-KB2898742 16.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2898742-x86.msu /quiet /norestart
ECHO 06-KB2883200 16.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2883200-x86.msu /quiet /norestart
ECHO 07-KB2894029 16.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2894029-x86.msu /quiet /norestart
ECHO 08-KB2894179 16.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2894179-x86.msu /quiet /norestart
ECHO 09-KB2895219 17.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\windows8.1-kb2895219-x86.msu /quiet /norestart
ECHO 10-KB2901549 23.10.13  Обновление для IE 11
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2901549-x86.msu /quiet /norestart
ECHO 11-KB2902892 28.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2902892-x86.msu /quiet /norestart
ECHO 12-KB2902864 28.10.13  Обновление для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB2902864-x86.msu /quiet /norestart
ECHO 13-KB917607  05.11.13  Программа "Справка Windows" (WinHlp32.exe) для Windows 8.1
start /wait wusa.exe %~dp0Update13\Windows8.1-KB917607-x86.msu /quiet /norestart
echo.
echo Done! Please reboot your computer to complete installation!
echo.
pause

Буду очень благодарен!
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Автор
L

lodger

Новичок
Сообщения
5
Репутация
0
madmasles, спасибо за информацию!.
Тему отредактировал, перенесите пожалуйста.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
lodger,
Проверяйте.
Код:
#include <Encoding.au3>;ищите ссылку в моей подписи

Local $sText, $aText, $aNum[5][2] = [[0, 0],[1, 2],[3, 3],[4, 4],[1, 2]], $aWord[5] = [' - ', ' от ', ' ', @CRLF & 'start /wait wusa.exe %~dp0Update13\', _
		' /quiet /norestart' & @CRLF], $sBat86, $sBat64, $hFile, $sEndBat = 'echo.' & @CRLF & _
		'echo Done! Please reboot your computer to complete installation!' & @CRLF & 'echo.' & @CRLF & 'pause'

$sText = FileRead(@ScriptDir & '\upd.txt')
$aText = StringRegExp($sText, '(?is)\](\d{2}).+?/([^\[\]/]+x86[^\[\]/]+)\].+?/([^\[\]/]+x64[^\[\]/]+)\].+?(\d{2}(?:\.\d{2}){2})\[/b\]\h*(.+?)[\r\n]', 3)
If @error Then Exit 13
$sText = ''
$sBat86 = '@echo off' & @CRLF & 'ECHO.' & @CRLF & 'ECHO Installing Hotfixes' & @CRLF & _
		'ECHO -------------------------------------------------------------------------' & @CRLF
$sBat64 = $sBat86
For $i = 0 To UBound($aText) - 1 Step 5
	$sBat86 &= 'ECHO '
	$sBat64 &= 'ECHO '
	For $j = 0 To 4
		Switch $j
			Case 1
				$sBat86 &= StringRegExpReplace($aText[$i + $aNum[$j][0]], '(?i).*-(kb.+)-x.*', '$1') & $aWord[$j]
				$sBat64 &= StringRegExpReplace($aText[$i + $aNum[$j][1]], '(?i).*-(kb.+)-x.*', '$1') & $aWord[$j]
			Case 3
				$sBat86 &= StringRegExpReplace($aText[$i + $aNum[$j][0]], '\[.*?\]', '') & $aWord[$j]
				$sBat64 &= StringRegExpReplace($aText[$i + $aNum[$j][1]], '\[.*?\]', '') & $aWord[$j]
			Case Else
				$sBat86 &= $aText[$i + $aNum[$j][0]] & $aWord[$j]
				$sBat64 &= $aText[$i + $aNum[$j][1]] & $aWord[$j]
		EndSwitch
	Next
Next
$hFile = FileOpen(@ScriptDir & '\x86.bat', 2)
FileWrite($hFile, _Encoding_ANSIToOEM($sBat86 & $sEndBat))
FileClose($hFile)
$hFile = FileOpen(@ScriptDir & '\x64.bat', 2)
FileWrite($hFile, _Encoding_ANSIToOEM($sBat64 & $sEndBat))
FileClose($hFile)
 
Автор
L

lodger

Новичок
Сообщения
5
Репутация
0
madmasles спасибо большое, но вот на 20 апдейте как то в батнике не то получается.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
lodger,
Поправил немного, но под номером 20 идет обновление 21. Какое имя у файла в 20 обновлении?


Добавлено:
Сообщение автоматически объединено:

Код:
[b]20 -[url=http://download.windowsupdate.com/d/msdownload/update/software/updt/2013/11/rootsupd_2f61a0a102b7aededed0362ab4fd023d2016f5f0.exe][32 / 64] [/url]-[url=http://support.microsoft.com/kb/931125/]KB[/url]931125    11.11.13[/b]  Обновление корневых сертификатов для Windows 8.1 [Ноябрь 2013 г.]   [b][color=#FF0000](Только с[/color] [url=http://catalog.update.microsoft.com/v7/site/home.aspx]КЦОМ)[/url][/b]
Из этих строк что должно быть в батнике?
 
Автор
L

lodger

Новичок
Сообщения
5
Репутация
0
madmasles [?]
Какое имя у файла в 20 обновлении?
rootsupd_2f61a0a102b7aededed0362ab4fd023d2016f5f0.exe

madmasles,
При этом условии [32 / 64] строка должна добавиться в оба батника.
Сейчас не появляется в батнике 20 апдейт и 3 апдейт из второго списка (самый последний в upd.txt)
Я так понимаю из-за этого апдейта рушиться весь алгоритм работы скрипта?
Хотя этот тег можно отловить по расширению файла, если он exe то соответственно идет в оба батника.

и для теста еще один файл выдает после 99 неправильную нумерацию
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
lodger,
А так?
Код:
#include <Encoding.au3>

Opt('MustDeclareVars', 1)

Global $sFileUpd = @ScriptDir & '\upd.txt', $sFile86 = @ScriptDir & '\x86.bat', $sFile64 = @ScriptDir & '\x64.bat'

Global $sText, $aText86, $aText64, $sBat, $hFile, $aNum[4] = [0, 2, 3, 1], $sCodePage, _
		$aWord[5] = [' - KB', ', ', '.' & @CRLF & 'start /wait wusa.exe %~dp0Update13\', ' /quiet /norestart' & @CRLF, 'echo.' & _
		@CRLF & 'echo Done! Please reboot your computer to complete installation!' & @CRLF & 'echo.' & @CRLF & 'pause']

$sCodePage = RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage', 'OEMCP')

$sText = FileRead($sFileUpd)
$aText86 = StringRegExp($sText, '(?is)b\](\d+)\D.+?=.+?([^\[\]/]+\.[a-z]{3})\]\h*(?=\[\h*32).+?\](\d+\h+\d{2}(?:\.\d{2}){2})\[/b\]\h*(.+?)\h*[\r\n]', 3)
If @error Then Exit 86
$sBat = '@echo off' & @CRLF & 'ECHO.' & @CRLF & 'ECHO Installing Hotfixes' & @CRLF & _
		'ECHO -------------------------------------------------------------------------' & @CRLF
For $i = 0 To UBound($aText86) - 1 Step 4
	$sBat &= 'ECHO '
	For $j = 0 To 3
		Switch $aNum[$j]
			Case 2
				$sBat &= StringStripWS($aText86[$i + $aNum[$j]], 7) & $aWord[$j]
			Case 3
				$sBat &= StringStripWS(StringRegExpReplace($aText86[$i + $aNum[$j]], '\[[^ЁёА-Яа-я]*?\]', ''), 7) & $aWord[$j]
			Case Else
				$sBat &= $aText86[$i + $aNum[$j]] & $aWord[$j]
		EndSwitch
	Next
Next
$aText86 = 0
$sBat &= $aWord[4]
If $sCodePage = '866' Then $sBat = _Encoding_ANSIToOEM($sBat)
$hFile = FileOpen($sFile86, 2)
FileWrite($hFile, $sBat)
FileClose($hFile)
$sBat = ''

$aText64 = StringRegExp($sText, '(?is)b\](\d+)\D.+?=.+?([^\[\]/]+\.[a-z]{3})\]\h*(?=\[.{0,6}64\h*\]).+?\](\d+\h+\d{2}(?:\.\d{2}){2})\[/b\]\h*(.+?)\h*[\r\n]', 3)
If @error Then Exit 64
$sText = ''
$sBat = '@echo off' & @CRLF & 'ECHO.' & @CRLF & 'ECHO Installing Hotfixes' & @CRLF & _
		'ECHO -------------------------------------------------------------------------' & @CRLF
For $i = 0 To UBound($aText64) - 1 Step 4
	$sBat &= 'ECHO '
	For $j = 0 To 3
		Switch $aNum[$j]
			Case 2
				$sBat &= StringStripWS($aText64[$i + $aNum[$j]], 7) & $aWord[$j]
			Case 3
				$sBat &= StringStripWS(StringRegExpReplace($aText64[$i + $aNum[$j]], '\[[^ЁёА-Яа-я]*?\]', ''), 7) & $aWord[$j]
			Case Else
				$sBat &= $aText64[$i + $aNum[$j]] & $aWord[$j]
		EndSwitch
	Next
Next
$aText64 = 0
$sBat &= $aWord[4]
If $sCodePage = '866' Then $sBat = _Encoding_ANSIToOEM($sBat)
$hFile = FileOpen($sFile64, 2)
FileWrite($hFile, $sBat)
FileClose($hFile)
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
:

Список 1

01 -[32] [64] -KB2883200 16.10.13 Обновление для Windows 8.1 (Входит в ROLLUP-1)
02 -[32] [64] -KB2894029 16.10.13 Обновление для Windows 8.1 (Входит в ROLLUP-1)
03 -[32] [64] -KB2894179 16.10.13 Обновление для Windows 8.1 (Входит в ROLLUP-1)
04 -[32] [64] -KB2859675 24.09.13 Обновление Microsoft Camera Codec Pack
05 -[32] [64] -KB2884846 16.10.13 Обновление для Windows 8.1 (Rollup-обновление)
06 -[32] [64] -KB2898742 16.10.13 Обновление для Windows 8.1 (входит в Rollup-группу KB2884846)
07 -[32] [64] -KB2902892 28.10.13 Обновление для Windows 8.1
08 -[32] [64] -KB917607 05.11.13 Программа "Справка Windows" (WinHlp32.exe) для Windows 8.1
09 -[32] [64] -KB2898108 11.11.13 Обновление для проигрывателя Flash Player в Internet Explorer 11
10 -[32] [64] -KB2888505 11.11.13 Накопительное обновление системы безопасности для IE11
11 -[32] [64] -KB2900986 11.11.13 Обновление системы безопасности для ActiveX Killbits
12 -[32] [64] -KB2862152 11.11.13 Обновление для системы безопасности Windows 8.1
13 -[32] [64] -KB2868626 11.11.13 Обновление для системы безопасности Windows 8.1
14 -[32] [64] -KB2876331 11.11.13 Обновление для системы безопасности Windows 8.1
15 -[32] [64] -KB2887595 11.11.13 Обновление для Windows 8.1 (Rollup-обновление)
16 -[32] [64] -KB2898514 11.11.13 Обновление для Windows 8.1 (входит в Rollup-группу KB2887595)
17 -[32] [64] -KB2901101 11.11.13 Обновление для Windows 8.1 (входит в Rollup-группу KB2887595)
18 -[32] [64] -KB2906956 11.11.13 Обновление для Windows 8.1 (входит в Rollup-группу KB2887595)
19 -[32] [64] -KB2908174 11.11.13 Обновление для Windows 8.1 (входит в Rollup-группу KB2887595)
20 -[32 / 64] -KB931125 11.11.13 Обновление корневых сертификатов для Windows 8.1 [Ноябрь 2013 г.] (Только с КЦОМ)
21 -[32] [64] -KB2908279 15.11.13 Обновление для Windows 8.1

Список 2

01 -[32] [64] -KB2835517 10.10.13 Пакет дополнительных компонентов мультимедиа для Windows 8.1 N и KN
02 -[32] [64] -KB2693643 17.10.13 Средства удаленного администрирования сервера для Windows 8.1
03 -[32] [64] -KB890830 11.11.13 Средство удаления вредоносных программ
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
lodger,
Какая программа формирует файл upd.txt?
 
Автор
L

lodger

Новичок
Сообщения
5
Репутация
0
А вот теперь отлично работает, огромное вам спасибо.
Файл upd.txt это просто 'выгрузка' с форума, режим редактирование одного из постов в котором собран весь этот текст.
 
Верх