Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Get all procedure names in a project
Message
 
 
À
06/01/2009 17:01:01
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:
01371517
Vues:
22
Thanks a lot.

>>>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 
>                  *// lavcxlist[xxx,1] is the class name plus method ie myclass.mymethod.
>                  *// lavcxlist[xxx,2]  is the line number the class.method starts. 
>                  *// you can use  EDITSOURCE to go directly to the code. 
>                  EDITSOURCE("myprgname.prg",lavcxlist[xxx,2],GETWORDNUM(lavcxlist[xxx,1],2,"."))
>>
>>                                        *Yes, I was thinking along these lines, but we need to extract the methods' names 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.
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform