Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Search within a project
Message
De
25/11/2003 12:14:13
 
 
À
25/11/2003 12:09:07
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00853363
Message ID:
00853364
Vues:
16
Larry

Although it doesn't search through a project, just files, this is what I use:
LPARAM lcStr
LOCAL ARRAY lafiles(1, 1)
=ADIR(lafiles, "lib\*.vcx")

FOR x = 1 TO ALEN(lafiles, 1)
	USE ("lib\"+lafiles(x,1)) ALIAS CLASS IN 0
	lafiles(x,1) = JUSTSTEM(lafiles(x,1))+"found"
	SELE * FROM CLASS;
	WHERE (lcstr $ LOWER(methods) OR lcstr $ LOWER(properties));
	INTO CURSOR (lafiles(x,1))
	IF _TALLY = 0
		USE IN (lafiles(x,1))
	ENDIF
	USE IN CLASS
ENDFOR

=ADIR(lafiles, "form\*.scx")

FOR x = 1 TO ALEN(lafiles, 1)
	USE ("form\"+lafiles(x,1)) ALIAS CLASS IN 0
	lafiles(x,1) = JUSTSTEM(lafiles(x,1))+"found"
	SELE * FROM CLASS;
	WHERE (lcstr $ LOWER(methods) OR lcstr $ LOWER(properties));
	INTO CURSOR (lafiles(x,1))
	IF _TALLY = 0
	     USE IN (lafiles(x,1))
	ENDIF
	USE IN CLASS
ENDFOR
Any classes/forms (you can include prgs) that it finds will be held in a temporary cursor.

Kev

>I'm wondering if there is a utility that will search an entire project for a string of text. I'm deleting some buttons from a form and I would like to make sure there are no references to them in any of the other forms or programs. In the old spagetti code days (FoxBase, Foxpro DOS) I had a program that searched all my program code for .
>
>Thanks,
>Larry Morelli
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform