Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Get all procedure names in a project
Message
 
 
To
06/01/2009 16:40:50
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01371489
Message ID:
01371509
Views:
12
>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 

                                        *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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform