Changes between Initial Version and Version 1 of オブジェクトとシリアライズ可能なXMLクラス


Ignore:
Timestamp:
Jan 31, 2007, 6:00:42 PM (13 years ago)
Author:
dai
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • オブジェクトとシリアライズ可能なXMLクラス

    v1 v1  
     1(別件でXML読み書きが必要になってきたことがあったんで、メモッときます)
     2
     3こんな使い方ができたら、とても便利かも。
     4TypeInfoクラスの実装でこのようなアプローチも可能にしたいところ。
     5
     6{{{
     7Dim obj As Object
     8' objに対して何らかの処理を行う
     9...
     10
     11' objを保存する
     12SaveObject( obj )
     13
     14' objを復旧する
     15RestoreObject( obj )
     16
     17Sub SaveObject( ByRef Const obj As Object )
     18    ' ファイル生成
     19    Dim stream As FileStream( "C:\obj.xml", FileMode.Create )
     20
     21    ' XMLで書き出し
     22    Dim serializer As XmlSerializer( stream, obj )
     23
     24    ' ファイルクローズ
     25    stream.Close()
     26End Sub
     27
     28Sub RestoreObject( ByRef obj As Object )
     29    Dim serializer As XmlSerializer( GetType( Object ) )
     30
     31    ' ファイルオープン
     32    Dim stream As FileStream( "C:\obj.xml", FileMode.Open )
     33
     34    ' オブジェクトを復元
     35    obj = serializer.Deserialize( stream )
     36
     37    ' ファイルクローズ
     38    stream.Close()
     39End Sub
     40}}}
     41
     42参考URL:[[BR]]
     43http://www.atmarkit.co.jp/fdotnet/easyxml/easyxml09/easyxml09_01.html