ASP_Format_Function
1.0.0
MASCARA CRIANDO UM FORMAT POUR ASP
'Ce code "crie" un "format" pour ASP ! Vous pouvez utiliser celui qui souhaite remplacer le caractère "#" pour la valeur à formater précisément. « Merci, M. Brian Reeves !
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
« Vous ne pouvez pas copier et coller ceci ? « Cliquez ici pour une version conviviale par copier-coller de ce code ! '************************************** ' pour :Fonction de format ASP '**** ********************************** 'Open Source
'Conditions d'utilisation : 'En utilisant ce code, vous acceptez les conditions suivantes... '1. Vous pouvez utiliser ce code dans vos propres programmes (et le compiler dans un programme et le distribuer dans un format compilé pour les langages qui le permettent) gratuitement et sans frais. '2. Vous NE POUVEZ PAS redistribuer ce code (par exemple sur un site Web) sans l'autorisation écrite de l'auteur original. Ne pas le faire constitue une violation des lois sur le droit d'auteur. '3. Vous pouvez créer un lien vers ce code depuis un autre site Web, mais UNIQUEMENT s'il n'est pas entouré d'un cadre. '4. Vous respecterez toutes les restrictions supplémentaires en matière de droits d'auteur que l'auteur aurait pu placer dans le code ou la description du code. '************************************** ' Nom : Fonction de format ASP ' Description : Cette fonction fonctionne de la même manière que la fonction VB Format à une grande exception près. Le caractère "#" est utilisé pour représenter n'importe quel caractère. Vous pouvez supprimer tous les caractères non alphanumériques et les reformater pour rester cohérents. Utile pour les cartes de crédit, les codes postaux, les numéros de téléphone, etc... ' Par : Brian Reeves ' ' Suppose : Format("1234567890123", "(###) ###-#### x######" ) renverrait "(123) 456-7890 x123" Format("4111111111111111", "####-####-####-####") renverrait "4111-1111-1111-1111" ' 'Ce code est protégé par le droit d'auteur et a des garanties limitées. Veuillez consulter http:/ /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'for détails.'**************************************
'****** '** Formate une chaîne pour inclure des ensembles de normes. '** '** Exemple : Format("1234567890", "(###) ###-####") '** Résultat = (123) 456-7890 '** Modifié le 09/01/03 pour autoriser un masque de format étendu qui '** ne renverra pas Brian Reeves supplémentaire de ###' ******
Format de fonction publique (sValue, sMask) Dim iPlaceHolder Dim sTempValue Dim sResult sTempValue = CStr(sValue) sResult = sMask
Faire jusqu'à ce que InStr(sResult, "#") = 0 iPlaceHolder = InStr(sResult, "#") sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) Si Len(sTempValue) = 0 Alors sResult = Left(sResult, iPlaceHolder) Boucle
Format = sFonction de fin de résultat
