우체국 OpenAPI를 이용 주소 조회

[파빌신]

개발 버전은 10.5.2 Build 7599 로 개발 되었습니다.

ePostApi.zip

50.41KB

해당 윈도우 WindowType = Response! 로 변경하여 사용하세요!

사용법: 
//호출 할때
String ls_Parm
ls_Parm = '서빙고로'
ls_Parm = '석삼말로 180'
ls_Parm = '안산시 상록구 이동'
OpenWithParm( w_epostapi, ls_Parm )
//자료 받아올때
String ls_Reurn, ls_post, ls_doro, ls_juso
ls_Reurn = Message.Stringparm
if Len( ls_Reurn ) > 0 then
ls_post = f_nth(ls_Reurn,'|',1)
ls_doro = f_nth(ls_Reurn,'|',2)
ls_juso = f_nth(ls_Reurn,'|',3)
end if 

PS,. Function f_nth(...)

//===============================================
// 프로그램명 : 일정한 문자로 분리된 문자열에서 N번째 String 인출 Function
// 작  성  자 : 신성욱
// 최초작성일 : 2003/07/01
// 최종수정일 : 
// 비      고 : 
// String of_nth(Value string as_data,

Value String as_Gubun, Value Integer al_nth)
//===============================================
String ls_rtn
Long ll_i, ll_strlen
Long ll_f, ll_t

if isNull(as_data) or isNull(al_nth) then
SetNull(ls_rtn)
return ls_rtn
end if

ll_f = 0
for ll_i = 1 to al_nth - 1
ll_f = Pos(as_data, as_Gubun, ll_f + 1)
if ll_f = 0 then
exit
end if
next

if ll_f = 0 and al_nth > 1 then
SetNull(ls_rtn)
return ls_rtn
end if

ll_t = Pos(as_data, as_Gubun, ll_f + 1)
if ll_t = 0 then
ll_t = Len(as_data) + 1
end if

if al_nth = 1 then
ls_rtn = String(Mid(as_data, ll_f + 1, ll_t - ll_f - 1))  //문자 1개짜리 구분자
else
ls_rtn = String(Mid(as_data, ll_f + len(as_Gubun), ll_t - ll_f - len(as_Gubun))) //단어로된 구분자
end if

return ls_rtn