csdn_xml_tips.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Imports System.Xml

Public Class CSDN_XML_TIPS
    ' Fields
    Private _CSDNXmlDoc As XmlDocument
    Private _Issue As C_CSDN
    Private _Replys As ArrayList
    ''' <summary>
    ''' 回复列表
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks>每个回复作为一个ArrayList中的一个项目</remarks>
    Public Property Replys() As ArrayList
        Get
            Return Me._Replys
        End Get
        Set(ByVal value As ArrayList)
            Me._Replys = value
        End Set
    End Property

    ''' <summary>
    '''主题
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property Issue() As C_CSDN
        Get
            Return Me._Issue
        End Get
        Set(ByVal value As C_CSDN)
            Me._Issue = value
        End Set
    End Property

    ''' <summary>
    ''' 本身的XMLdoc
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property CSDNXmlDoc() As XmlDocument
        Get
            Return Me._CSDNXmlDoc
        End Get
        Set(ByVal value As XmlDocument)
            Me._CSDNXmlDoc = value
        End Set
    End Property


    ''' <summary>
    ''' 节点转化成CSDN类
    ''' </summary>
    ''' <param name="XmlNodes"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function procXml(ByVal XmlNodes As XmlNode) As C_CSDN
        Dim c As New C_CSDN
        c.Content = XmlNodes.Item("Content").InnerText.Trim
        c.credit = XmlNodes.Item("credit").InnerText.Trim
        c.Point = CType(Integer.Parse(XmlNodes.Item("Point").InnerText.Trim), Decimal)
        c.PostDateTime = DateTime.Parse(XmlNodes.Item("PostDateTime").InnerText.Trim)
        c.PostUserId = CType(Integer.Parse(XmlNodes.Item("PostUserId").InnerText.Trim), Decimal)
        c.PostUserName = XmlNodes.Item("PostUserName").InnerText.Trim
        c.PostUserNickName = XmlNodes.Item("PostUserNickName").InnerText.Trim
        c.rank = XmlNodes.Item("rank").InnerText.Trim
        c.ranknum = XmlNodes.Item("ranknum").InnerText.Trim
        If (XmlNodes.Item("ReplyID") Is Nothing) Then
            c.EndState = XmlNodes.Item("EndState").InnerText.Trim
            c.ReadNum = XmlNodes.Item("ReadNum").InnerText.Trim
            c.ReplyNum = CType(Integer.Parse(XmlNodes.Item("ReplyNum").InnerText.Trim), Decimal)
            c.RoomId = CType(Integer.Parse(XmlNodes.Item("RoomId").InnerText.Trim), Decimal)
            c.RoomName = XmlNodes.Item("RoomName").InnerText.Trim
            c.TopicName = XmlNodes.Item("TopicName").InnerText.Trim
            c.TopicId = CType(Integer.Parse(XmlNodes.Item("TopicId").InnerText.Trim), Decimal)
            Return c
        End If
        c.TopicId = Decimal.Parse(XmlNodes.Item("TopicID").InnerText.Trim)
        c.ReplyID = New Decimal(0)
        Try
            c.ReplyID = Decimal.Parse(XmlNodes.Item("ReplyID").InnerText.Trim)
        Catch exception1 As Exception
            Console.WriteLine(exception1.Message)
        End Try
        Return c
    End Function

    ''' <summary>
    ''' 解析CSDN帖子
    ''' </summary>
    ''' <param name="XMLDoc"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function CreateXmlTips(ByVal XMLDoc As XmlDocument) As CSDN_XML_TIPS
        If (Not XMLDoc.Item("Topic") Is Nothing) Then
            Dim nIssue As XmlNode = XMLDoc.Item("Topic").Item("Issue")
            Dim nReplys As XmlNode = XMLDoc.Item("Topic").Item("Replys")
            If (Not nIssue Is Nothing) Then
                Me.Issue = Me.procXml(nIssue)
            End If
            If (Not nReplys Is Nothing) Then
                Dim enumerator1 As IEnumerator = Nothing
                Dim list1 As New ArrayList

                For Each n As XmlNode In nReplys
                    Dim c_csdn1 As C_CSDN = Me.procXml(n)
                    list1.Add(c_csdn1)
                Next
                Me.Replys = list1
            End If
        End If
        Return Me
    End Function
 
End Class