ASP_Format_Function
1.0.0
ТУШЬ CRIANDO UM FORMAT PARA O ASP
Это код «cria» и «формат» для ASP! Вы можете использовать или попросить заменить символ "#" на то, что нужно точно отформатировать. «Спасибо, мистер Брайан Ривз!
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
«Не можете это скопировать и вставить?» «Нажмите здесь, чтобы просмотреть версию этого кода, удобную для копирования и вставки!» '***************************************' для :ASP Format Function '**** ********************************** 'Открытый исходный код
«Условия соглашения: «Используя этот код, вы соглашаетесь со следующими условиями...» 1. Вы можете использовать этот код в своих собственных программах (а также можете скомпилировать его в программу и распространять в скомпилированном формате для языков, которые это допускают) свободно и бесплатно. '2. Вы НЕ МОЖЕТЕ распространять этот код (например, на веб-сайте) без письменного разрешения первоначального автора. Невыполнение этого требования является нарушением закона об авторском праве. '3. Вы можете дать ссылку на этот код с другого сайта, но ТОЛЬКО если он не заключен в рамку. '4. Вы обязуетесь соблюдать любые дополнительные ограничения авторских прав, которые автор мог поместить в код или описание кода. '*************************************** ' Имя: Функция формата ASP ' Описание: Эта функция работает аналогично функции VB Format, за одним большим исключением. Символ «#» используется для обозначения любого отдельного символа. Вы можете обрезать все небуквенно-цифровые символы и переформатировать их, чтобы сохранить единообразие. Полезно для кредитных карт, почтовых индексов, номеров телефонов и т. д. ' Автор: Брайан Ривз ' ' Предполагается:Format("1234567890123", "(###) ###-#### x######" ) вернет "(123) 456-7890 x123" Format("4111111111111111", «####-####-####-####») вернет «4111-1111-1111-1111» ' 'Этот код защищен авторским правом и имеет' ограниченные гарантии. См. http:/ /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'for подробности.'**************************************
'****** '** Форматирует строку для включения стандартных наборов. '** '** Пример: Format("1234567890", "(###) ###-####") '** Результат = (123) 456-7890 '** Изменено 09.01.03 чтобы разрешить маску расширенного формата, которая '** не будет возвращать дополнительных ###'s Брайана Ривза '******
Формат открытой функции (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 Конечная функция
