Discussion :

[amans]

Bonjour,

J'explique ma demande....(sachant que jsuis un peu minable en vbs...)
J'aimerai pouvoir chercher dans un txt une chaine de caractere et avoir comme réponse la ligne en entier où se trouve le resultat.

En fait j'ai créé un script qui liste les imprimantes sur les différents serveurs d'impression et je me retrouve avec un txt contenant des lignes du style SRV\IMP

Exemple de ligne : MEPINF038\LAFF2032I

J'aimerai donc que la recherche sur "2032" me retourne la ligne "MEPINF038\LAFF2032I"

Merci de votre aide

[SfJ5Rpw8]

le txt... c'est quoi ..? un fichier texte..? ..c'est pas plus simple de chercher l'imprimante au moment ou tu établi ta liste (pour cela montre le code de génération de ta liste..)..

[amans]

oui c'est bien un fichier texte

et la raison pour laquelle je n'intègre pas la recherche dans le listage des imprimantes, c'est que je ne veux pas lister tout les 10 mn
Il y a plusieurs serveurs d'impression, plusieurs milliers d'imprimantes et je ne serais pas le seul à avoir besoin de cet outils.
Donc je me suis fait un ptit outil pour créer le fichier texte listant les imprimantes (j'aurai juste à le mettre à jour de temps en temps si on trouve pas l'imprimante parcequ'elle viendrait d'être rajoutée...), il ne me reste plus que de pouvoir faire une recherche dans ce fichier texte et me retourner la ligne en entier.

Exactement, le top de ce que je veux faire c'est faire un script qui lance une fenêtre te demandant l'identification de l'imprimante.... "2032" dans notre exemple, puis que ce script fasse la recherche dans le fichier texte et me retourne toutes les occurences trouvées en me les affichant avec le reste de la ligne correspondant dans une boîte de dialogue par exemple... "MEPINF038\LAFF2032I" dans notre exemple.

J'espère que j'ai été assez clair

Merci de ton aide en tout cas

[SfJ5Rpw8]

essai d'adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Call ChercheImprimante("MEPINF038\LAFF2032I","D:\Tmp\Maliste.txt")
 
Sub ChercheImprimante(stNom,stFichier)
 Dim Fso 'As New FileSystemObject
 Dim t 'As TextStream
 Dim st 'As String 'Ligne lue
  Dim stRes 'As String ' chaine resultat
 Set fso =  CreateObject("Scripting.FileSystemObject")
 Set t = Fso.OpenTextFile(stFichier)
  st = t.ReadLine
 While Not t.AtEndOfStream
 
 
    If InStr(1, st, stNom) > 0 Then
       stRes = stRes & st & vbCrLf
    End If
 
    st = t.ReadLine
 Wend
 MsgBox stRes
End Sub

[amans]

Merci de ton aide

Quelques petites adaptations et tout fonctionne à merveille

[amans]

Encore moi

Encore un ptit soucis.... il ne me lit pas la dernière ligne... du moins si je fais une recherche sur un des termes contenu dans la dernière ligne il ne me le trouve pas.

Encore besoin d'un peu d'aide

Merci

[wape]

Bonsoir,

Essaye comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ChercheImprimante(stNom, stFichier)
 Dim Fso 'As New FileSystemObject
 Dim t 'As TextStream
 Dim st 'As String 'Ligne lue
 Dim stRes 'As String ' chaine resultat
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set t = Fso.OpenTextFile(stFichier)
 While Not t.AtEndOfStream
    st = t.ReadLine
    If InStr(1, st, stNom) > 0 Then
       stRes = stRes & st & vbCrLf
    End If
 Wend
 MsgBox stRes
End Sub

wape

[amans]

Nickel !! Ca fonctionne parfaitement

Merci à tout les deux