Discussion :

[jodan33]

Bonjour,

Voila , il y a quelque temps je maintenais une application en Delphi 7.
Mais ayant changer d'entreprise je me retrouve a faire du support .
Afin de m'alleger ma tache je souhaite créer une petite appli en Delphi 7 qui va recuperer des lignes dans un ficheir texte, si une occurence , un n° de dossier par exemple apparait dans une ligne.
J'ai fait un vbs mais je souhaiterai créer une appli delphi 7.

Code vb :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim objFso, objFile,objFolder, strPath, strExt
Dim File, Result,ligne,Texte,sChaine
'Répertoire à parcourir
'strPath = "cheminrepertoire" où on cherche les donnée
strPath = "D:\VBS_script\Scriptajo\RechData\"
'Extension à rechercher
strExt = "txt"
'Recup dans fichier txt
 
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("D:\VBS_script\Scriptajo\RechData\ecr.txt", ForWriting,true)
 
'Création du dossier pour la copie
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objFolder = objFSO.CreateFolder("D:\VBS_script\Scriptajo\RechData\result")
Set objFso = CreateObject("Scripting.FileSystemObject")
'----------
'Parcour du répertoire ligne par ligne + affichage ou ecriture dans fichier 
'----------
Call ShowFileTxtFolder(strExt)
 
Set objFso = Nothing
 
Function ShowFileTxtFolder (strExt)
For Each objFile In objFso.GetFolder(strPath).Files
    If UCase(objFso.GetExtensionName(objFile.Path)) = UCase(strExt) Then
       Set File = objFso.OpenTextFile(objfile.Path, ForReading)          
	while Not File.AtEndOfStream 
	ligne = File.Readline
	if instr(1,ligne,411002007 ) then
		f.write(ligne) & VbNewLine
 
		end if
wend
File.Close
Set File = nothing
End if   
Next
End Function 
 
WScript.Echo("Recherche terminé")

[e-ric]

Salut

Plutôt que réécrire des programmes existants (même si cela est plus exaltant..), il existe un programme gratuit qui marche pas mal, l'Agent Ransack, désolé pour la pub mais il rend bien service, surtout si on compare avec la fonction de recherche de Windaube.

@+

[Jipété]

Yep !

(...) J'ai fait un vbs mais je souhaiterai créer une appli delphi 7. (...)

Et c'est quoi la question ?

[jodan33]

Bonjour,
Merci pour vos reponses.
Effectivement mon post manque de précision quant à ce que je souhaite réaliser au final.
En fait dans mon vbs , les chemins des repertoires où je recherche , par exemple la chaine numérique "123" sont renseignés en dur.
strPath = "D:\VBS_script\Scriptajo\RechData\"
Et la chaine recherché également.
if instr(1,ligne,123 ) then

Je me suis dit qu'avec un petit formulaire fait en delphi 7.
je pouvais rentrer en parametre accessible par un utilisateur Landa:
1 : le repertoire ou je recherche une chaine numerique
2: la chaine numerique recherchée

Dans l'exemple de mon vbs , si j'ai un fichier dans lequel j'ai:
123TOTO
456
zut il est tard
lol 123 sandales
TOTO est genial 123

Si j'execute ce vbs je recupére dans le fichier : ecr.txt
123TOTO
lol 123 sandales
TOTO est genial 123

C'est exactement ce que je souhaite .
Mais,pour didactiser tout cela je cherche un petit formulaire à developper en delphi 7 pour rentrer les parametres comme l'on souhaite; plutôt que de les renseigner en dur.
Voila ma question, vu que je n'ai pas encore réinstaller ma version de delphi 7
sur ma nouvelle machine , j'espere que quelqu'un a deja une idée.
j'ai prevu de me pencher sur ce sujet , et en fait je post en prevision de mon future formulaire.
En esperant que quelqu'un ai deja fait ce genre d'exercice , j'espere ainsi gagner du temps.
Merci d'avance pour les futures reponses