[R] Comment chercher une chaine de caractère dans un fichier

[corrs78]

J'ai besoin de vos lumières, mais connaissances en Autoit on atteint leurs limites (limite basse )

je dois trouver une chaine de caractère dans un fichier. j'ai trouvé la moyen de parcourir les lignes, mais cela fonctionne seulement si je cherche la ligne complète. Hors j'aimerais trouver seulement le numéro d'inventaire du pc dans cette ligne.

Comment faire ?

Merci à vous.

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;##################### FONCTION RECHERCHE DANS FICHIER ###########################

$windows = GUICreate ("Cherche numero inventaire UC" , 150 , 80 , ( @DesktopWidth-300 ) / 2 , ( @DesktopHeight-200 ) / 2, $WS_VISIBLE)

;Fonction de recherche numéro inventaire ordi
    $box_num_inv = GUICtrlCreateInput("", 20, 20, 60, 17)
    $bt_search = GUICtrlCreateButton(" -> ", 80, 20, 18, 18)


While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        
    Case $msg = $bt_search 
        search_user_pc()
        
    EndSelect
    WEnd
        
Func search_user_pc()
    $search_num_inv = GUICtrlRead($box_num_inv)
    
for $i = 1 to 100
$pc_liste = FileOpen("c:\test.log", 0)
    $line = FileReadLine($pc_liste, $i) ; on parcours chaque ligne du fichier TXT
   If $line = $search_num_inv then 
        MsgBox(48,"trouvé : ",$line)
        EndIf
    Next
        FileClose($pc_liste)
EndFunc
 

[jbnh]

Bonjour, a chaque ligne utilisez StringInStr (voir doc) qui veut dire string in string donc ici mot dans votre phrase.

[corrs78]

Je pense avoir compris le principe de cette fonction, mais je m'en sort pas :/

[orax]

Modifiez la fonction search_user_pc() comme ça :

► Afficher le texte

Code : Tout sélectionner

Func search_user_pc()
    $search_num_inv = GUICtrlRead($box_num_inv)

    $pc_liste = FileOpen("c:\test.log", 0)
    If $pc_liste = -1 Then
        MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
        Exit
    EndIf

    While 1
        $line = FileReadLine($pc_liste) ; on parcours chaque ligne du fichier TXT
        If @error = -1 Then ExitLoop
        If StringInStr($line, $search_num_inv) Then
            MsgBox(48, "trouvé : ", $line)
        EndIf
    WEnd

    FileClose($pc_liste)
EndFunc   ;==>search_user_pc

[corrs78]

Super merci ça fonctionne.

Par contre, curieusement, (surement logiquement) si je rajoute un "Else" pour afficher un message diffèrent en cas de réponse negative, cela ne fonctionne plus.

Est-il possible de parcourir les lignes du fichier en partant de la dernière ligne ?

merci

[Tlem]

En utilisant la fonction _FileReadToArray(), vous aurez un tableau qu'il vous sera possible de lire dans un sens comme dans l'autre.

[sylvanie]

une autre option est d'utiliser _FileCountLines pour avoir le nomnre de ligne puis utiliser le dernier paramètre optionel de FileReadLine ( filehandle or "filename" [, line] ), donc line, dans une boucle partant de la fin au début

[corrs78]

une autre option est d'utiliser _FileCountLines pour avoir le nomnre de ligne puis utiliser le dernier paramètre optionel de FileReadLine ( filehandle or "filename" [, line] ), donc line, dans une boucle partant de la fin au début

Cette solution me parait simple à mettre en œuvre, pourtant je n'y arrive pas.
j'ai mis ces paramètres dans ma boucle :

$i = _FileCountLines("c:\logon.log")

While $i <= $i - 20 ;pour limiter à 20 résultats.
$line = FileReadLine($pc_liste, $i) ; on parcours chaque ligne du fichier TXT en commençant par la fin.
If @error = -1 or $var = 2 Then ExitLoop
$resultat=StringInStr($line, -1)
If StringInStr($line, $search_srti) Then
$var = MsgBox(1, "Historique d'ouverture de session ", $result2)
$i = $i-1
EndIf
WEnd

[orax]

Erf, je n'ai pas tout compris dans votre code. Mais voilà ce que j'ai fait :

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>

Global Const $FICHIER = "C:\logon.log"
Global $search_srti = "CHAINE_A_RECHERCHER"

; ouvre le fichier
$pc_liste = FileOpen($FICHIER, 0)
If $pc_liste = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit -1
EndIf

