[R] Problèmes avec un boucle (je pense)

[yoyox]

Bonjour,

je rencontre actuellement un problèmes sur mon script suite à une boucle

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>
#include <Date.au3>
#include <String.au3>
#RequireAdmin
#NoTrayIcon

Opt("TrayIconHide", 1)

Const $debug = 0

;~ O pour one, t pour two

Local $In
Local $O = 0
Local $T = 0

;~ ShellExecuteWait(@ScriptDir & '\MyEventViewer.exe', '/scomma In.txt /EventLogNames "Security"  /VisibleEventTypes 24')


 _FileReadToArray(@ScriptDir & "\In.txt", $In)

If $debug = 1 Then
   _ArrayDisplay($In)
Endif

For $i=1 To Ubound($In) - 1
   $Search = StringSplit($in[$i], ",", 1)
   If $Search[7] = "4663" Or $Search[7] = "4659" Then
      $O += 1
   EndIf
Next

If $debug = 1 Then
   Msgbox(0, "Valeur de $O", $O)
Endif

Local $Out[$O]

For $i=1 To Ubound($In) - 1
   $Search = StringSplit($in[$i], ",", 1)
   If $Search[7] = "4663" Or $Search[7] = "4659" Then
      _ArrayPush($Out,$In[$i], 1)
   EndIf
Next

If $debug = 1 Then
   _ArrayDisplay($Out)
Endif


   Msgbox(0, "Valeur de $T", "prout")

For $i=0 To Ubound($Out) - 1
   $Search = _StringBetween($Out[$i], "\Device\HarddiskVolume5", "   ID du handle")[0]
   $Search = StringRegExp($Search, '(\.[^."]+)$', 3)
   $Search = _ArrayToString($Search)
   If $Search <> ".tmp" Then
      $T += 1
   EndIf

Next

[color=#80FF00]Msgbox(0, "Valeur de $T", $T)[/color]

If $debug = 1 Then
   Msgbox(0, "Valeur de $T", $T)
Endif

Le script fonctionne parfaitement jusqu'à la ligne en vert, la message box n’apparaît pas, aucune erreur de la part de scite

En revanche si je lance le script après l'avoir compilé, voici ce qui apparait

Error: Subscript used on non-accessible variable.

En gros voici ce que contient le fichier In.txt :

► Afficher le texte

1647127,Security,Audit Success,12/08/2015 10:33:57,Microsoft-Windows-Security-Auditing,12800,4659,,ServeurDeFichier,0,628,Un handle vers un objet a été demandé dans un but de suppression.    Sujet :   ID de sécurité :  S-1-5-21-26327596-1328973349-1054565138-7204   Nom du compte :  USER   Domaine du compte :  Domaine   ID d’ouverture de session :  0x3aafc7f    Objet :   Serveur de l’objet : Security   Type d’objet : File   Nom de l’objet : \Device\HarddiskVolume5\Dossier\suprfichier.txt   ID du handle : 0x0    Informations sur le processus :   ID du processus : 0x4    Informations sur la demande d’accès :   ID de la transaction : {00000000-0000-0000-0000-000000000000}   Accès : %%1537      %%4423         Masque d’accès : 0x10080   Privilèges utilisés pour les vérifications d’accès : -  


1647126,Security,Audit Success,12/08/2015 10:33:56,Microsoft-Windows-Security-Auditing,12800,4663,,ServeurDeFichier,0,552,Une tentative d’accès à un objet a été effectuée.    Sujet :   ID de sécurité :  S-1-5-21-26327596-1328973349-1054565138-7204   Nom du compte :  USER   Domaine du compte :  Domaine   ID d’ouverture de session :  0x3aafc7f    Objet :   Serveur de l’objet : Security   Type d’objet : File   Nom de l’objet : \Device\HarddiskVolume5\Dossier\Nouveau document texte.txt   ID du handle : 0x140c    Informations sur le processus :   ID du processus : 0x4   Nom du processus :     Informations sur la demande d’accès :   Accès : %%1537         Masque d’accès : 0x10000  


1647125,Security,Audit Success,12/08/2015 10:33:49,Microsoft-Windows-Security-Auditing,12800,4660,,ServeurDeFichier,0,448,Un objet a été supprimé.    Sujet :   ID de sécurité :  S-1-5-21-26327596-1328973349-1054565138-6356   Nom du compte :  USER   Domaine du compte :  Domaine   ID d’ouverture de session :  0x3f720dc    Objet :   Serveur de l’objet : Security   ID du handle : 0xc04    Informations sur le processus :   ID du processus : 0x4   Nom du processus :    ID de la transaction : {00000000-0000-0000-0000-000000000000}  


1647124,Security,Audit Success,12/08/2015 10:33:49,Microsoft-Windows-Security-Auditing,12800,4663,,ServeurDeFichier,0,716,Une tentative d’accès à un objet a été effectuée.    Sujet :   ID de sécurité :  S-1-5-21-26327596-1328973349-1054565138-6356   Nom du compte :  USER   Domaine du compte :  Domaine   ID d’ouverture de session :  0x3f720dc    Objet :   Serveur de l’objet : Security   Type d’objet : File   Nom de l’objet : \Device\HarddiskVolume5\Dossier\Fichier.doc   ID du handle : 0xc04    Informations sur le processus :   ID du processus : 0x4   Nom du processus :     Informations sur la demande d’accès :   Accès : %%1537         Masque d’accès : 0x10000    
 

c'est qu'une petite partie du texte (5 ligne), chaque paragraphe affiché sont en une seul ligne dans mon fichier

auriez vous une astuce pour trouver l'erreur ?

J'ai essayé chaque variable et tout à un résultat même $T, ca ne vient donc pas du code mais plutôt d'une erreur de codage de ma part non visible

[mikell]

Merci de mettre une balise spoiler sur les longs codes/textes

J'ai eu un souci en testant sur le texte tel que posté, _FileReadToArray retourne des lignes vides dans l'array, et If $Search[7] => error
En utilisant un regex à la place

Code : Tout sélectionner

$In = StringRegExp(FileRead(@ScriptDir & "\In.txt"), '\V+', 3)

et en mettant For $i = 0 to... dans les boucles là ça va bien

[yoyox]

Mikell m'a aidé à comprendre

Le problème venait de cette partie

Code : Tout sélectionner

For $i=0 To Ubound($Out) - 1
   $Search = _StringBetween($Out[$i], "\Device\HarddiskVolume5", "   ID du handle")[0]
   $Search = StringRegExp($Search, '(\.[^."]+)$', 3)
   $Search = _ArrayToString($Search)
   If $Search <> ".tmp" Then
      $T += 1
   EndIf

ceci plus précisément : \Device\HarddiskVolume5

Dnas mon texte il n'y avait pas que HarddiskVolume5, il y a aussi des HarddiskVolume3 ce qui faisait planter mon _StringBetween

Voici la correction fournie par mikell :

Code : Tout sélectionner

; Local $debug2
For $i=0 To Ubound($Out) - 1
   $tmp = _StringBetween($Out[$i], "\Device\HarddiskVolume", "ID du handle")
        ; If not IsArray($tmp) Then Msgbox(0,"debug", $Out[$i])  ; error checking
        ; $Search = $tmp[0]
   $Search = StringRegExpReplace($tmp[0], '.*(\.\w+)\h*', "$1")
; $debug2 &= $Search & @crlf
   If $Search <> ".tmp" Then
      $T += 1
   EndIf
Next
; filewrite("debug2.txt", debug2)