'-------------------------------------------------------------
' 작성자 : 이상현 (chaoshead77@hotmail.com)
' 작성일 : 2007.03.14
'-------------------------------------------------------------
' 글 내용의 URL 을 링크로 자동 변환
'-------------------------------------------------------------
public function makeUrlLink(szTargetString)
dim nTotalLength : nTotalLength = len(szTargetString) ' URL 자동 링크를 사용한 문자열의 총 길이
dim nIdxCurr : nIdxCurr = 0 ' 현재 URL 의 첫 Index
dim nIdxPrev : nIdxPrev = 1 ' 이전 작업 후, Index
dim nLenSP : nLenSP = 0 ' Space 를 기준으로 한 길이 산출 값
dim nLenBR : nLenBR = 0 ' Line Break 를 기준으로 한 길이 산출 값
dim nLength : nLength = 0 ' 실제 길이 (nLenSP, nLenBR 중 작은 값)
dim szFndString : szFndString = "" ' 발견된 URL
dim szLinked : szLinked = "" ' Link 로 변환된 문자열
dim szConvString : szConvString = "" ' 최종 결과가 저장
nIdxCurr = InStr(1, szTargetString, "http://")
if nIdxCurr = 0 then
szConvString = szTargetString
else
do while nIdxCurr <> 0
' 발견된 URL 문자열의 길이 산출
nLenSP = InStr(nIdxCurr, szTargetString, " ") - nIdxCurr
nLenBR = InStr(nIdxCurr, szTargetString, "<br>") - nIdxCurr
if nLenSP > 0 and nLenBR > 0 then
if nLenSP < nLenBR then
nLength = nLenSP
else
nLength = nLenBR
end if
else
if nLenSP < 0 and nLenBR < 0 then
nLength = (nTotalLength+1) - nIdxCurr
elseif nLenSP < 0 then
nLength = nLenBR
elseif nLenBR < 0 then
nLength = nLenSP
end if
end if
' 발견된 URL 을 링크로 변환
szFndString = mid(szTargetString, nIdxCurr, nLength)
szLinked = "<a href='" & szFndString & "' target='_blank'>" & szFndString &"</a>"
' 작업한 문자열 정리
szConvString = szConvString & mid(szTargetString, nIdxPrev, nIdxCurr-nIdxPrev) & szLinked
' 다음 Loop 를 위한 변수 초기화
nIdxPrev = nIdxCurr + nLength
nIdxCurr = InStr(nIdxPrev, szTargetString, "http://")
nLength = 0
' Loop 가 끝났을 때, 나머지 문자열을 정리
if nIdxCurr = 0 and (nIdxPrev <= nTotalLength) then
szConvString = szConvString & mid(szTargetString, nIdxPrev, (nTotalLength+1)-nIdxPrev)
end if
loop
end if
makeUrlLink = szConvString
end function
'-------------------------------------------------------------
' 테스트 해보기
'-------------------------------------------------------------
Response.Write "<font color=red>→ 끝부분에 위치한 URL</font><br>"
Response.Write makeUrlLink_UsingCutting("하하하 http://dev.vip.sh http://korea.com http://naver.com")
Response.Write "<br>"
Response.Write "<font color=red>→ 처음에 위치한 URL</font><br>"
Response.Write makeUrlLink_UsingCutting("http://dev.vip.sh http://korea.com http://naver.com ㅋㅋㅋ")
Response.Write "<br>"
Response.Write "<font color=red>→ URL 중간에 문자열이 들어가 있는 경우</font><br>"
Response.Write makeUrlLink_UsingCutting("http://dev.vip.sh 히히히 http://korea.com 하하하 http://naver.com ㅋㅋㅋ")
Response.Write "<br>"
|
|
|
