티스토링

웹페이지 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

$myfile = fopen("test.text","r") or die("unable to open file!");

echo fred($myfile, filesize("test.txt"));

fclose($myfile);

fopen 파일열기 옵션 :  r=read only, w=wirte only(현재 파일이 있다면 내용을 지우고 새파일을 만듦), a=write only(현재 파일이 있다면 파일의 마지막부터 추가하고, 파일이 없다면 새로운 파일을 만듦)

$myfile = fopen("test.txt","r") or die ("unavle to open file!");

echo fgets($myfile);

fclose($myfile);

fgets 한행씩 읽기, 읽고나서 file pointer는 다음행

$myfile = fopen("test.txt","r") or die ("unavle to open file!");

while(!feof($myfile))

{

echo fgets($myfile)."<br>"

}

fclose($myfile);

foef파일의 마지막을 체크하는 함수

myfile = fopen("test.txt","r") or die ("unavle to open file!");

while($row = fgetcsv($myfile,0,",")) !==false)

{

$dt = $row[0];

$tm = $row[1];

}

fgetcsv함수는 csv파일을 한줄씩 읽어오는 함수