タイトル : Re^2: INIファイルのかわりは? 投稿日 : 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 ----------------------------------------------------------------------------- |