하이픈이 없는 전화번호에 하이픈을 추가시켜 출력하는 방법입니다.


<%

'전화번호에 하이픈(-) 추가 함수

Function addHyphen(fmemtel)

Select Case Len(fmemtel)

    Case 8    '1588-xxxx

t1 = Mid(fmemtel,1,4)

t2 = Mid(fmemtel,5,4)

response.write t1 & "-" &t2

Case 9 '02-xxx-xxxx

t1 = Mid(fmemtel,1,2)

t2 = Mid(fmemtel,3,3)

t3 = Mid(fmemtel,6,4)

response.write t1 & "-" &t2 & "-" &t3

Case 10 '휴대전화 010-xxx-xxxx

If Mid(fmemtel,1,2) = "01" Then '휴대전화 010-xxx-xxxx

t1 = Mid(fmemtel,1,3)

t2 = Mid(fmemtel,4,3)

t3 = Mid(fmemtel,7,4)

response.write t1 & "-" &t2 & "-" &t3

Else '일반전화

If Mid(fmemtel,1,2) = "02" Then

t1 = Mid(fmemtel,1,2)

t2 = Mid(fmemtel,3,4)

t3 = Mid(fmemtel,7,4)

response.write t1 & "-" &t2 & "-" &t3

Else

t1 = Mid(fmemtel,1,3)

t2 = Mid(fmemtel,4,3)

t3 = Mid(fmemtel,7,4)

response.write t1 & "-" &t2 & "-" &t3

End If

End If

Case 11 'xxx-xxxx-xxxx(휴대전화,070)

t1 = Mid(fmemtel,1,3)

t2 = Mid(fmemtel,4,4)

t3 = Mid(fmemtel,8,4)

response.write t1 & "-" &t2 & "-" &t3


Case Else

response.write fmemtel

End Select

End Function



fmemtel = "010-9999-9999"


addHyphen(fmemtel)    '함수 호출

%>


위의 소스는 휴대전화와 일반전화, 1588-xxxx와 같은 번호만 적용된 소스입니다.

Posted by 준콩ol 준콩ol

댓글을 달아 주세요