vb .net 웹페이지 xml 데이터 처리

웹페이지 xml 데이터 처리

Imports System.Xml

Imports System.Net

Imports System.IO

Imports System.Text.RegularExpressions

Imports System.Text

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim url As String

        url = "http://www.juso.go.kr/addrlink/addrLinkApi.do?keyword=" & TextBox1.Text & "&confmKey=인증키"

        Try

            Dim wresp As WebResponse

//웹 url 페이지 가져옴

            Dim wreq As WebRequest = HttpWebRequest.Create(url)

            Dim str As String = ""

            Dim output As StringBuilder = New StringBuilder()

            Dim test

            wresp = wreq.GetResponse()

//가져와서 스트링 반환

            Using sr As New StreamReader(wresp.GetResponseStream())

                str = sr.ReadToEnd()

                sr.Close()

            End Using

            test = fStrCnt(str, "<roadAddr>")

//xml 안에 데이터 처리

            Using reader As XmlReader = XmlReader.Create(New StringReader(str))

                For i = 1 To test

//태그가 roadaddr인거만 가져오기

                    reader.ReadToFollowing("roadAddr")

//output으로 넣음

                    output.AppendLine(reader.ReadElementContentAsString() & ",")

                Next i

            End Using

//output으로 넣음

            TextBox3.Text = output.ToString()

        Catch ex As Exception

            MsgBox(ex.Message, "가져오기 실패")

        End Try

    End Sub

//해당 태그 갯수 파악

    Private Function fStrCnt(SrcStr As String, DestChar As String)

        Dim intCnt

        Dim chrTmp

        intCnt = 0

        For i = 1 To Len(SrcStr)

            chrTmp = Mid(SrcStr, i, 10)

            If chrTmp = DestChar Then intCnt = intCnt + 1

        Next i

        fStrCnt = intCnt

    End Function

End Class