[R] Récupérer le contenu de cmd.exe Sous MMB + Codes Source

[Anthony]

Pinaise j'ai presque touché Dieu, presque, presque

► Afficher le texte

Code : Tout sélectionner

$text='CRLF'
$len_text=StringLen($text)
$contenu=$line

;méthode regexp
$resul=StringRegExp($contenu,"(?i)"&$text,3)
If IsArray($resul) Then
    $occurence=UBound($resul)
Else
    $occurence=0
EndIf
$location = StringInStr( $send, $text, 0, $occurence)
MsgBox(0,"résultat",$text&" a été trouvé "&$occurence&" fois, la partie à supprimer est de: "&$location&" à "&$Lensend)

Sauf que ce code ne fonctionne pas si je rajoute le: $ à CRLF$ même

Code : Tout sélectionner

$text='CRLF'& chr(36)

ne fonctionne pas non plus
Voilà il ne reste plus qu'à supprimer cette partie avec.....

[Tlem]

Tant que vous ne donnez pas la ligne avec les crlf$, on ne peut pas faire des tests pour vous.

En ce qui me concerne, j'utiliserais le StringSplit, puis je supprimerais la dernière valeur du tableau et enfin, je reformerais la ligne avec les nouvelles valeurs. ^^
StringRegExp peut être pas mal aussi, mais là il va falloir trouver le bon pattern.

[Anthony]

Voilà c'est fait, la variable avec les crlf$:
Ce code compatible est envoyé à mon programme avec le label "MMBTitle"

► Afficher le texte

Code : Tout sélectionner

MPlayer Sherpya-SVN-r30369-4.2.5 (C) 2000-2009 MPlayer Team'+CRLF$+'getch2: 6 can'+l$+'t get number of input events  [disabling console input]'+CRLF$+''+CRLF$+'Playing F:\Send\video.avi.'+CRLF$+'AVI file format detected.'+CRLF$+'[aviheader] Video stream found, -vid 0'+CRLF$+'[aviheader] Audio stream found, -aid 1'+CRLF$+'VIDEO:  [H264]  320x240  24bpp  25.000 fps  150.0 kbps (18.3 kbyte/s)'+CRLF$+'=========================================================================='+CRLF$+'Opening video decoder: [ffmpeg] FFmpeg'+l$+'s libavcodec codec family'+CRLF$+'Selected video codec: [ffh264] vfm: ffmpeg (FFmpeg H.264)'+CRLF$+'=========================================================================='+CRLF$+'=========================================================================='+CRLF$+'Opening audio decoder: [ffmpeg] FFmpeg/libavcodec audio decoders'+CRLF$+'AUDIO: 44100 Hz, 1 ch, s16le, 64.0 kbit/9.07% (ratio: 8000->88200)'+CRLF$+'Selected audio codec: [ffmp3] afm: ffmpeg (FFmpeg MPEG layer-3 audio)'+CRLF$+'=========================================================================='+CRLF$+'[AO SDL] Samplerate: 44100Hz Channels: Mono Format s16le'+CRLF$+'AO: [null] 44100Hz 1ch s16le (2 bytes per sample)'+CRLF$+'Starting playback...'+CRLF$+'Movie-Aspect is 1.33:1 - prescaling to correct movie aspect.'+CRLF$+'VO: [direct3d] 320x240 => 320x240 Planar YV12 '+CRLF$+'A:   0.2 V:   0.0 A-V:  0.126 ct:  0.000   2/  2 ??% ??% ??,?% 0 0             A:   0.2 V:   0.1 A-V:  0.108 ct: -0.000   3/  3 ??% ??% ??,?% 1 0             A:   0.2 V:   0.1 A-V:  0.082 ct: -0.001   4/  4 ??% ??% ??,?% 1 0             A:   0.2 V:   0.2 A-V:  0.058 ct: -0.001   5/  5 ??% ??% ??,?% 1 0             A:   0.2 V:   0.2 A-V:  0.034 ct: -0.001   6/  6 ??% ??% ??,?% 1 0             A:   0.3 V:   0.2 A-V:  0.010 ct: -0.001   7/  7 ??% ??% ??,?% 1 0             A:   0.3 V:   0.3 A-V: -0.013 ct: -0.002   8/  8 ??% ??% ??,?% 1 0             A:   0.3 V:   0.3 A-V: -0.014 ct: -0.003   9/  9 ??% ??% ??,?% 1 0             A:   0.3 V:   0.4 A-V: -0.016 ct: -0.005  10/ 10 ??% ??% ??,?% 1 0             A:   0.4 V:   0.4 A-V: -0.020 ct: -0.007  11/ 11 ??% ??% ??,?% 1 0             A:   0.4 V:   0.4 A-V: -0.021 ct: -0.009  12/ 12 ??% ??% ??,?% 1 0             A:   0.5 V:   0.5 A-V: -0.020 ct: -0.011  13/ 13 ??% ??% ??,?% 1 0             A:   0.5 V:   0.5 A-V: -0.023 ct: -0.014  14/ 14 28% 15%  0.4% 1 0             A:   0.6 V:   0.6 A-V: -0.003 ct: -0.014  15/ 15 26% 14%  0.4% 1 0             A:   0.6 V:   0.6 A-V: -0.001 ct: -0.014  16/ 16 25% 13%  0.3% 1 0             A:   0.6 V:   0.6 A-V: -0.007 ct: -0.015  17/ 17 23% 12%  0.5% 1 0             A:   0.7 V:   0.7 A-V: -0.002 ct: -0.015  18/ 18 22% 12%  0.4% 1 0             A:   0.7 V:   0.7 A-V: -0.011 ct: -0.016  19/ 19 21% 12%  0.4% 1 0             A:   0.7 V:   0.8 A-V: -0.011 ct: -0.017  20/ 20 20% 11%  0.4% 1 0            

