Estoy Programando

Aún no sé muy bien de qué va esto del NAnt, a ver si estos agobios me dejan respirar un poco. Mientras, ahí va un trozo de código (macro de VS.NET) que creo no va desencaminado con esto. Lo que hace es destripar el código fuente para identificar sus clases, métodos, variables, etc (Primer paso para hacer un add-in de QA, por ejemplo). Es versión 0.0.0.0.0.0.0.1 ;-) pero funciona. Que me perdonen los de C#, pero mi proyecto actual es en VB.NET. Salu2 a to2

Imports EnvDTE
Imports System.Diagnostics

Public Module CodeWatcher

Public Sub ScanAllProjects()
Dim oProject As Project
Dim oProjectItem As ProjectItem
Dim oCodeModel As CodeModel
Dim oCodeElement As CodeElement

For Each oProject In DTE.Solution.Projects
Debug.WriteLine("-------------------------------------------------------------")
Debug.WriteLine("PROJECT: " & oProject.Name)
Debug.WriteLine("-------------------------------------------------------------")
'For Each oProjectItem In oProject.ProjectItems
' Debug.WriteLine("FILE: " & oProjectItem.Name)
' oCodeModel = oProjectItem.FileCodeModel
'Next

oCodeModel = oProject.CodeModel
' Look for all the namespaces and classes
For Each oCodeElement In oCodeModel.CodeElements
ProcessCodeElement(oCodeElement)
Next
Next
End Sub

Private Sub ProcessCodeElement(ByVal oCodeElement As CodeElement)
Dim oCodeElementChild As CodeElement
Dim oCodeFunction As CodeFunction
Dim oEditPoint As EditPoint
Dim sSourceCodeFunction As String
Dim bProcessChildren As Boolean

Select Case oCodeElement.Kind
Case vsCMElement.vsCMElementClass
Debug.WriteLine("CLASS: " & oCodeElement.Name & ". NumLines=" & (oCodeElement.EndPoint.Line - oCodeElement.StartPoint.Line + 1))
bProcessChildren = True
Case vsCMElement.vsCMElementModule
Debug.WriteLine("MODULE: " & oCodeElement.Name)
bProcessChildren = True
Case vsCMElement.vsCMElementFunction
Debug.WriteLine("Function: " & oCodeElement.Name & ". NumLines=" & (oCodeElement.EndPoint.Line - oCodeElement.StartPoint.Line + 1))
oCodeFunction = CType(oCodeElement, CodeFunction)
oEditPoint = oCodeFunction.StartPoint.CreateEditPoint()
sSourceCodeFunction = oEditPoint.GetText(oCodeFunction.EndPoint)
Debug.WriteLine(sSourceCodeFunction)
bProcessChildren = False

Debug.WriteLine("Function Access: " & oCodeFunction.Access.ToString)
Debug.WriteLine("Function FunctionKind: " & oCodeFunction.FunctionKind.ToString)
Debug.WriteLine("Function IsOverloaded: " & oCodeFunction.IsOverloaded)
Debug.WriteLine("Function IsShared: " & oCodeFunction.IsShared)
Debug.WriteLine("Function MustImplement: " & oCodeFunction.MustImplement)
Debug.WriteLine("Function Prototype: " & oCodeFunction.Prototype)
Debug.WriteLine("Function ReturnType: " & oCodeFunction.Type.AsString)
Debug.WriteLine("Function Number of parameters: " & oCodeFunction.Parameters.Count)

Case vsCMElement.vsCMElementEvent
Debug.WriteLine("Event: " & oCodeElement.Name & ". NumLines=" & (oCodeElement.EndPoint.Line - oCodeElement.StartPoint.Line + 1))
bProcessChildren = False
Case vsCMElement.vsCMElementEnum
Debug.WriteLine("Enum: " & oCodeElement.Name & ". Line=" & oCodeElement.StartPoint.Line)
bProcessChildren = True
Case vsCMElement.vsCMElementVariable
Debug.WriteLine("Variable: " & oCodeElement.Name & ". Line=" & oCodeElement.StartPoint.Line)
bProcessChildren = False
End Select

If bProcessChildren Then
For Each oCodeElementChild In oCodeElement.Members ' Not present in intellisense without casting
ProcessCodeElement(oCodeElementChild)
Next
End If
End Sub

End Module

Muchas Gracias Emilio, ya podria la gente colaborar como tu.

NAnt es un sistema para automatizar builds, y muchas cosas más.

La idea es sacar las métricas al generar las builds, y asi ver la evolución del proyecto.

Si te interesa pasate por mi Workspace de GotDotNet...

Volo, non valeo - I am willing but unable

Credula vitam spes fovet et melius cras fore semper dicit - Credulous hope supports our life, and always says that tomorrow will be better. (Tibullus)

Vestigia terrent - The footprints frighten me. (Horace)

Sequens mirabitur aetas - The following age will be amazed

Doctors and lawyers must go to school for years and years, often with
little sleep and with great sacrifice to their first wives.
-- Roy G. Blount, Jr.
paxil

Credite amori vera dicenti - Believe love speaking the truth. (St. Jerome)

1861 You can buy viagra from this site :http://www.ed.greatnow.com

8806 Why is Texas holdem so darn popular all the sudden?

http://www.texas-holdem.greatnow.com

Gloria virtutis umbra - Glory (is) the shadow of virtue

