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

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

 

<%

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

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와 같은 번호만 적용된 소스입니다