и что мешает взять 2 из 3ех?

религия не позволяет?

я  спросил  как на это условие регуляное вырожени в 1 строку написать

и? ответ уже был дан

убери [2]

я хз как массивы в AutoIt объявляются

Dim $aRez1[10], $aRez2[10]

все, готово

#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

через пеньколоду

в 1 строку регулярку так и не смог победить

ты че гонишь

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

сам с собой сражался)

ну а как еще... прическу ни кто не отменял

ето еще что.... у меня батник чтобы модемы опрашивать раз в 5 длинее

не нравится мне что в 3 строчке пришлось масив всетаки обьявить конкретной длины

А купить хороший юсб хаб?