Private Function MakePropertyGet(ByVal line As String) As String
'Make sure we are dealing with selected text in the form of:
'Variable_Name Type Default_Value
Dim Words() As String = line.Trim().Split()
If Words.Length < 2 Then
Return "Input in invalid format! Use PropName Type Default_Value"
Else
Return "public " & Words(0) & " " & Words(1) & Words(0) & vbNewLine & _
vbTab & vbTab & "{" & vbNewLine & _
vbTab & vbTab & vbTab & "get { return " & Words(1) & "; }" & vbNewLine & _
vbTab & vbTab & "}"
End If
End Function
Public Sub CreateSimplePropertyVB()
Dim TS As TextSelection = DTE.ActiveDocument.Selection
Dim Insertion As String, Line As String
Dim Lines() As String = TS.Text.Split(vbNewLine)
For Each Line In Lines
Insertion &= MakePropertyGet(Line)
Next
TS.Delete()
TS.Insert(Insertion)
End Sub