ASP_Format_Function
1.0.0
クリアンド ウム フォーマット マスカラ パラ O ASP
「ASP の「フォーマット」を「クリア」してください! Você pode usar o que quiser substituíndo o caracter "#" pelo valor que precisa formatar. 「ありがとう、ブライアン・リーブスさん！」
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
「これをコピーして貼り付けることはできませんか? ' このコードのコピーアンドペーストしやすいバージョンを表示するには、ここをクリックしてください。 '**************************************** :ASP フォーマット関数の場合 '**** *********************************** 'オープンソース
'契約条件: 'このコードを使用すると、次の条件に同意したことになります... '1.このコードを独自のプログラムで自由に無料で使用することができます (また、プログラムにコンパイルし、それが許可される言語用にコンパイルされた形式で配布することもできます)。 '2.元の作成者からの書面による許可なしに、このコードを (Web サイトなどに) 再配布することはできません。これを怠ると著作権法の違反となります。 '3.別の Web サイトからこのコードにリンクすることはできますが、フレームで囲まれていない場合に限ります。 '4.あなたは、作者がコードまたはコードの説明に設けた追加の著作権制限に従うものとします。 '*************************************** ' 名前: ASP フォーマット関数 ' 説明: この関数は、1 つの大きな例外を除き、VB Format 関数と同様に動作します。 「#」文字は、任意の 1 文字を表すために使用されます。英数字以外の文字をすべて削除し、一貫性を保つために再フォーマットすることができます。クレジット カード、郵便番号、電話番号などに便利です... ' 投稿者: Brian Reeves ' ' Assumes: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' 用 詳細。'**************************************
'****** '** 標準セットを含むように文字列をフォーマットします。 '** '** 例: Format("1234567890", "(###) ###-####") '** 結果 = (123) 456-7890 '** 2003 年 1 月 9 日変更'** 余分な ### のブライアン リーブスを返さない拡張形式マスクを許可します '******
Public Function Format(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 終了関数
