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" Format("4111111111111111", "####-#####-####-####") 將會傳回"4111-1111-1111-11111 “ '此程式碼受版權保護並具有有限保證。請參閱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 結束函數