Mon code Send.au3 actuel:

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#include <array.au3>
#include <file.au3>
#include<Constants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include <MMBLib.au3>
#include <WinAPI.au3>

; Déclaration des variables
Global $send, $StopBatch, $Stopsend

; Change into the WinTitleMatchMode that supports classnames and handles
AutoItSetOption("WinTitleMatchMode", 4)
AutoItSetOption("WinSearchChildren", 1)

; get the string from commandline
#$cmd = 'MMBTitle||50||10||"C:\Program Files (x86)\RipBot264\tools\avs2yuv\pipebuf.exe" "C:\Program Files (x86)\RipBot264\tools\avs2yuv\avs2yuv.exe" "D:\temp\RipBot264temp\job1\job1.avs" - : "C:\Program Files (x86)\RipBot264\tools\x264\x264_x64.exe" --pass 1 --bitrate 852 --stats "D:\temp\RipBot264temp\job1\job1.stats" --fps 50 --force-cfr  --min-keyint 50 --keyint 500 --frames 2000 --sar 1:1 --level 4.0 --aud --nal-hrd vbr --vbv-bufsize 25000 --vbv-maxrate 25000 --filter 0,0 --ref 3  --bframes 3 --b-adapt 2   --b-pyramid none --subme 7 --aq-mode 1 --trellis 2 --partitions all --me umh --stdin y4m --output "D:\temp\RipBot264temp\video.264" - : 2 '
$cmd = $CmdLine[1]
#MsgBox(0, "cmd is:", $cmd)

; Atribute variables from MMB
$CmdVar = StringSplit($cmd, "||", 1)

$MMBTitle    = StringSplit($CmdVar[1], "||")
$MMBTitle    = $MMBTitle[1]
$AutoItTimer = StringSplit($CmdVar[2], "||")
$AutoItTimer = $AutoItTimer[1]
$StopBatch   = StringSplit($CmdVar[3], "||")
$StopBatch   = $StopBatch[1]
$cmd         = StringSplit($CmdVar[4], "||")
$cmd         = $cmd[1]

#MsgBox(0, "MMBTitle is:", $MMBTitle)
#MsgBox(0, "AutoIt Timer is:", $AutoItTimer)
#MsgBox(0, "Stop Batch is:", $StopBatch)
#MsgBox(0, "cmd is:", $cmd)


SendScriptMMB($MMBTitle, "Status$='Starting...'")

Local $Stream = Run(@ComSpec & ' /c "' & $cmd & '"', @SystemDir, @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD)

Sleep(1000)

Local $line

SendScriptMMB($MMBTitle, "Status$='Running...'")

While 1

    $line = StdoutRead($Stream)

    If @error Then ExitLoop 

       ; Get the handle of a cmd.exe window (from its classname)
       $ConsoleWindowClass = WinGetTitle("classname=ConsoleWindowClass", "")
       $ConsoleWindowClass = stringreplace($ConsoleWindowClass,@LF,"")
       SendScriptMMB($MMBTitle, "Title$='" & $ConsoleWindowClass & "'")
       ; End of Get the handle of a cmd.exe window (from its classname)

    If $line <>'' Then

       $line = stringreplace($line,"'","'+l$+'")
       #$line = stringreplace($line,@CR,"'+CR$+'")
       #$line = stringreplace($line,@LF,"'+LF$+'")
       $line = stringreplace($line,@CRLF,"'+CRLF$+'")
       
       If $StopBatch = 1 then
          If $Stopsend < 1 then
             $Stopsend = 1
             $line = stringreplace($line,@CR,"")  ; Supression des Retours Chariot pour avoir une seule ligne à supprimer
             #$line = stringreplace($line,@CR,"à éffacer" & @CR)
             $send = $send & $line
             $Lensend=StringLen($send)

##########################################
$text='CRLF'
$len_text=StringLen($text)
$contenu=$line

;méthode regexp
$resul=StringRegExp($contenu,"(?i)"&$text,3)
If IsArray($resul) Then
    $occurence=UBound($resul)
Else
    $occurence=0
