[ASP]마지막 문자열

마지막 문자열 구하기

Option Explicit
Dim str : str = "100|5|0||2028|1090|서울특별시 강남구 삼성동"
Response.write SearchAddress(str)
Function SearchAddress(byRef paramStr)
	Dim ipos
	Dim strLen
	Dim Result 
	'------------------------------------------------
	' 입력되는 인자의 전체 길이.
	'------------------------------------------------
	strLen = Len(paramStr) 
	'------------------------------------------------
	' 문자 '|' 마지막에 위치하는 자리 수 (정수반환) : 없을땐 0
	'------------------------------------------------

	ipos = instrRev(paramStr,"|")
	Result = MID(paramStr,ipos+1,(strLen-ipos))
	SearchAddress = Result
End Function 

결과 : 서울특별시 강남구 삼성동