You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
94 lines
2.8 KiB
94 lines
2.8 KiB
'**************************************************
|
|
' FILE : BBCodeDocument.vb
|
|
' AUTHOR : Paulo Santos
|
|
' CREATION : 4/29/2009 10:21:41 PM
|
|
' COPYRIGHT : Copyright © 2009
|
|
' PJ on Development
|
|
' All Rights Reserved.
|
|
'
|
|
' Description:
|
|
' TODO: Add file description
|
|
'
|
|
' Change log:
|
|
' 0.1 4/29/2009 10:21:41 PM
|
|
' Paulo Santos
|
|
' Created.
|
|
'***************************************************
|
|
|
|
''' <summary>
|
|
''' Represents a document writen in BBCode.
|
|
''' </summary>
|
|
Public NotInheritable Class BBCodeDocument(Of TContext As Class)
|
|
|
|
Private __Text As String
|
|
Private __Parser As BBCodeParser(Of TContext)
|
|
Private __Nodes As BBCodeNodeCollection(Of TContext)
|
|
|
|
''' <summary>Initializes an instance of the <see cref="BBCodeDocument" /> class.</summary>
|
|
''' <param name="parser">The <see cref="BBCodeParser"/> that created this instance.</param>
|
|
Friend Sub New(ByVal parser As BBCodeParser(Of TContext))
|
|
__Parser = parser
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Gets the <see cref="BBCodeParser"/> that is responsible for this <see cref="BBCodeDocument"/>.
|
|
''' </summary>
|
|
Friend ReadOnly Property Parser() As BBCodeParser(Of TContext)
|
|
Get
|
|
Return __Parser
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Gets or sets the BBCode of the document.
|
|
''' </summary>
|
|
Public Property Text() As String
|
|
Get
|
|
Return __Text
|
|
End Get
|
|
Set(ByVal value As String)
|
|
__Text = value
|
|
Nodes.Clear()
|
|
Nodes.AddRange(Me.Parser.Parse(value).Nodes)
|
|
End Set
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Gets the <see cref="BBCodeNodeCollection"/> generated ba the BBCode text.
|
|
''' </summary>
|
|
''' <value>A <see cref="BBCodeNodeCollection"/> that represents the parsed text of the document.</value>
|
|
Public ReadOnly Property Nodes() As BBCodeNodeCollection(Of TContext)
|
|
Get
|
|
If (__Nodes Is Nothing) Then
|
|
__Nodes = New BBCodeNodeCollection(Of TContext)()
|
|
End If
|
|
Return __Nodes
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Returns the formatted text.
|
|
''' </summary>
|
|
''' <returns>The formatted text.</returns>
|
|
Public Function Format(ByVal context As TContext) As String
|
|
Return Format(context, New BBCodeHtmlFormatter())
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Returns the formatted text, using the specified <see cref="ITextFormatter"/>.
|
|
''' </summary>
|
|
''' <param name="formatter">An object that implements the <see cref="ITextFormatter"/> interface.</param>
|
|
''' <returns>The formatted text.</returns>
|
|
Public Function Format(ByVal context As TContext, ByVal formatter As ITextFormatter) As String
|
|
Dim sb As New Text.StringBuilder()
|
|
For Each n In Nodes
|
|
sb.Append(n.Format(context, formatter))
|
|
Next
|
|
Return sb.ToString()
|
|
End Function
|
|
|
|
Friend Sub SetText(ByVal text As String)
|
|
__Text = text
|
|
End Sub
|
|
|
|
End Class
|
|
|