EndIf
$location = StringInStr( $send, $text, 0, $occurence)
MsgBox(0,"résultat",$text&" a été trouvé "&$occurence&" fois, la partie à supprimer est de: "&$location&" à "&$Lensend)
##########################################

             $Lensend=StringLen($send)
             MsgBox(0, "send is:", $send)
             SendScriptMMB($MMBTitle, "Batch$='" & $send & "'")
          EndIf
          SendScriptMMB($MMBTitle, "LastLine$='" & $line & "'")
       Else
          $send = $send & $line
          SendScriptMMB($MMBTitle, "Batch$='" & $send & "'")
          SendScriptMMB($MMBTitle, "LastLine$='" & $line & "'")
       EndIf
    EndIf
  Sleep($AutoItTimer)
Wend

SendScriptMMB($MMBTitle, "Status$='Done...'")

PS: Je viens d'apprendre la déclaration des variables, çà devient vraiment intéressant ce petit AutoIt :

Code : Tout sélectionner

; Déclaration des variables
Global $send, $StopBatch, $Stopsend

[Tlem]

En considérant la ligne que vous avez donné et en la plaçant dans le fichier test.txt, voici ce que cela donne :

Code : Tout sélectionner

Global $Line, $NewLine, $aLigne, $i

$Line = FileRead('test.txt')

$aLine = StringSplit($Line, "+CRLF$+", 1)
For $i = 1 to $aLine[0] - 1
    $NewLine &= $aLine[$i] & "+CRLF$+"
Next

;$NewLine = StringTrimRight($NewLine, 7)  ; Si vous ne voulez pas le dernier "+CRLF$+".
;$NewLine = StringTrimRight($NewLine, 1)  ; Si vous ne voulez garder "+CRLF$" à la fin.

MsgBox(0, '', $NewLine)

[Anthony]

Vraiment Génial, quoi dire d'autre que génial et:
Encore merci, merci, merci.

PS: Le temps de modifier et réarenger tout le script et je poste le tout au propre et [R].

[TommyDDR]

Ce post va donc passer en [R] ?

Qui l'aurait cru ? ^^

[Anthony]

On dit que je suis une tête de mûle (mais dans le bon sens) et en plus perfectioniste

[Anthony]

Voilà c'est fait ma demo est finie et je vous offre les 2 codes source, AutoIt + MMB, bien sûr le pack inclu les exe's compilé
Et oui c'est vraiment fini j'ai même ajouté la prise en compte des STDERR

Je précise quand même que le code source "Send.au3" se compile avec AutoIt et "Get Full CMD.mbd" avec Multimedia Builder de Mediachance.

Cliquez sur "Voir" pour acceder au code source

► Afficher le texte

Code : Tout sélectionner

"MMBLib.au3"    A mettre dans le dossier programme AutoIt Include
"Send.au3"      Le code AutoIt
"how get.mbd"   Le code source sous Multimedia Builder

Codes Source MMB + AutoIt.rar

Codes Source MMB + AutoIt.rar

(51.59 Kio) Téléchargé 366 fois

Code : Tout sélectionner

"how get.exe"   Mon Programme Compilé Sous Multimedia Builder
"mplayer.exe"   Utilisé dans la démo
"Send.exe"      Le code AutoIt Compilé
"video.avi"     Utilisé par mplayer

Lien de téléchargement mplayer + video.avi : http://www.megaupload.com/?d=676B25AW

Je tiens tout particulièrement à remercier tous ceux qui m'on supporté pour l'aide et le temps passé.
A titre d'info çà fait 3 voir 4 années que je suis sur ce projet dont 2 intensives à 12 heures par jour et souvent plus.
Tout ceci à été possible grâce aux Dieux:
Tlem
TommyDDR
zeshrek

[Tlem]

C'est beaucoup d'honneur pour moi d'être comparé à un dieu, mais je tient à dire que je suis comme beaucoup un humble utilisateur et surtout que mes connaissances, je les ai acquises sur le premier forum AutoIt (dieu (le vrai) ai son âme ...) et donc tout ceci est bel et bien une histoire de communauté.

Je tient aussi à rajouté une sorte de devise qui pourrait convenir à ce forum :

Lisez, profitez, créez et partagez

.

[TommyDDR]

Tout ceci à été possible grâce aux Dieux:
Tlem
TommyDDR
zeshrek

Tiens, on parle de moi ^^'
Bon, Tlem viens de faire un speach, je pense qu'il à résumer le tout, pas la peine de faire un double de son post ^^.

Merci à vous

[zeshrek]

Heuuuuuu... qu'est ce que je fais là moi ?
J'y suis pour rien, j'ai rien fait, c'est pas moi ! La vie de ma mere je suis innocent comme l'agneau qui vient de naitre !

[Tlem]

Hé hé hé, tu as écrit quand même trois messages :
http://www.autoitscript.fr/forum/viewto ... 488#p43488
http://www.autoitscript.fr/forum/viewto ... 526#p43526
http://www.autoitscript.fr/forum/viewto ... 674#p44674

Donc tu est aussi coupable que nous.

[Anthony]

Je confirme j'ai parcouru les 4 pages de posts pour n'oublier personne.
D'ailleur si çà gêne personne je mettrai vos pseudos dans "@propos de" de mon prochain programme qui utilisera vos scripts.
Attention @ n'est pas une variable

Aller dernière pour la soirée !

C'est grâce à des personnes comme vous que le monde avance.