- mer. 16 avr. 2014 11:32
#120102
déjà qu'en autoIt ca donne ca :
Local $t = 1
While 1
If $t = 2 Then ExitLoop
If FileExists("dsc_6299.jpg.enc.rtf") Then
GUICtrlSetData($LABEL1, "Traitement : dsc_6299.jpg.enc.rtf")
Global $file_in = "dsc_6299.jpg.enc.rtf"
$digit = '[[:xdigit:]]{2}'
$FILE = FileOpen($file_in, 16)
$caract = StringRegExp(FileRead($FILE), '[[:xdigit:]]{32}', 3)
FileClose($FILE)
$txt0 = ""
Local $d = 1
For $I = 0 To UBound($caract) - 1
If $count = 0 Then
If StringInStr($caract[$i], "ffd8ffe1ff") Or StringInStr($caract[$i],"ffd8ffe103") Then
$count = 1
EndIf
EndIf
If $count = 1 Then
$caract[$i] = StringReplace($caract[$i], "0d0a", "")
_ArrayAdd($add,$caract[$i])
EndIf
Next
For $a in $add
If $a '' Then
$b = StringSplit($a,@CRLF)
$c = _HexToString($b[1])
FileWriteline("dsc_6299.jpg",$c)
EndIf
Next
EndIf
$t += 1
WEnd
et c'est pas fonctionnel à 100% alors en batch j'ose même pas imaginer ^^
