ASP_Format_Function
1.0.0
CRIANDO UM FORMAT MASCARA PARA O ASP
Dieser Code „ruft“ ein „Format“ für ASP auf! Sie können das Zeichen „#“ verwenden, um es präzise formatieren zu können. „Danke, Herr Brian Reeves!
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
„Kann das nicht kopieren und einfügen?“ „Klicken Sie hier für eine kopier- und einfügbare Version dieses Codes!“ '************************************** ' für :ASP-Formatfunktion '**** ************************************ 'Open Source
'Vereinbarungsbedingungen: 'Durch die Verwendung dieses Codes stimmen Sie den folgenden Bedingungen zu... '1. Sie dürfen diesen Code in Ihren eigenen Programmen frei und kostenlos verwenden (und ihn zu einem Programm kompilieren und im kompilierten Format für Sprachen verteilen, die dies zulassen). '2. Sie DÜRFEN diesen Code NICHT ohne schriftliche Genehmigung des ursprünglichen Autors weiterverbreiten (z. B. auf einer Website). Andernfalls stellt dies einen Verstoß gegen das Urheberrecht dar. '3. Sie können von einer anderen Website aus auf diesen Code verlinken, jedoch NUR, wenn er nicht in einen Frame eingeschlossen ist. '4. Sie werden alle zusätzlichen Urheberrechtsbeschränkungen einhalten, die der Autor möglicherweise in den Code oder die Codebeschreibung aufgenommen hat. '************************************** ' Name: ASP-Formatfunktion ' Beschreibung: Diese Funktion funktioniert ähnlich wie die VB-Format-Funktion mit einer großen Ausnahme. Das Zeichen „#“ wird zur Darstellung eines einzelnen Zeichens verwendet. Sie können alle nicht alphanumerischen Zeichen entfernen und neu formatieren, um die Konsistenz zu gewährleisten. Nützlich für Kreditkarten, Postleitzahlen, Telefonnummern usw. ' Von: Brian Reeves ' ' Annahmen:Format("1234567890123", "(###) ###-#### x######" ) würde „(123) 456-7890 x123“ zurückgeben Format(“4111111111111111“, „####-####-####-####“) würde „4111-1111-1111-1111“ zurückgeben. „Dieser Code ist urheberrechtlich geschützt und hat eingeschränkte Garantien. Bitte beachten Sie http:/ /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'für Details.'************************* *****************
'****** '** Formatiert eine Zeichenfolge, um Standardsätze einzuschließen. '** '** Beispiel: Format("1234567890", "(###) ###-####") '** Ergebnis = (123) 456-7890 '** Geändert am 01.09.03 um eine erweiterte Formatmaske zuzulassen, die '** keine zusätzlichen ###'s Brian Reeves '****** zurückgibt
Öffentliches Funktionsformat(sValue, sMask) Dim iPlaceHolder Dim sTempValue Dim sResult sTempValue = CStr(sValue) sResult = sMask
Tun, bis InStr(sResult, "#") = 0 iPlaceHolder = InStr(sResult, "#") sResult = Replacement(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) Wenn Len(sTempValue) = 0, dann sResult = Left(sResult, iPlaceHolder) Schleife
Format = sResult-Endfunktion
