Last change
on this file since 439 was 424, checked in by dai, 17 years ago |
System.Xml関連のクラスを仮実装してみた(まだ満足な機能レベルではない…)。
|
File size:
370 bytes
|
Line | |
---|
1 | Namespace XmlTest
|
---|
2 |
|
---|
3 |
|
---|
4 | Sub TestMain()
|
---|
5 | Dim doc = New System.Xml.XmlDocument()
|
---|
6 | doc.AppendChild( doc.CreateXmlDeclaration( "1.0", "UTF-8", Nothing ) )
|
---|
7 | doc.AppendChild( doc.CreateElement( "root" ) )
|
---|
8 | doc.ChildNodes[1].AppendChild( doc.CreateElement( "test" ) )
|
---|
9 | System.Diagnostics.Debug.WriteLine( doc.OuterXml() )
|
---|
10 | End Sub
|
---|
11 |
|
---|
12 |
|
---|
13 | End Namespace
|
---|
14 |
|
---|
15 | XmlTest.TestMain()
|
---|
Note:
See
TracBrowser
for help on using the repository browser.