ASP_Format_Function

ASP_Format_Function

크리안도 움 포맷 마스카라 PARA O ASP

'Este código "cria" um "format" para o ASP! Você pode usar o que quiser substituíndo o 문자 "#" pelo valor que precisa formatar. '고마워요, 브라이언 리브스 씨!

'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4

'복사해서 붙여 넣을 수는 없나요? '복사해서 붙여넣기 가능한 버전의 코드를 보려면 여기를 클릭하세요! :ASP 형식 함수 '****의 경우 '**************************************** ' ********************************** '오픈 소스

'계약 조건: '이 코드를 사용하면 다음 조건에 동의하게 됩니다... '1. 귀하는 이 코드를 귀하의 프로그램에서 무료로 사용할 수 있습니다(그리고 이를 프로그램으로 컴파일하고 이를 허용하는 언어에 대해 컴파일된 형식으로 배포할 수 있습니다). '2. 원본 작성자의 서면 허가 없이 이 코드를 웹 사이트 등으로 재배포할 수 없습니다. 그렇게 하지 않는 것은 저작권법을 위반하는 것입니다. '3. 다른 웹사이트에서 이 코드로 링크할 수 있지만 프레임에 포함되지 않은 경우에만 가능합니다. '4. 귀하는 작성자가 코드나 코드 설명에 명시한 추가 저작권 제한 사항을 준수해야 합니다. '**************************************** ' 이름: ASP 형식 함수 ' 설명: 이 함수 한 가지 큰 예외를 제외하면 VB 형식 기능과 유사하게 작동합니다. "#" 문자는 단일 문자를 나타내는 데 사용됩니다. 영숫자가 아닌 문자를 모두 잘라내고 형식을 다시 지정하여 일관성을 유지할 수 있습니다. 신용카드, 우편번호, 전화번호 등에 유용합니다... ' 작성자: Brian Reeves ' ' 가정:Format("1234567890123", "(###) ###-#### x######" )는 "[phone] x123" 형식("4111111111111111", "####-####-####-####")은 "4111-1111-1111-1111"을 반환합니다. ' '이 코드는 저작권으로 보호되며 제한된 보증을 갖습니다. http://를 참조하십시오. /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'자세한 내용은 '************************ *****************

'******** '** 표준 세트를 포함하도록 문자열 형식을 지정합니다. '** '** 예: Format("1234567890", "(###) ###-####") '** 결과 = [phone] '** 수정일 01/09/03 '** 추가 ###의 브라이언 리브스'******를 반환하지 않는 확장 형식 마스크를 허용합니다.

공용 함수 형식(sValue, sMask) Dim iPlaceHolder Dim sTempValue Dim sResult sTempValue = CStr(sValue) sResult = sMask

InStr(sResult, "#") = 0까지 수행 iPlaceHolder = InStr(sResult, "#") sResult = 바꾸기(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) Len(sTempValue) = 0이면 sResult = Left(sResult, iPlaceHolder) 루프

형식 = sResult 종료 함수