|
Dobrý den. Mám zase problém z hláškou "Odkaz není nastaven na instanci objektu". Píšu vlastní značkovací jazyk pro jednoduché psaní webu. Napsal jsem si jádro:
Public Class CoreSSS
Dim Xdoc As New XmlDocument()
Dim _Title As String
Dim _Text As String
Sub New(ByVal doc As String)
Xdoc.Load(doc)
_Title = Xdoc.SelectSingleNode("SSS/SSSProp").Attributes("Text").InnerText()
_Text = Xdoc.SelectSingleNode("SSS/SSSBody").InnerText()
End Sub
Sub Actual()
_Title = Xdoc.SelectSingleNode("SSS/SSSProp").Attributes("Text").InnerText()
_Text = Xdoc.SelectSingleNode("SSS/SSSBody").InnerText()
End Sub
''' <summary>
''' Gets the title in the file.
''' </summary>
''' <value></value>
''' <returns>Return the title.</returns>
ReadOnly Property Title() As String
Get
Dim a As String = _Title
a.Replace("%LeftBeak%", "<")
a.Replace("%RightBeak%", ">")
Return a
End Get
End Property
''' <summary>
''' Gets the text in the file.
''' </summary>
''' <value></value>
''' <returns>Return the text.</returns>
ReadOnly Property Text() As String
Get
Dim a As String = _Title
a.Replace("%LeftBeak%", "<")
a.Replace("%RightBeak%", ">")
Return a
End Get
End Property
''' <summary>
''' Text in SSS to HTML
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Function SSSToHTML() As String
Dim a As String = String.Format("<html> {0} <head> {0} <title> {0} {1} {0} </title> {0} </head> {0} <body> {0} {2} {0} </body> {0} </html>", Environment.NewLine(), Title, Text)
Return a
End Function
End Class
SSS (XML) struktura:
<SSS>
<SSSProp Title="Ahoj v Super Server Script" />
<SSSBody>
Vítejte.
Toto je první verze scriptu.
Nebo spíše alpha-verze.
Je uzavřena v značce %LeftBeak%SSSBody%RightBeak%.
Hello.
This is one version of Super Server Script.
For more alpha-version.
Is enclosed in a brand %LeftBeak%SSSBody%RightBeak%.
</SSSBody>
</SSS>
Použil jsem to takto (procedura form1_load):
V global. proměnných je: Dim csss As New CoreSSS
Form1_Load:
csss = New CoreSSS("TempFile.xml")
TitleText.Text = csss.Title
Richtextbox1.Text = csss.Text
Za odpověď budu vděčný. Po vydání této verze bude ke stažení zde (Dll knihovna jádra, prohlížeč a test. stránka: http://psom.aspone.cz/SSSCode.zip
|