ASP_Format_Function
1.0.0
CRIANDO UM FORMAT MASCARA PARA O ASP
¡Este código "cria" un "formato" para ASP! Puedes usar o querer sustituir el carácter "#" por el valor que necesitas formatear. '¡Gracias, señor Brian Reeves!
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
'¿No puedes copiar y pegar esto? '¡Haga clic aquí para obtener una versión fácil de copiar y pegar de este código! '*************************************** ' para :Función de formato ASP '**** ******************************** 'Código abierto
'Términos del acuerdo: 'Al utilizar este código, aceptas los siguientes términos... '1. Puede utilizar este código en sus propios programas (y compilarlo en un programa y distribuirlo en formato compilado para lenguajes que lo permitan) de forma gratuita y sin cargo. '2. NO PUEDE redistribuir este código (por ejemplo, a un sitio web) sin el permiso por escrito del autor original. No hacerlo es una violación de las leyes de derechos de autor. '3. Puede vincular este código desde otro sitio web, pero SÓLO si no está envuelto en un marco. '4. Cumplirá con cualquier restricción adicional de derechos de autor que el autor pueda haber colocado en el código o en la descripción del código. '*************************************** ' Nombre: Función de formato ASP ' Descripción:Esta función Funciona de manera similar a la función Formato VB con una gran excepción. El carácter "#" se utiliza para representar cualquier carácter individual. Puede recortar todos los caracteres no alfanuméricos y reformatearlos para mantener la coherencia. Útil para tarjetas de crédito, códigos postales, números de teléfono, etc... ' Por: Brian Reeves ' ' Asume:Format("1234567890123", "(###) ###-#### x######" ) devolvería "(123) 456-7890 x123" Formato ("4111111111111111", "####-####-####-####") devolvería "4111-1111-1111-1111" ' 'Este código tiene derechos de autor y tiene garantías limitadas. Consulte http:/ /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'para detalles.'**************************************
'****** '** Da formato a una cadena para incluir conjuntos estándar. '** '** Ejemplo: Formato("1234567890", "(###) ###-####") '** Resultado = (123) 456-7890 '** Modificado el 09/01/03 para permitir una máscara de formato extendido que '** no devolverá brian reeves de ### extra '******
Formato de función pública (sValue, sMask) Dim iPlaceHolder Dim sTempValue Dim sResult sTempValue = CStr(sValue) sResult = sMask
Hacer hasta InStr(sResult, "#") = 0 iPlaceHolder = InStr(sResult, "#") sResult = Reemplazar(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) Si Len(sTempValue) = 0 Entonces sResult = Left(sResult, iPlaceHolder) Bucle
Formato = sResult Función final
