iLogic Lines of code

[angermaier]

Hi everyone!

We want to understand, how many lines of code are in use in the documents in our file-store.

We have different rules in all kinds of documents.

Does anybody have any idea or an approach, how to find out?

Best regards,

Tobias

[angermaier]

Hi everyone!

We want to understand, how many lines of code are in use in the documents in our file-store.

We have different rules in all kinds of documents.

Does anybody have any idea or an approach, how to find out?

Best regards,

Tobias

[AlexKorzun · Accepted solution]

This code counts non-empty lines of code in all iLogic rules of the active document (ignoring comments, line continuations, etc):

Dim doc As Document = ThisDoc.Document

Dim iLogic As ApplicationAddIn = ThisApplication.ApplicationAddIns.ItemById("{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}")
Dim iLogicAuto As IiLogicAutomation = iLogic.Automation

Dim separators As Char() = System.Environment.NewLine.ToCharArray()

Dim sb As Text.StringBuilder = New Text.StringBuilder()

For Each rule As iLogicRule In iLogicAuto.Rules(doc)
	Dim text As String = rule.Text
	Dim splits As String() = text.Split(separators, StringSplitOptions.RemoveEmptyEntries)
	
	sb.Append(rule.Name).Append(" : ").Append(splits.Count).AppendLine()
Next
	
MsgBox( sb.ToString(), vbOKOnly, "Lines in " + doc.DisplayName)

[AlexKorzun · Accepted solution]

This code counts non-empty lines of code in all iLogic rules of the active document (ignoring comments, line continuations, etc):

Dim doc As Document = ThisDoc.Document

Dim iLogic As ApplicationAddIn = ThisApplication.ApplicationAddIns.ItemById("{3BDD8D79-2179-4B11-8A5A-257B1C0263AC}")
Dim iLogicAuto As IiLogicAutomation = iLogic.Automation

Dim separators As Char() = System.Environment.NewLine.ToCharArray()

Dim sb As Text.StringBuilder = New Text.StringBuilder()

For Each rule As iLogicRule In iLogicAuto.Rules(doc)
	Dim text As String = rule.Text
	Dim splits As String() = text.Split(separators, StringSplitOptions.RemoveEmptyEntries)
	
	sb.Append(rule.Name).Append(" : ").Append(splits.Count).AppendLine()
Next
	
MsgBox( sb.ToString(), vbOKOnly, "Lines in " + doc.DisplayName)

[angermaier · Accepted solution]

Hi @AlexKorzun,

thank you very much for the quick answer. Think, this will already help to get started.

Have a nice weekend!

Tobias

[angermaier · Accepted solution]

Hi @AlexKorzun,

thank you very much for the quick answer. Think, this will already help to get started.

Have a nice weekend!

Tobias