ASP_Format_Function

ASP_格式_函数

CRIANDO UM 格式睫毛膏 PARA O ASP

'Este código "cria" um "format" para o ASP！使用此命令可以替换字符“#”以精确格式。 “谢谢你，布莱恩·里夫斯先生！

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

'无法复制和粘贴吗？ '单击此处获取此代码的复制粘贴友好版本！ '******************************************** ' for :ASP 格式函数 '**** ********************************** '开源

'协议条款：'通过使用此代码，您同意以下条款......'1。您可以在自己的程序中免费使用此代码（并且可以将其编译成程序并以允许的语言的编译格式分发）。 '2.未经原作者书面许可，您不得重新分发此代码（例如发布到网站）。如果不这样做，就违反了版权法。 '3.您可以从其他网站链接到此代码，但前提是它没有包含在框架中。 '4。您将遵守作者可能在代码或代码描述中放置的任何其他版权限制。 '**************************************** ' 名称：ASP格式函数 ' 说明：该函数其操作方式与 VB Format 函数类似，但有一个很大的例外。 “#”字符用于表示任何单个字符。您可以修剪所有非字母数字字符并重新格式化它们以保持一致。对于信用卡、邮政编码、电话号码等很有用...' 作者：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'了解详细信息。'********************* ******************

'****** '** 格式化字符串以包含标准集。 '** '** 示例：格式("1234567890", "(###) ###-####") '** 结果 = [phone] '** 修改于 01/09/03允许扩展格式掩码，该掩码将 '** 不会返回额外的 ### 的 Brian Reeves '******

公共函数格式(sValue, sMask) Dim iPlaceHolder Dim sTempValue Dim sResult sTempValue = CStr(sValue) sResult = sMask

执行直到 InStr(sResult, "#") = 0 iPlaceHolder = InStr(sResult, "#") sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2) ) 如果 Len(sTempValue) = 0 则 sResult = Left(sResult, iPlaceHolder) 循环

格式 = sResult 结束函数