[R] Rechercher plusieurs fois une valeur dans un fichier

[ludoo]

Bonsoir à tous,
voici mon probleme ,
j'utilise un logiciel qui log (jour,mois) le spooler d'impression (PaperCut Print Logger - http://www.papercut.com/), il crée un fichier txt ou csv du résultat.
dans ce fichier txt , il y a plusieurs info voici la liste:
Time,User,Pages,Copies,Printer,Document Name,Client,Paper Size,Language,Height,Width,Duplex,Grayscale,Size

Dans ce fichier il peut y avoir plusieurs fois le même user, comment faire pour avoir le résultat avec l'user sont total de Pages et Copies, je vois pas quel fonction utiliser.
Merci de votre aide.

[bloodwolff]

Stringregexp, Si tu as de la difficulté avec le pattern tu peux toujours poster un exemple de document à analyser ici , en message privé où en email

[ludoo]

bonjour,
voici le fichier du résultat fait par le logiciel.
les USER représentent des noms de personnes, par mesure de confidentialité j'ai changé les nom par USERX.
il faudrait lire le fichier ligne par ligne ,
pour chaque info [Time,User,Pages,Copies,Printer,Document Name,Client,Paper Size,Language,Height,Width,Duplex,Grayscale,Size,] trouvée les mettre ds une variable (un tableau ?),
puis lire le tableau , ça peut être une piste de script ?

[mikell]

Dans ton log les infos sont séparées par des virgules, donc les funcs FileReadLine() puis StringSplit($line, ",") me paraissent adaptées, sommairement ça donnerait :

Code : Tout sélectionner

$file = FileOpen("log_spooler.txt", 0)
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$var = StringSplit($line, ",")
If StringInStr($line, $var[2]) Then ....  ; <== $var[2] c'est l'user
Wend
FileClose($file)

[jchd]

Un p'tite base SQLite ?
Allez, dis-moi si ça te va.

► Afficher le texte

#include <SQLite.au3>
#include <SQLite.Dll.au3>

Local $file = @ScriptDir & '\log_spooler.txt'

_SQLite_Startup()
Local $hDb = _SQLite_Open(@ScriptDir & "\SpoolLog.db3")
_SQLite_Exec($hDb, "CREATE TABLE if not exists Log (" & _
" Id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
" Date CHAR," & _
" User CHAR," & _
" Pages INTEGER," & _
" Copies INTEGER," & _
" Printer CHAR," & _
" Document CHAR," & _
" Client CHAR," & _
" Paper CHAR," & _
" Language CHAR," & _
" Height INTEGER," & _
" Width INTEGER," & _
" Duplex BOOLEAN," & _
" Grayscale BOOLEAN," & _
" SizeKb INTEGER," & _
" CONSTRAINT ksUniq UNIQUE(Date, User, Printer, Document) ON CONFLICT REPLACE);" & _
"CREATE INDEX if not exists ixDate ON Log (Date);" & _
"CREATE INDEX if not exists ixUser ON Log (User);" & _
"CREATE INDEX if not exists ixPrinter ON Log (Printer);")

Local $aLines, $res
_FileReadToArray($file, $aLines)
For $line In $aLines
$res = StringRegExp($line, '([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),"([^,]*)",([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*)kb,?', 1)
If Not @error Then
$res[11] = Number($res[1] = 'DUPLEX')
$res[12] = Number($res[12] = 'GRAYSCALE')
_SQLite_Exec($hDb , "insert into log ( date, user, pages, copies, printer, " & _
"document, client, paper, language, height, " & _
" width, duplex, grayscale, sizeKb) " & _
"values (" & X($res[0]) & XX($res[1]) & ZZ($res[2]) & ZZ($res[3]) & XX($res[4]) & _
XX($res[5]) & XX($res[6]) & XX($res[7]) & XX($res[8]) & ZZ($res[9]) & _
ZZ($res[10]) & ZZ($res[11]) & ZZ($res[12]) & ZZ($res[13]) & ");")
EndIf
Next

Local $rows, $nrows, $ncols

$res = _SQLite_GetTable2d($hDb, "select Printer, total(pages * copies) as [Pages imprimées], total(sizekb) as [Taille] from log group by printer order by [Pages imprimées] desc;", $rows, $nrows, $ncols)
_ArrayDisplay($rows, "Totaux par imprimante")

$res = _SQLite_GetTable2d($hDb, "select user as [Utilisateur], total(pages * copies) as [Pages imprimées], total(sizekb) as [Volume imprimé] from log group by user order by [Pages imprimées] desc;", $rows, $nrows, $ncols)
_ArrayDisplay($rows, "Copies par utilisateur")

_SQLite_Close($hDb)
_SQLite_Shutdown()


Func X($s)
Return ("'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc ;==>X

Func XX($s)
Return (",'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc ;==>XX

Func Y($s)
Return ("X'" & Hex($s) & "'")
EndFunc ;==>Y

Func YY($s)
Return (",X'" & Hex($s) & "'")
EndFunc ;==>YY

Func Z($s)
Return (Number($s))
EndFunc ;==>Z

Func ZZ($s)
Return ("," & Number($s))
EndFunc ;==>ZZ

L'avantage est que tu peux faire des stats bien plus pointues, par type d'emploi, par tous les critères imaginables.

[mikell]

jchd, je vais garder ce modèle de script (même si je ne suis pas sûr de l'utiliser souvent)
Décidément, un p'tit tuto SQLite, ça serait bien...

[jchd]

Oui, ça serait bien. Finaliser la compta de la boîte (très en retard) serait bien aussi !

[mikell]

La vie est un chemin semé d'embûches et de choix cornéliens

[ludoo]

merci à vous pour les info et le script
un tuto sur SQLlite serait bienvenue
je voudrais afficher , l'user et le nombre de copie en A4 et A3 , je sais pas comment faire.

[jchd]

Essaye ce pavé :

► Afficher le texte

$res = _SQLite_GetTable2d($hDb, "select user as [Utilisateur], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A3') as [Pages A3 imprimées], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A4') as [Pages A4 imprimées] from log L group by user, paper order by [Pages A3 imprimées] + [Pages A4 imprimées] desc;", $rows, $nrows, $ncols)
_ArrayDisplay($rows, "Copies par utilisateur")
;; cette MsgBox fait moche à cause de la police proportionnelle, c'est juste pour donner des idées.
MsgBox(0, "Gâchis d'arbres", _SQLite_Display2DResult($rows,20, 1))

Tu trouveras un affichage de tableaux en HTML en faisant une recherche sur ce forum. Il y a des possibilités pour faire à peu près tout ce dont tu as besoin.

[ludoo]

encore merci
je vais faire tour sur le forum pour le HTML , je vais utiliser ce script pour renseigner un fichier excel.

[jchd]

Argh ! Enfin, c'est ton choix.

[ludoo]

c plus simple et j'aurais aussi des graphiques.

[jchd]

Dans ce cas, exporte le tableau résultant de la lecture du .csv dans Excel avec l'UDF qui va bien.

[ludoo]

Bonjour,
dans cette requête je vois pas comment remplacer le nom de l'imprimante (LEXMARK-E352DN-RDC-01) par une variable

Code : Tout sélectionner

$res = _SQLite_GetTable2d($hDb, "select user as [Utilisateur], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A3') as [Pages A3 imprimées], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A4') as [Pages A4 imprimées] from log L where printer = 'LEXMARK-E352DN-RDC-01' group by user ;", $rows, $nrows, $ncols)

merci de votre aide.

[jchd]

Voyons ça :

Code : Tout sélectionner

local $ThePrinter = 'LEXMARK-E352DN-RDC-01'
$res = _SQLite_GetTable2d($hDb, "select user as [Utilisateur], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A3') as [Pages A3 imprimées], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A4') as [Pages A4 imprimées] from log L where printer = "&X($ThePrinter)&" group by user ;", $rows, $nrows, $ncols)

La fonction X($str) figure dans un post antérieur dans ce fil et sert à gérer les quotes éventuellement présentes dans la chaîne à transmettre à SQLite, pour éviter tout souci.

[ludoo]

merci.

[ludoo]

probleme de boucle
voici les bouts de code :

Code : Tout sélectionner

Func BE()
;~ Local $rows, $nrows, $ncols, $aUser, $MatchGroup
; Open Connection to the Active Directory
_AD_Open()
ReqBD_BE_1()
ResBE()
ReqBD_BE_2()
ResBE()
; Close Connection to the Active Directory
_AD_Close()

_SQLite_Close($hDb)
_SQLite_Shutdown()
EndFunc ;==>BE

la fonction ReqBD_BE_1() requete SQL , la fonction ResBE extraction des données de la requete ReqBD_BE_1()

code ResBE:

Code : Tout sélectionner

Func ResBE()
;~ Local $rows, $nrows, $ncols, $aUser, $MatchGroup
    for $i = 0 to $rows
;~ for $i = 0 to $rows step 1
    $i = $i +1
;~ MsgBox(0,"user","user "&$rows[$i][0] & "   nbs pages "&$rows[$i][2])
    $user = $rows[$i][0]
;~  $user = $rows[$i][$i]
    $pageA4 = $rows[$i][2]
    $pageA3 = $rows[$i][1]
;~  MsgBox(0,"user","user "&$user)
;~  MsgBox(0,"user","nbs pages "&$page)
;~  $aUser = _AD_RecursiveGetMemberOf($user, 10, 1)
    $aUser = _AD_GetUserGroups($user)
    If @error > 0 Then
        MsgBox(64, "Active Directory Functions - Example 1", "User '" & $user & "' has not been assigned to any group")
    Else
    ; For groups that are inherited, the return is the FQDN of the group or user, and the FQDN(s) of the group(s) it
    ; was inherited from, seperated by '|'
;~  _ArrayDisplay($aUser, "Active Directory Functions - Example 1 - Group names user '" & $user & "' is a member of")
    for $j = 1 to $aUser[0]

;~  MsgBox(0,"group user","user member of group "&$aUser[$j])
    $filegroup = FileOpen("groupBE.txt",1)
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf
    FileWriteLine($filegroup, $aUser[$j] & @CRLF)
    FileClose($filegroup)



    Next
    EndIf
    $filegroup = FileOpen("groupBE.txt",0)
    while 1
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf
    $rFile = FileReadLine($filegroup)
    If @error = -1 Then ExitLoop
    $cn = StringSplit($rFile, ",")
;~  MsgBox(0, "group", $rFile)
;~  MsgBox(0, "group cn=", $cn[1])
    if $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Or $cn[1] = "CN=xxxx" Then
        $filecount = FileOpen("countBE.txt",1)
        FileWriteLine($filecount, $pageA4)
        FileWriteLine($filecount, $pageA3)
        FileClose($filecount)
        ExitLoop
    EndIf

;~  FileClose($filegroup)
    WEnd
    FileClose($filegroup)

Next
EndFunc ;==> ResBE

lors de l'exécution de la première fonction "ReqBD_BE_1()" et "ResBE()" pas de probleme , par contre quand il passe à la 2eme fonction "ReqBD_BE_2()" , message d'erreur :
Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$user = $rows[$i][0]
$user = ^ ERROR

d'ou peut venir le probleme , j'ai changé l'ordre d'exécution des fonctions , cela reproduit le même probleme pour la 2eme fonction qui suit .

[jchd]

N'ayant pas le code de tes fonctions de requête, j'ai du mal à localiser le problème avec précision.
Par contre, je vois que tu passes à ta fonction d'exploitation des résultats un paramètre $nrows qui, selon toute bonne logique intuitive, serait le nombre de rangées du résultat. Tu te lances illico dans une boucle For $i = 0 to $rows, qui comprend $nrows + 1 éléments ... d'où un sérieux doute sur la borne $nrows employée. Change cette ligne par For $i = 0 to $rows - 1 et dis-nous si ça explose encore.

[ludoo]

voici le code de la requete :

Code : Tout sélectionner

Func ReqBD_BE_1()
$res = _SQLite_GetTable2d($hDb, "select user as [Utilisateur], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A3') as [Pages A3 imprimées], (select total(pages * copies) from log G where L.user = G.user and g.paper = 'A4') as [Pages A4 imprimées] from log L where printer = "& X($impBE1)&" group by user ;", $rows, $nrows, $ncols)
EndFunc

même erreur avec

Code : Tout sélectionner

For $i = 0 to $rows - 1