휴대폰,전화번호를 정상패턴('-') 을 넣어서 만들기

오늘은 asp 에서 휴대폰번호 또는 전화번호를 정상 패턴 즉, 예로 01011112222 을 010-1111-2222 형식으로 해야할 때가 있는데

 

이 부분이 워낙 다양하기 때문에 함수 하나로 만들어 경우의 수에 맞추어 패턴이 만들어지게 하기가 번거롭게 됩니다.

 

이에 이것을 하나의 함수로 만들어 사용하게 되면 편리한데 그에 대한 함수를 소개합니다.

 

* 소스코드

 

Function AddHyphen(fmemtel)

fmemtel = replace(fmemtel, "-", "")

fmemtel = replace(fmemtel, "+", "")

ret_val = ""

Select Case Len(fmemtel)

    Case 8    '1588-xxxx

t1 = Mid(fmemtel,1,4)

t2 = Mid(fmemtel,5,4)

ret_val = t1 & "-" &t2

 

Case 9 '02-xxx-xxxx

t1 = Mid(fmemtel,1,2)

t2 = Mid(fmemtel,3,3)

t3 = Mid(fmemtel,6,4)

ret_val = 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)

ret_val = 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)

ret_val = t1 & "-" &t2 & "-" &t3

Else

t1 = Mid(fmemtel,1,3)

t2 = Mid(fmemtel,4,3)

t3 = Mid(fmemtel,7,4)

ret_val = 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)

ret_val = t1 & "-" &t2 & "-" &t3

 

Case Else

ret_val = fmemtel

End Select

AddHyphen = ret_val

End Function

 

* 사용법

aaa = AddHyphen("01011112222")    ' 010-1111-2222

aaa = AddHyphen("0311112222")    ' 031-111-2222

 

일반 전화는 02 외에는 3자리이기 때문에 그 조건을 걸고 나머지를 처리하게 하고 있습니다.

다만 국제전화는 안되기 때문에 그 부분 자리수를 case 로 해서 추가적으로 넣으시면 됩니다.

보통 db 저장된 값들이 821022223333 또는 +821011112222 과 같이 2가지가 되므로 이것을 다른부분의 코드를 보고 상황에 맞게 처리하시면 됩니다.

 

#ASP#전화번호#패턴#함수#휴대폰