Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Get all procedure names in a project
Message
De
06/01/2009 16:49:36
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
 
À
06/01/2009 16:40:50
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01371489
Message ID:
01371510
Vues:
19
Ok, that is very cool. I'll need to do a little research, but that looks like a winner.

UPDATE: But where did you come up with the aaa.Files.Count and the aaa.Files.Item[] properties? I do not see them when I debug the _vfp.ActiveProject object.

>How about this
>
>LOCAL laproclist[1],lavcxlist[1], lnRes, lnx
>aaa= _vfp.ActiveProject
>	
>FOR lnx = 1 TO aaa.Files.Count 
>	dd=aaa.Files.Item[lnx]
>	DO CASE
>	CASE dd.type = "V"
>		lnRes = AVCXCLASSES(lavcxlist,JUSTFNAME(dd.name))
>		*// Process here 
>	CASE dd.type = "P"		
>		lnRes = APROCINFO(laproclist,JUSTFNAME(dd.name))
>		*// Process here 
>	OTHERWISE
>
>	ENDCASE
>NEXT 
>
>
>
>>>>We had, well, let's just say, a questionable procedure name popup on a client's PC as part of an error message. We now need a way to find all the procedure/function names in our system and review them. Any reasonably easy way to do that?
>>>
>>>Take a look at APROCINFO function to see if it helps you
>>
>>That was cool, but I need to traverse the entire project and files.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform