[R] Recherche de fichier et impression.

[Jerome]

Bonjour,


Continuant de plus en plus sur Auto It, j'avais dans l'idée de créer un script qui permettrai un gain de temps non négligeable dans le cadre de mon travail.

Le but de ce programme serait tout d'abord de rechercher les fichiers suivant une chaine de caractere qui se trouve dans leur nom (fichier pdf.).

Cependant, il y a une arborescence au niveau de mon serveur qui gère ceci.
J'explique :

Dossier parents -> Sous dossier -> Fichiers pdf
......................... -> Sous dossier -> Fichiers pdf
......................... -> Sous dossier -> Fichiers pdf
......................... -> Sous dossier -> Fichiers pdf
......................... -> Sous dossier -> Fichiers pdf
......................... -> Sous dossier -> Fichiers pdf
......................... -> Sous dossier -> Fichiers pdf

(tous les sous dossier sont dans le même dossier parent commun...)

Sachant que dans chaque sous dossiers se trouve entre 10 et 30 fichier pdf.
Bien sur une GUI que je vais creer permettra une saisit de la chaine de caractere qu'il faut rechercher dans le nom de mes fichiers (qui peuvent se trouve dans n'importe quel sous dossier).
Chaine de caractere qui se compose de 3 nombres maximums, mais sa il me semble que ce n'est pas trés utile à preciser.

Donc sa c'était la premiere partie de mon programme.

Ensuite, le travail consisterai à remonter tout les fichiers qui ont été trouver avec cette chaine et de permettre à l'utilisateur d'en choisir un. Ce qui aura pour effet d'ouvrir le fichier pdf en question, d'effectuer une recherche encore dedans (ref client ici ...) puis de l'imprimer (page en cours seulement, j'ai des fichier pdf avec plus de 7000 pages ...).

Donc voila tout ce que ferai mon programme.
L'utilisateur rentrera alors dans ma GUI la chaine de caractere, la ref client et il choisira le fichier pdf.

Je voudrais faire ce script moi même (ben oué ), mais j'aurait besoin de vos connaissance quand aux fonctions à utiliser pour :


- Rechercher dans les tous les sous dossiers ma chaine de caractere dans mes nom de fichiers pdf.
- Faire une espèce de pop up pour l'utilisateur qu'il puisse choisir le fichier pdf qu'il faut (apres le tri chaine de caractere).
- Imprimer une page en cours.


Si vous avez des liens vers des scripts, exemples ou même quelque chose pour m'aiguiller pour ces 3 points.

Je vous remercie de votre aide et bonne journée.

Jérôme.

[Tlem]

Pour la recherche de fichiers, si vous avez la dernière version de AutoIt,
je vous conseil d'utiliser ceci : http://www.autoitscript.fr/forum/viewto ... 484#p20484

Pour le popup, je pense qu'il serait plutôt judicieux de faire une petite GUI avec une ListView dans lequel vous afficherez la liste des fichiers trouvés (Koda est votre ami ).
L'utilisateur choisira le fichier qu'il convient par un simple double clic.

Pour l'impression, je pense que c'est plutôt Acrobat qui gèrera cela.
Sinon, j'ai fait un petit truc sur AutoIt et les impressions.
http://www.autoitscript.fr/forum/viewto ... =11&t=4794

[Jerome]

Bonjour Tlem.

Merci de ta réponse, sa m'avance déja beaucoup et ce matin j'ai commencé à regarder tous sa depuis plus ou moins 2 h.

Je me heurte par contre à un problème.

Comment afficher le résultat de ma recherche dans ma listview ?

Si vous avez des exemples ou des conseils à me donner, je suis preneur.

Sinon, voici mon code :

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include<Array.au3>
#include<FileListToArrayXT.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\jbellegarde\Bureau\Form1.kxf
$Form1_1 = GUICreate("Form1", 717, 384, 192, 124)
$Label1 = GUICtrlCreateLabel("RELANCE", 200, 24, 140, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 240, 144, 73, 32)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Numero de fichier :", 56, 144, 165, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Lancer", 520, 352, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Quitter", 616, 352, 75, 25, $WS_GROUP)
$ListView1 = GUICtrlCreateListView("", 352, 80, 346, 198)
GUISetState(@SW_SHOW, $Form1_1)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Input1
            $text1 = GUICtrlRead($Input1)
        Case $Button1
            lancer()
        Case $Button2
            Exit

    EndSwitch
WEnd



Func lancer()
    $ar_Array = _FileListToArrayXT ("\\Chemin\", "*"& $text1 &"*.pdf", 1, 0, True)
    _ArrayDisplay($ar_Array, "Liste fichier") 
EndFunc
 

Merci de votre aide.

[SagePourpre]

Voici un exemple de base qui utilise une recherche récursive de fichier pdf dans le dossier du script ainsi
que de tous ses sous-dossiers et qui les affiche dans une listview.

Les éléments clefs sont :

- La fonction _FileListToArrayXT afin d'effectuer notre recherche
- Une boucle (For Next) qui traitera chaque éléments un à un
- La fonction GUICtrlCreateListViewItem qui permet d'ajouter nos éléments à notre listview.
- _GUICtrlListView_DeleteAllItems qui permet d'effacer notre listview avant de la
peupler à nouveau entre chaque recherche

Exemple complet :

► Afficher le texte

Code : Tout sélectionner

#include <GuiListView.au3>
#include <Array.au3>
#include <FileListToArrayXT.au3>
Opt('GuiOnEventMode',1)
Global $base_index
$gui = GUICreate('',500,700)
GUISetOnEvent(-3,'quitter')
GUISetState()
$input = GUICtrlCreateInput('',10,10,400,30)
$rechercher = GUICtrlCreateButton('Rechercher',415,10,60,30)
GUICtrlSetOnEvent($rechercher,'rechercher_pdf')
$list = GUICtrlCreateListView('',25,50,450,640)
GUICtrlSetOnEvent(-1,'quitter')
_GUICtrlListView_AddColumn($list,'Fichiers',400)




While 1
    Sleep(1000)
WEnd

Func rechercher_pdf()
_GUICtrlListView_DeleteAllItems($list)
    Local _
    $data = GUICtrlRead($input), _
$A_pdf = _FileListToArrayXT(@ScriptDir,$data & '.pdf',1,1,True)
If @error Then Return GUICtrlCreateListViewItem('Aucun résultats',$list)

For $i = 1 To $A_pdf[0]
$item = GUICtrlCreateListViewItem($A_pdf[$i],$list)
Next
EndFunc




Func quitter()
    Exit
EndFunc
 

[Jerome]

Bonjour et merci de ta réponse.

J'ai compris ton code et l'ai utiliser dans ma GUI, sa fonctionne très bien, ma liste view se met à jour nickel

J'aurait une question plutôt basique mais qui n'est pas bloquante pour le moment.
J'ai mon input, ou je rentre la valeur a rechercher dans les fichiers pdf.

Comment puis-je dire que SI j'appuis sur ENTER après avoir saisir ma valeur dans mon input, sa lance mon script ?


Sinon j'ai vu un sujet relatif au double click dans une listview, donc je vais l'etudier un peu, mais comment dois-je dire dans mon code que si je double click sur mon fichier dans ma list view, ce fichier s'ouvre.


Edit : résolut pour le ENTER

Code : Tout sélectionner

If _IsPressed("0D") Then
                lancer()
            EndIf

Merci de votre aide

[SagePourpre]

Pour l'input, tu n'as qu'à rajouter

Code : Tout sélectionner

GUICtrlSetOnEvent($input,'rechercher_pdf')

Sinon, pour ta deuxième question, c'est plus complexe...

J'ai vu des trucs similaires pour des treeviews qui offraient une gestion
complète de tous les événements possible à l'aide de dll ...

Je vais voir si je peux trouver quelque chose d'intéressant pour la listview .

[Jerome]

Oki, merci bien j'attend ta réponse pour ce problème et je vais m'attarder sur le double click la

Edit : J'ai gerer le double click dans mon code avec un code de Tlem trouver ici : http://www.autoitscript.fr/forum/viewto ... iew#p33078

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include<Array.au3>
#include<FileListToArrayXT.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Include <Misc.au3>

Global $fDblClk = False
$Form1_1 = GUICreate("Form1", 717, 384, 192, 124)
$Label1 = GUICtrlCreateLabel("RELANCE", 200, 24, 140, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 240, 144, 73, 32)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Numero de fichier :", 56, 144, 165, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Lancer", 520, 352, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Quitter", 616, 352, 75, 25, $WS_GROUP)
$ListView1 = GUICtrlCreateListView("", 352, 80, 346, 198)
_GUICtrlListView_AddColumn($ListView1,'Fichiers',342)
$Lst_Handle = GUICtrlGetHandle(-1)
GUISetState(@SW_SHOW, $Form1_1)
GUIRegisterMsg($WM_NOTIFY, "WM_ListView_DoubleClick")
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Input1
            $text1 = GUICtrlRead($Input1)
            If _IsPressed("0D") Then
                lancer()
            EndIf
        Case $Button1
            lancer()
        Case $Button2
            Exit

    EndSwitch
    Sleep(10)

    If $fDblClk = True Then
        $fDblClk = False
        Lst_ValuesClick()
    EndIf
WEnd

Func Lst_ValuesClick()
    $SelIndex =  _GUICtrlListView_GetSelectedIndices($ListView1)
    MsgBox(0, "$SelItemTxt", _GUICtrlListView_GetItemText($Lst_Handle, $SelIndex))
EndFunc



Func lancer()
    _GUICtrlListView_DeleteAllItems($ListView1)
    $ar_Array = _FileListToArrayXT ("chmin", "*_"& $text1 &"_*.pdf", 1, 0, True)
    If @error Then Return GUICtrlCreateListViewItem('Aucun résultats',$ListView1)

    For $i = 1 To $ar_Array[0]
        $item = GUICtrlCreateListViewItem($ar_Array[$i],$ListView1)
    Next
EndFunc

Func WM_ListView_DoubleClick($hWnd, $iMsg, $wParam, $lParam)

    #forceref $hWnd, $iMsg, $wParam
    Local $tNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return
    If DllStructGetData($tNMHDR, 1) = $Lst_Handle Then
        If DllStructGetData($tNMHDR, 3) = $NM_DBLCLK Then $fDblClk = True
    EndIf
    $tNMHDR = 0
    Return $GUI_RUNDEFMSG

EndFunc

Maintenant il me faut gerer l'ouverture du fichier en question ...

[Jerome]

Trouver après une heure de recherche (j'ai pas encore manger ...)

Code : Tout sélectionner

Func Lst_ValuesClick()
    $SelIndex =  _GUICtrlListView_GetSelectedIndices($ListView1)
    ShellExecute(_GUICtrlListView_GetItemText($Lst_Handle, $SelIndex))
EndFunc
 

Cependant, ceci ne marche que si c'est le chemin complet dans ma liste view (avec : $ar_Array = _FileListToArrayXT ("chemin", "*_"& $text1 &"_*.pdf", 1, 2, True)

Cependant j'ai besoin d'afficher dans ma listView le nom du fichier, et quand je double clique dessus, sa l'ouvre.
Et pour l'ouvrir, il faut le chemin complet.

Or avec mon code, je récupère ce qui se trouve dans ma listView pour ouvrir mon fichier.

j'ai donc besoin d'associer chaque fichier avec son chemin propre (qui ne doit pas etre afficher) mais qui sera utiliser pour ouvrir le fichier en question...

En gros, modifier mon code pour pouvoir ouvrir le fichier que je souhaite quand je double clique desssus...

Si quelqu'un à une idée ...

[SagePourpre]

Hmmm... Rien ne se passait dans ton avant dernier script quand je double-cliquais sur un item.

J'ai donc fais sans...

Pour résumé ma méthode :
1. Recherche lancée avec _FileListToArray ( avec option pour un chemin
relatif plutôt que seulement un nom de fichier ). Résultat stocké dans $_A_path

2. Création d'un deuxième tableau $A_fichiers d'un index égal au premier tableau

Code : Tout sélectionner

Dim $A_fichiers[$A_path[0]+1]

3. Dans la boucle For... Next , tu ajoutes cette ligne :

Code : Tout sélectionner

$A_fichiers[$i] = StringRegExpReplace(StringTrimRight($A_path[$i],4),'.*\\','')

qui enlève les 4 derniers caractères de chaque items ( le .pdf )
et qui remplace tout le texte avant les '\' ne gardant donc que le nom du fichier.

C'est donc $A_Fichiers[$i] que l'on affiche dans la listview mais lorsqu'on récupère l'index
de notre item sélectionné, plutôt que de lancer le ShellExecute sur $A_fichiers[$index], nous
utiliserons :

Code : Tout sélectionner

ShellExecute(@scriptdir & '\' & $A_path[$index]

Exemple en code :

Code : Tout sélectionner

#include <Array.au3>
#include <FileListToArrayXT.au3>
Global $A_path,$A_fichiers

$A_path = _FileListToArrayXT(@ScriptDir,"*",1,1, True)
Dim $A_fichiers[$A_path[0]+1]

_ArrayDisplay($A_path,'Chemin relatif jusqu''au fichier') ; uniquement pour montrer le résultat


For $i = 1 To $A_path[0]
$A_fichiers[$i] = StringRegExpReplace(StringTrimRight($A_path[$i],4),'.*\\','')
; GUICtrlCreateListViewItem($A_fichiers[$i],$list)
Next
_ArrayDisplay($A_fichiers,'Seulement les noms de fichiers')

edit :

Tu devrais déclarer la variable $text1 au début de ton script.
Cela évitera la fermeture du script si tu cliques sur "Lancer" et que ton
input est vide.

[Jerome]

Hello

j'ai incorporez ce que tu ma dit dans mon script, mais sa marche pas des masses ...

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:        

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include<Array.au3>
#include<FileListToArrayXT.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Include <Misc.au3>
global $text1,$index, $lien
Global $ar_Array,$A_fichiers
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Bureau\Form1.kxf
Global $fDblClk = False
$Form1_1 = GUICreate("Form1", 717, 384, 192, 124)
$Label1 = GUICtrlCreateLabel("RELANCE", 200, 24, 140, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 240, 144, 73, 32)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Numero de fichier :", 56, 144, 165, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Lancer", 520, 352, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Quitter", 616, 352, 75, 25, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("By Jerome BELLEGARDE", 8, 352, 127, 17)
$ListView1 = GUICtrlCreateListView("", 352, 80, 346, 198)
_GUICtrlListView_AddColumn($ListView1,'Fichiers',342)
$Lst_Handle = GUICtrlGetHandle(-1)
GUISetState(@SW_SHOW, $Form1_1)
GUIRegisterMsg($WM_NOTIFY, "WM_ListView_DoubleClick")
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Input1
            $text1 = GUICtrlRead($Input1)
            If _IsPressed("0D") Then
                lancer()
            EndIf
        Case $Button1
            lancer()
        Case $Button2
            Exit

    EndSwitch
    Sleep(10)

    If $fDblClk = True Then
        $fDblClk = False
        Lst_ValuesClick()
    EndIf
WEnd

Func Lst_ValuesClick()
    $SelIndex =  _GUICtrlListView_GetSelectedIndices($ListView1)
    ;ShellExecute(_GUICtrlListView_GetItemText($Lst_Handle, $SelIndex))
    ;ShellExecute(@scriptdir & '\' & $ar_Array[$index])
    ShellExecute($lien & '\' & $ar_Array[$index])
EndFunc


Func lancer()
    _GUICtrlListView_DeleteAllItems($ListView1)
    $lien = "chemin"
    $ar_Array = _FileListToArrayXT ($lien, "*_"& $text1 &"_*.pdf", 1, 1, True)
    Dim $A_fichiers[$ar_Array[0]+1]
    If @error Then Return GUICtrlCreateListViewItem('Aucun résultats',$ListView1)

    For $i = 1 To $ar_Array[0]
        $A_fichiers[$i] = StringRegExpReplace(StringTrimRight($ar_Array[$i],4),'.*\\','')
        $item = GUICtrlCreateListViewItem($A_fichiers[$i],$ListView1)
    Next
    _ArrayDisplay($ar_Array,'Seulement les noms de fichiers')
EndFunc

Func WM_ListView_DoubleClick($hWnd, $iMsg, $wParam, $lParam)

    #forceref $hWnd, $iMsg, $wParam
    Local $tNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return
    If DllStructGetData($tNMHDR, 1) = $Lst_Handle Then
        If DllStructGetData($tNMHDR, 3) = $NM_DBLCLK Then $fDblClk = True
    EndIf
    $tNMHDR = 0
    Return $GUI_RUNDEFMSG

EndFunc

mon code sans les modif :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include<Array.au3>
#include<FileListToArrayXT.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#Include <Misc.au3>
global $text1
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\\Bureau\Form1.kxf
Global $fDblClk = False
$Form1_1 = GUICreate("Form1", 717, 384, 192, 124)
$Label1 = GUICtrlCreateLabel("RELANCE", 200, 24, 140, 37)
GUICtrlSetFont(-1, 22, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 240, 144, 73, 32)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Numero de fichier :", 56, 144, 165, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Lancer", 520, 352, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Quitter", 616, 352, 75, 25, $WS_GROUP)
$ListView1 = GUICtrlCreateListView("", 352, 80, 346, 198)
_GUICtrlListView_AddColumn($ListView1,'Fichiers',342)
$Lst_Handle = GUICtrlGetHandle(-1)
GUISetState(@SW_SHOW, $Form1_1)
GUIRegisterMsg($WM_NOTIFY, "WM_ListView_DoubleClick")
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Input1
            $text1 = GUICtrlRead($Input1)
            If _IsPressed("0D") Then
                lancer()
            EndIf
        Case $Button1
            lancer()
        Case $Button2
            Exit

    EndSwitch
    Sleep(10)

    If $fDblClk = True Then
        $fDblClk = False
        Lst_ValuesClick()
    EndIf
WEnd

Func Lst_ValuesClick()
    $SelIndex =  _GUICtrlListView_GetSelectedIndices($ListView1)
    ShellExecute(_GUICtrlListView_GetItemText($Lst_Handle, $SelIndex))
EndFunc


Func lancer()
    _GUICtrlListView_DeleteAllItems($ListView1)
    $ar_Array = _FileListToArrayXT ("chemin", "*_"& $text1 &"_*.pdf", 1, 0, True)
    If @error Then Return GUICtrlCreateListViewItem('Aucun résultats',$ListView1)

    For $i = 1 To $ar_Array[0]
        $item = GUICtrlCreateListViewItem($ar_Array[$i],$ListView1)
    Next
EndFunc

Func WM_ListView_DoubleClick($hWnd, $iMsg, $wParam, $lParam)

    #forceref $hWnd, $iMsg, $wParam
    Local $tNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return
    If DllStructGetData($tNMHDR, 1) = $Lst_Handle Then
        If DllStructGetData($tNMHDR, 3) = $NM_DBLCLK Then $fDblClk = True
    EndIf
    $tNMHDR = 0
    Return $GUI_RUNDEFMSG

EndFunc
 

PS : j'ai trouver que le probleme venait du $index dans la ligne ShellExecute($lien & '\' & $ar_Array[$index]).

L'index va corespondre à la ligne dans le _ArrayDisplay.
Car si j'ai 2 resultats, il me renvoit 2...
Si je met :
ShellExecute($lien & '\' & $ar_Array[$index + 1])
La il m'ouvre un fichier (qui est le premier), mais il m'ouvrira toujours le même...

Edit : Trouver :

Il fallait mettre :

Code : Tout sélectionner

Func Lst_ValuesClick()
    $SelIndex =  _GUICtrlListView_GetSelectedIndices($ListView1) +1
    ShellExecute($lien & '\' & $ar_Array[$SelIndex])
EndFunc
 

[SagePourpre]

Je crois déceler quelques erreurs ici et là :

Code : Tout sélectionner

$ar_Array = _FileListToArrayXT ("chemin", "*_"& $text1 &"_*.pdf", 1, 2, True)

Pourquoi "chemin" en chaîne de caractères ?
En prenant pour acquis que ton script sera exécuté dans le dossier racine d'où on doit débuter
la recherche, ça serait plutôt

Code : Tout sélectionner

$ar_Array = _FileListToArrayXT (@scriptdir, "*_"& $text1 &"_*.pdf", 1, 2, True)

Ensuite, tu utilises :

Code : Tout sélectionner

ShellExecute(@scriptdir & '\' & $ar_Array[$index])

mais dans ta fonction _FileListToArrayXT, tu as demandé à avoir les chemins complet et non relatifs
(il faut que tu mettes l'avant dernier paramètre à 1 plutôt que 2 )

Sinon, sous ça forme actuelle, tu effectues un shellexecute en donnant le chemin du script \ le chemin complet, ce
qui ne peut fonctionner.



Pour terminer, dans ta boucle :

Code : Tout sélectionner

 For $i = 1 To $ar_Array[0]
        $A_fichiers[$i] = StringRegExpReplace(StringTrimRight($ar_Array[$i],4),'.*\\','')
        $item = GUICtrlCreateListViewItem($ar_Array[$i],$ListView1)
    Next
 

Tu stockes dans ton tableau $A_fichiers à l'index $i le nom du fichier.
La ligne d'après cependant, plutôt que de créer un nouvel item avec le texte du nom de fichier, tu créés
l'item avec le nom du chemin stocké dans $ar_array plutôt que d'utiliser $A_fichiers[$i]

Ça devrait être :

Code : Tout sélectionner

 For $i = 1 To $ar_Array[0]
        $A_fichiers[$i] = StringRegExpReplace(StringTrimRight($ar_Array[$i],4),'.*\\','')
        $item = GUICtrlCreateListViewItem($A_fichiers[$i],$ListView1)
    Next
 

Je n'ai pas pu tester le résultat final avec ton script car la gestion du double-clic ne fonctionne pas du tout
chez moi. ( Win 7 64bit pro)

[Jerome]

A moi sa marche nickel.

Tout fonctionne la c'est bon, grâce a toi

Je vais jusque la recherche dans mon fichier, mais je voudrait savoir si il était possible à auto it de desceller que la recherche est terminer ou pas ??

Je sait pas trop trop si c'est possible et j'aurait besoin de vos lumières ...

Merci a +

[SagePourpre]

En fait, tant que la recherche est en cours, le script ne progresse pas et reste
sur _FileListToArrayXT.

Il serait donc facile d'ajouter une ligne sous cette fonction pour nous confirmer
que la recherche a été effectuée avec succès mais comme l'affichage des
résultats débutent tout de suite après, est-ce vraiment utile d'avoir cette
seconde confirmation ?


Si par contre tu souhaites avoir une confirmation après que l'affichage des 1500 pdf soit termniné, alors là
il n'y a qu'à ajouter ta ligne de code après la boucle For... Next

Code : Tout sélectionner

For 
; affichage de l'élément $i dans la list view
Next
; Une fois la boucle terminée, c'est que le script a lui aussi terminé d'afficher ses résultats.
; Tu peux donc ajouter un code pour te signifier que "la recherche" est terminée.
 

[Jerome]

Nom je ne parlais pas de la recherche du fichier pdf en question, mais plutot de la recherche dans le fichier avec ma ref client.

J'ai fait sa avec CTRL + F, mais je ne sait pas comment renvoyer le fait que la recherche dans ce fichier est terminer.

Ou alors il y a un autre moyen ?

[Jerome]

N'existe t'il pas une fonction qui recherche une chaine de caractère dans un fichier et qui renvois une valeur si cette chaine est trouvé ?

Merci de votre aide.

[SagePourpre]

La méthode idéale serait de lire directement à l'intérieur du fichier sans l'ouvrir avec adobe.
Le problème, c'est que l'encodage en pdf rend illisible tous les caractères.

Il faudrait être en mesure de décrypter cet encodage et il y'aurait moyen de travailler beaucoup
plus rapidement.

http://www.autoitscript.fr/forum/viewto ... &hilit=pdf
Le programme dont tlem parle sur ce sujet semble être en mesure de convertir un fichier pdf en fichier
texte. Il serait probablement plus rapide de procéder à la conversion en batch des fichiers pdf retournés en résultat
pour ensuite rechercher à l'intérieur de ceux-ci (à l'aide de fileread) plutôt que d'ouvrir acrobat pour chaque fichier
et que de lancer des CTRL+F chaque fois.

Cependant, si tu souhaites procéder avec CTRL+F, il y'a moyen, très probablement, de récupérer le texte
de la fenêtre rechercher ( qui dit "aucun résultats" ou encore "bas du document atteint" ) à l'aide de la fonction
WinGetText

[Jerome]

Le problème, c'est que je ne peut pas convertir mon pdf en texte car je perdrai pas mal d'information (code barre, numéro de page ...).

Mon besoin est d'imprimer la page ou ce trouve la ref client qui est l'objet de ma recherche.

[SagePourpre]

En fait, Je me suis mal expliqué...

Le programme sur le lien du précédent message suggéré par TLEM

prend le fichier pdf, décompresse son contenu dans un fichier texte lisible
sans pour autant modifier le fichier original.

[Jerome]

Oui mais moi le truc c'est que je veux imprimer la page en format pdf, pas en format text.

Enfin, je voit pas trés bien la ou tu veux en venir en fesant sa ...

[SagePourpre]

hmmm...

C'est sur que ça reste à tester mais je vais comparer ce que je crois que tu m'as
dit que tu voulais faire à la méthode que j'avais envisagé pour réaliser la même chose.

Une fois que nous avons les résultats et qu'on lance une recherche pour la reférence client dans les fichiers pdf.

Toi
- ouvre le fichier X
- Envoie Ctrl+F
- Envoie le mot-clef à rechercher
- lit la fenêtre de recherche pour détecter si la recherche est fructueuse ou non
- on passe au prochain fichier.



Moi
- On convertit une copie du fichier X en txt afin qu'il soit lisible par la prochaine fonction.
- On utilise FileRead pour récupérer le contenu du fichier.
- On vérifie si notre contenu à rechercher existe à l'intérieur du fichier.

Avantages
Aucun besoin d'ouvrir l'interface graphique du fichier (transparence de l'opération)
Possiblement plus rapide (tout dépendant du temps de conversions de pdf à txt lisible)

Inconvénient
Fichier texte temporaire générés


Ou encore cette troisième méthode serait peut-être à envisager :

- on copie tous les fichiers pdf correspondant au critère de recherches dans un dossier X
- ou ouvre acrobat
- CTRL+SHIFT+F
- on effectue la recherche dans le dossier ou se trouve nos copies de fichiers.





************************************

C'est comme ça que j'imaginais ça dans ma tête...

Mais si tu souhaites passer par CTRL+F, je crois que cette troisième méthode irait peut-être plus vite.
Reste à savoir si l'information que j'ai eu comme quoi CTRL+SHIFT+F permet réellement de rechercher
dans plusieurs pdf simultanément (pour acrobat)