| 发表于:2007-07-29 15:13:371楼 得分:8 |
msdn说: 下面的示例使用 xmltextwriter 创建 xml 输出。 [visual basic] shared sub writequote(writer as xmlwriter, symbol as string, price as double, change as double, volume as long) writer.writestartelement( "stock ") writer.writeattributestring( "symbol ", symbol) writer.writeelementstring( "price ", xmlconvert.tostring(price)) writer.writeelementstring( "change ", xmlconvert.tostring(change)) writer.writeelementstring( "volume ", xmlconvert.tostring(volume)) writer.writeendelement() end sub 'writequote public shared sub main() dim writer as new xmltextwriter(console.out) writer.formatting = formatting.indented writequote(writer, "msft ", 74.125, 5.89, 69020000) writer.close() end sub 'main 输出 <stock symbol= "msft "> <price> 74.125 </price> <change> 5.89 </change> <volume> 69020000 </volume> </stock> | | |
|