AutoIt Français

Code : Tout sélectionner

$nOffset = 1
local $i

$array = StringRegExp('O42 - Logiciel: Adobe Reader 7.0.8 - Français - (.Adobe Systems Incorporated.) [HKLM] -- {AC76BA86-7AD7-1036-7B44-A70700000002}','^Adobe Reader [0-9\.]+',1, $nOffset)
for $i = 0 to UBound($array) - 1
If $array > 0 Then
    msgbox("0","Old", $array[$i])
EndIf
Next
 

Code : Tout sélectionner

$nOffset = 1
local $i
$OpenDialog = "file.txt"
$file = FileOpen($OpenDialog, 0)
While 1
$ligne = FileReadLine($file) ; ou on lit une ligne
                If @error = -1 Then ExitLoop
$array = StringRegExp($ligne,'^Adobe Reader [0-9\.]+',1, $nOffset)
If $array > 0 Then
for $i = 0 to UBound($array) - 1
    msgbox("0","Old", $array[$i])
Next
EndIf
ConsoleWrite($array[$i])
WEnd
            FileClose($file)
 

Code : Tout sélectionner

$nOffset = 1
$OpenDialog = "File.txt"
$file = FileOpen($OpenDialog, 0)
While 1
Local $Patern = 'Adobe Reader [0-9\.]+'
$ligne = FileReadLine($file) ; ou on lit une ligne
                If @error = -1 Then ExitLoop
$array = StringRegExp($ligne, $Patern, 1, $nOffset)
for $i = 0 to UBound($array) - 1
;~ If $array > 0 Then
    msgbox("0","Old", $array[$i])
;~ EndIf
Next
WEnd
            FileClose($file)
 

Code : Tout sélectionner

Match any character not in the set. e.g. [^0-9] matches any non-digit. To include a caret (^) in a set, put it after the beginning of the set or escape it (\^).