vb 对象到xml的存入和读取

最新推荐文章于 2022-01-24 16:42:48 发布

dxm809

最新推荐文章于 2022-01-24 16:42:48 发布

阅读量233

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/dxm809/article/details/107242471

版权

VB 专栏收录该内容

13 篇文章 1 订阅

订阅专栏

    Public Function SaveConfigToFile(Of T)(ByVal strFilePath As String, ByVal data As T) As Boolean
        Dim objStreamWriter As New StreamWriter(strFilePath)
        Try
            Dim xsSerialize As New XmlSerializer(data.GetType)
            xsSerialize.Serialize(objStreamWriter, data)
            objStreamWriter.Close()
        Catch ex As Exception
            objStreamWriter.Close()
            Return False
        End Try
        Return True
    End Function

    Public Function ReadConfigFromFile(Of T)(ByVal strFilePath As String, ByRef data As T) As Boolean
        Dim objStreamReader As New StreamReader(strFilePath)
        Try
            Dim xsDeserialize As New XmlSerializer(data.GetType)
            data = xsDeserialize.Deserialize(objStreamReader)
            objStreamReader.Close()
        Catch ex As Exception
            objStreamReader.Close()
            Return False
        End Try

        Return True
    End Function