14 lines
347 B
VB.net
14 lines
347 B
VB.net
Public Class Pattern
|
|
Public ReadOnly Property Type As String
|
|
Public ReadOnly Property Value As String
|
|
|
|
Public Sub New(pType As String, pValue As String)
|
|
Me.Type = pType
|
|
Me.Value = pValue
|
|
End Sub
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return $"{{#{Type}#{Value}}}"
|
|
End Function
|
|
End Class
|