Changeset 451 for trunk/Include/Classes/System/Xml/XmlDocument.ab

Timestamp:

Mar 3, 2008, 8:38:25 PM (17 years ago)

Author:

dai

Message:

XmlDocument.Saveメソッドを実装。
Xml文書生成処理を改良。

File:

• trunk/Include/Classes/System/Xml/XmlDocument.ab (modified) (2 diffs)

trunk/Include/Classes/System/Xml/XmlDocument.ab

@@ -37 +37 @@
     'End Sub
 
+
+    '----------------------------------------------------------------
+    ' パブリック プロパティ
+    '----------------------------------------------------------------
+
+    /*!
+    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
+    @return このノードとそのすべての子ノードを格納しているマークアップ。
+    */
+    Override Function OuterXml() As String
+        Return This.InnerXml
+    End Function
+
+
+    '----------------------------------------------------------------
+    ' パブリック メソッド
+    '----------------------------------------------------------------
+
     /*!
     @brief  指定した値を使用して、XmlDeclaration ノードを作成します。
@@ -68 +86 @@
 
     /*!
-    @brief  このノードとそのすべての子ノードを表すマークアップを取得します。
-    @return このノードとそのすべての子ノードを格納しているマークアップ。
+    @brief  指定した文字列を使用してテキストノードを作成します。
+    @param  text 文字列。
     */
-    Override Function OuterXml() As String
-        Return This.InnerXml
+    Function CreateTextNode( text As String ) As XmlText
+        Return New XmlText( text, This )
     End Function
+
+    /*!
+    @brief  指定したストリームにXML文書を保存する。
+    @param  stream 保存先のストリーム。
+    */
+    Virtual Sub Save( outStream As System.IO.Stream )
+        Dim xmlStr = InnerXmlSupportedIndent( True )
+        outStream.Write( xmlStr.StrPtr As *Byte, 0, xmlStr.Length * SizeOf( StrChar ) )
+    End Sub
+
+    /*!
+    @brief  指定したファイルにXML文書を保存する。
+    @param  ファイルパス。
+    */
+    Virtual Sub Save( filename As String )
+        Dim fileStream As System.IO.FileStream( filename, System.IO.FileMode.Create )
+        Save( fileStream )
+    End Sub
 
 End Class