ASP_Format_Function
1.0.0
CRIANDO UM FORMAT MASCARA PARA O ASP
'Este código "criou" um "format" para o ASP! Você pode usar o que quiser substituindo o caractere "#" pelo valor que precisa formatar. 'Obrigado, Sr. Brian Reeves!
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
'Não é possível copiar e colar isso? 'Clique aqui para obter uma versão amigável para copiar e colar deste código! '************************************** ' para: Função de formato ASP '**** ********************************** 'Código Aberto
'Termos do Contrato: 'Ao usar este código, você concorda com os seguintes termos... '1. Você pode usar este código em seus próprios programas (e pode compilá-lo em um programa e distribuí-lo em formato compilado para linguagens que o permitam) gratuitamente e sem nenhum custo. '2. Você NÃO PODE redistribuir este código (por exemplo, para um site) sem permissão por escrito do autor original. Não fazer isso é uma violação das leis de direitos autorais. '3. Você pode criar um link para este código de outro site, mas SOMENTE se ele não estiver envolto em um quadro. '4. Você respeitará quaisquer restrições adicionais de direitos autorais que o autor possa ter colocado no código ou na descrição do código. '************************************** ' Nome: Função de Formato ASP ' Descrição:Esta função opera de forma semelhante à função Formato VB com uma grande exceção. O caractere "#" é usado para representar qualquer caractere único. Você pode cortar todos os caracteres não alfanuméricos e reformatá-los para permanecerem consistentes. Útil para cartões de crédito, CEPs, números de telefone, etc... ' Por: Brian Reeves '' Assumes:Format("1234567890123", "(###) ###-#### x######" ) retornaria "(123) 456-7890 x123" Formato("4111111111111111", "####-####-####-####") retornaria "4111-1111-1111-1111" ' 'Este código é protegido por direitos autorais e tem' garantias limitadas. Consulte http:/ /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'para detalhes.'**************************************
'****** '** Formata uma string para incluir conjuntos padrão. '** '** Exemplo: Format("1234567890", "(###) ###-####") '** Resultado = (123) 456-7890 '** Modificado em 01/09/03 para permitir máscara de formato estendido que '** não retornará brian reeves extra de ###'******
Formato de função pública (sValue, sMask) Dim iPlaceHolder Dim sTempValue Dim sResult sTempValue = CStr (sValue) sResult = sMask
Faça até InStr(sResult, "#") = 0 iPlaceHolder = InStr(sResult, "#") sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) Se Len(sTempValue) = 0 Então sResult = Left(sResult, iPlaceHolder) Loop
Formato = função final sResult
