Public Class frmMain
Dim parseNum As Integer = 1
Private Sub btnParse_Click(sender As System.Object, e As System.EventArgs) Handles btnParse.Click
Dim varsNode As TreeNode = New TreeNode("Parse #" & parseNum) 'Setup our variable node
parseNum = parseNum + 1 'Increment our parse number
For lineNum As Integer = 0 To txtEdit.Lines.Count - 1 'For each line
Dim lineText As String = txtEdit.Lines(lineNum).Trim() 'Get the text at line lineNum while trimming whitespace characters
If Not lineText.StartsWith("//") Then 'If the line is not a comment
Dim var As String = lineText.Substring(0, lineText.LastIndexOf("=")) 'Get the variable name
If Not DoesNodeExist(varsNode, var) Then 'If we have not already added a certain variable
varsNode.Nodes.Add(New TreeNode(var)) 'Add a new node with the variable
End If
End If
Next lineNum
tvwVars.Nodes.Add(varsNode) 'Finally we add our vars node
End Sub
Private Function DoesNodeExist(ByVal parent As TreeNode, ByVal text As String) As Boolean
For Each node As TreeNode In parent.Nodes 'For each child node in the provided parent
If node.Text = text Then
Return True 'If a node already exists, return true
End If
Next node
Return False 'If we have not already returned true, return false
End Function
End Class
tvwVars is my TreeView.