タイトル | : Re^2: INIファイルのかわりは? |
記事No | : 561 |
投稿日 | : 2003/11/25(Tue) 09:28 |
投稿者 | : JYUN |
[OSのVer]:Windows [VBのVer]:VB.NET いろいろ調べて以下の様にやってみたのですが、書込んだ後、コメントが 消えてしまうのですがどうしてなのでしょうか?
[XML ファイル] <?xml version="1.0" encoding="shift_jis" standalone="yes"?&g t; <INK> <!-- AAA --> <System> <AppPath>D:\Release\</AppPath> </System> </INK> ----------------------------------------------------------------- [書込み] Call WriteXmlString("System", "AppPath", gintStartCt.ToString)
Public Function ReadXmlString(ByVal MainKey As String, ByVal SubKey As String, _ ByVal DefString As String) As String
Dim FilePath As String Dim dsXml As DataSet
Try FilePath = gstrAppPath & gcstrAppName & ".xml" dsXml = New DataSet("XML") dsXml.ReadXml(FilePath) Return dsXml.Tables(MainKey).Rows(0).Item(SubKey).ToString Catch ex As Exception Return DefString Finally dsXml.Dispose() End Try
End Function -----------------------------------------------------------------------------
|