전화번호 하이픈 추가 함수
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) '함수 호출
%>