ASP_Format_Function
1.0.0
CRIANDO UM ฟอร์แมตมาสคาร่า PARA หรือ ASP
'Este código "cria" หรือ "format" สำหรับ 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. คุณไม่สามารถแจกจ่ายรหัสนี้ (เช่น ไปยังเว็บไซต์) โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษรจากผู้เขียนต้นฉบับ หากไม่ปฏิบัติตามถือเป็นการละเมิดกฎหมายลิขสิทธิ์ '3. คุณสามารถเชื่อมโยงไปยังโค้ดนี้จากเว็บไซต์อื่นได้ แต่เฉพาะในกรณีที่ไม่ได้อยู่ในกรอบ '4. คุณจะปฏิบัติตามข้อจำกัดด้านลิขสิทธิ์เพิ่มเติมใดๆ ที่ผู้เขียนอาจระบุไว้ในโค้ดหรือคำอธิบายของโค้ด '*************************************** ' ชื่อ: ฟังก์ชันรูปแบบ ASP ' คำอธิบาย: ฟังก์ชันนี้ ทำงานคล้ายกับฟังก์ชันรูปแบบ VB โดยมีข้อยกเว้นใหญ่ประการหนึ่ง อักขระ "#" ใช้เพื่อแสดงอักขระตัวเดียว คุณสามารถตัดอักขระที่ไม่ใช่ตัวอักษรและตัวเลขออกทั้งหมดได้ และจัดรูปแบบใหม่ให้สอดคล้องกัน มีประโยชน์สำหรับบัตรเครดิต รหัสไปรษณีย์ หมายเลขโทรศัพท์ ฯลฯ... ' โดย: Brian Reeves ' ' สมมติ: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 '** แก้ไขเมื่อ 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 = แทนที่(sResult, "#", ซ้าย(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) ถ้า Len(sTempValue) = 0 ดังนั้น sResult = Left(sResult, iPlaceHolder) วนซ้ำ
รูปแบบ = sResult ฟังก์ชันสิ้นสุด