1191 ok you can play online poker at this address : http://www.play-online-poker.greatnow.com

4805 you can buy tramadol online.

http://www.tramadol.owns1.com

7097 Get your online poker fix at http://www.onlinepoker-dot.com

Are there those in the land of the brave
Who can tell me how I should behave
When I am disgraced
Because I erased
A file I intended to save?
fioricet

7197 black jack is hot hot hot! get your blackjack at http://www.blackjack-dot.com

1909 black jack is hot hot hot! get your blackjack at http://www.blackjack-dot.com

4259 so theres Krankenversicherung and then there is
Krankenversicherung private and dont forget
Krankenversicherung gesetzlich and then again there is always beer

3973 Its great to experiance the awesome power of debt consolidation so hury and consolidate debt through http://www.debtconsolidation.greatnow.com pronto

2615

http://www.exoticdvds.co.uk for
Adult DVD And Adult DVDS And Adult videos Thanks and dont forget Check out the diecast model
cars at http://www.diecastdot.com

tramadol Never trust anybody whose arm is bigger than your leg.
fioricet

1172 check out the hot blackjack at http://www.blackjack-p.com here you can play blackjack online all you want! So everyone ~SMURKLE~

3005 Herie http://blaja.web-cialis.com is online for all your black jack needs. We also have your blackjack needs met as well ;-)

8671 check out http://texhold.levitra-i.com for texas hold em online action boodrow

Pro opportunitate - As circumstances allow

Magnas inter oper inops - A pauper in the midst of wealth. (Horace)

Non illigitamus carborundum - Don't let the bastards grind you down

Payday loans http://payday-loans.order.gb.com 2004 September 15 02:25:47 Credit Cards http://credit-cards.order.gb.com 2004 September 15 02:25:47 Loans http://loans.order.gb.com 2004 September 15 02:25:47 Mortgages http://mortgages.order.gb.com 2004 September 15 02:25:47 Credit http://credit.order.gb.com 2004 September 15 02:25:47

Posted by viagra at 17.09. 2004 05:30:44 for http://www.viaga-viagra.greatnow.com
powered by Viagra UK at http://www.viaga-viagra.greatnow.com on 17.09. 2004 05:30:44

17.09. 2004 05:30:44

Nullum est iam dictum quod non dictum sit prius - Nothing is said that hasn't been said before. (Terence)

There's just something I don't like about Virginia; the state.
buy cialis order cialisWhat I want is all of the power and none of the responsibility.
cialis cialis onlineThere's just something I don't like about Virginia; the state.

These are illusions of popular history which a successful religion must
promote: Evil men never prosper; only the brave deserve the fair; honesty is
the best policy; actions speak louder than words; virtue always triumphs; a
good deed is its own reward; any bad human can be reformed; religious talismans
protect one from demon possession; only females understand the ancient
mysteries; the rich are doomed to unhappiness . . .

-- From the Instruction Manual: Missionaria Protectiva
buy cialis order cialisBOFH Excuse #428:

Firmware update in the coffee machine
cialis cialis onlineThese are illusions of popular history which a successful religion must
promote: Evil men never prosper; only the brave deserve the fair; honesty is
the best policy; actions speak louder than words; virtue always triumphs; a
good deed is its own reward; any bad human can be reformed; religious talismans
protect one from demon possession; only females understand the ancient
mysteries; the rich are doomed to unhappiness . . .

-- From the Instruction Manual: Missionaria Protectiva

6944 http://www.totallyfreecreditreport.org

3912 http://www.slots-big.com slots
online casinos
poker online.
internet poker
online poker
online poker

7374 http://texas-holdem.ownsthis.com texas holdem

7790 http://www.online-casino-one.com
online casino
craps

3395 http://www.i--cialis.net
Offering Cialis with overnight delivery. Also, If your looking for generic cialis this is a good site to visit.

4025 jobs online part time jobs work online work online from home work at home work from home online jobs work at home jobs work at home business jobs
Full time jobs dental plan dental
insurance
dental insurance
plan
discount dental
plans
cheap dental
plans
individual dental
plans

4986 http://www.blackjack-1000.com
PlLAY the best blackjack-1000.com
debt consolidation only.

901 .Way to poker online.

3843 Offering online casino with overnight delivery. Also, If your looking for casino online this is a good site to visit.

2044 http://www.777-blackjack.com
online blackjack
blackjack

4738 phenterminedebt consolidation

6203
this is a great plae to play texas holdem online. feel free to try out the http://texas-holdem-a.fateback.com for big bonuses! texas holdem poker

4336
this is a great plae to play texas holdem online. feel free to try out the http://texas-holdem-a.fateback.com for big bonuses! texas holdem poker

4149 http://video-poker.ownsthis.com

this is a site for video poker. kick back, relax and online video poker.

6758 http://www.e-slots.info slots click here to play
online slots

5390 http://texas-hold-em-w.fateback.com
texas hold em
online texas hold em

1732 http://www.online-casinos-w.com
online casinos

2451 http://poker-online-a.6x.to

poker online

7576 Kona Coffee Starbucks Coffee Jamaica Blue Mountain
Coffee
coffee maker gourmet coffee green mountain coffee kenya coffee organic coffee specialty coffee folgers coffee coffee brewers costa rica coffee Tullys Coffee Millstone Coffee coffee grinder http://www.coffee-delivered.com