#Include<Array.Au3>;******Добавлено #Include<File.Au3>;*****Добавлено Dim $aRez1[10], $aRez2[10], $aRez3[10] ;Dim $b[12] $sText=FileRead(@scriptDir & "\result.txt") $fileout=(@scriptDir & "\resultat.txt") $L1="(?<=\ скидку\

).*?(?=р)" ; 1-номинал для поиска
$L2="(?<=коду\ ).*?(?=\ только)" ; 2-код для поиска
$String = $sText

$res=_DOS2WIN($String); смена кодировки
$aRez1=StringRegExp($res,$L1,3)
$aRez2=StringRegExp($res,$L2,3)
kley()
savefile()
Exit

Func kley()
For $i1 = 0 To UBound($aRez1,1)-1 Step +1
$aRez3[$i1] = $aRez1[$i1] &" рублей, КОД "& $aRez2[$i1]
Next
;$iRows = UBound($aRez1, 1) ; запос какое количество строк в масиве.
;ConsoleWrite($iRows)
EndFunc

Func savefile()
$hFile3 = FileOpen($fileout, 1) ; 1 = append
_FileWriteFromArray($hFile3, $aRez3)
FileClose($hFile3)
EndFunc

Func _DOS2WIN($String)
Local $sResult = "", $iCode
Local $Var866Arr = StringSplit($String, "")
For $i = 1 To $Var866Arr[0]
$iCode = Asc($Var866Arr[$i])
Select
Case $iCode >= 128 And $iCode <= 175
$Var866Arr[$i] = Chr ($iCode + 64)
Case $iCode >= 224 And $iCode <= 239
$Var866Arr[$i] = Chr ($iCode + 16)
Case $iCode = 240
$Var866Arr[$i] = Chr (168)
Case $iCode = 241
$Var866Arr[$i] = Chr (184)
Case $iCode = 252
$Var866Arr[$i] = Chr (185)
EndSelect
$sResult &= $Var866Arr[$i]
Next
Return $sResult
EndFunc ; ==> _DOS2WIN

это все вместо тех 3-х строк??