; compte le nombre de lignes dans le fichier
$nbLignes = _FileCountLines($FICHIER)
If @error Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit -1
EndIf

; lit la dernière ligne et décrémente d'une ligne après chaque lecture
For $i = $nbLignes To $nbLignes - 20 Step -1 ;pour limiter à 20 résultats.
    $line = FileReadLine($pc_liste, $i) ; on parcours chaque ligne du fichier TXT en commençant par la fin.
    If @error = -1 Then ExitLoop

    ; recherche la chaine et affiche une MsgBox si celle-ci est trouvée
    If StringInStr($line, $search_srti) Then
        $var = MsgBox(1, "Historique d'ouverture de session ", $line)
        ConsoleWrite($var & @LF)
    EndIf
Next
 

[sylvanie]

oui, c'est plus à une bouce dans l'optique d'Orax que je pensais.

on peut aussi faire avec un while, mais celui ci : While $i <= $i - 20
retourne toujours faux : $i <= $i - 20 équivaut à 0 <= -20 ...
il faut passer par une copie intermédiaire qui reste fixe
par exple :
$ind_max = $i

puis while $i >= $ind_max -20
...
$i-=1
wend

[corrs78]

C'est curieux, ça décrémente bien maintenant , mais j'ai aucun résultat. .

En incrémentant ça fonctionne .

[Tlem]

Perso, je ne vois pas l'intérêt de passer par une boucle While puisque le nombre de ligne est connu !!!

Voici ce qui me semble plus logique (le code est tellement simple que je ne détail pas ) :

Code : Tout sélectionner

#Include <File.au3>

$File = "c:\logon.log"
$search_string = "chaine à trouver"

For $i = _FileCountLines($File) to 1 Step -1
    $line = FileReadLine($File, $i)
    If StringInStr($line, $search_string) Then
        MsgBox(64, "Chaine trouvée", "La chaine à été trouvée dans la ligne N°" & $i & " :" & @CRLF & $line)
    EndIf
Next

Et si jamais on ne veut pas continuer la recherche de la chaîne après l'avoir trouvé un première fois, il suffit de rajouter un ExitLoop juste après l'affichage de la MsgBox.

[corrs78]

Code : Tout sélectionner

#Include <File.au3>

$search_string = "43973"
$File = FileOpen("c:\logon.log", 0)
    If $File = -1 Then
        MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
        Exit
    EndIf

For $i = _FileCountLines($File) to 1 Step -1
    $line = FileReadLine($File, $i)
    If StringInStr($line, $search_string) Then
        MsgBox(64, "Chaine trouvée", "La chaine à été trouvée dans la ligne N°" & $i & " :" & @CRLF & $line)
    EndIf
Next

FileClose($File)

Merci pour ton aide Tlem, mais je dois être bête car cela ne fonctionne pas. Si jecherche le num inventaire "43973" qui se trouve plusieurs fois dans mon fichier logon, je n'ai aucune réponse en retour.

[orax]

C'est normal Mettez à la place :

Code : Tout sélectionner

For $i = _FileCountLines([b]"c:\logon.log"[/b]) to 1 Step -1

[corrs78]

Super ça fonctionne avec une boucle for.
Par contre, si je fais une recherche sur un fichier log de 3000 lignes , ça rame à fond. Le processeur souffre et ça prend presque 5 minutes pour obtenir mon résultat.

Avec la boucle while c'était instantané.

Je pense que la soluce serait de chercher dans un tableau, mais là je ne maitrise pas du tout.

je touche au but Merci à vous pour votre aide si précieuse.

[corrs78]

Super ça fonctionne avec une boucle for.
Par contre, si je fais une recherche sur un fichier log de 3000 lignes , ça rame à fond. Le processeur souffre et ça prend presque 5 minutes pour obtenir mon résultat.

Avec la boucle while c'était instantané.

Je pense que la soluce serait de chercher dans un tableau, mais là je ne maitrise pas du tout.

je touche au but Merci à vous pour votre aide si précieuse.

Pour une fois, j'ai trouvé par moi même.
En fait le problème était là :

Code : Tout sélectionner

$line = FileReadLine($pc_liste[color=#FF0000][b],$i[/b][/color])

C'est marqué dans la doc :

From a performance standpoint it is a bad idea to read line by line specifying "line" parameter whose value is incrementing by one. This forces AutoIt to reread the file from the beginning until it reach the specified line.