ASP_Format_Function
1.0.0
CRIANDO UM FORMAT MASCARA PARA O ASP
'Ini adalah kode "cria" dan "format" untuk ASP! Anda dapat menggunakan pengganti karakter "#" karena Anda perlu memformatnya dengan benar. 'Terima kasih, Tuan Brian Reeves!
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
'Tidak Dapat Menyalin dan Menempel ini? 'Klik di sini untuk versi mudah salin dan tempel kode ini! '*************************************** ' untuk :Fungsi Format ASP '**** ********************************** 'Sumber Terbuka
'Ketentuan Perjanjian: 'Dengan menggunakan kode ini, Anda menyetujui ketentuan berikut... '1. Anda dapat menggunakan kode ini dalam program Anda sendiri (dan dapat mengkompilasinya menjadi sebuah program dan mendistribusikannya dalam format terkompilasi untuk bahasa yang mengizinkannya) secara bebas dan tanpa biaya. '2. Anda TIDAK BOLEH mendistribusikan ulang kode ini (misalnya ke situs web) tanpa izin tertulis dari penulis aslinya. Kegagalan untuk melakukannya merupakan pelanggaran undang-undang hak cipta. '3. Anda dapat menautkan ke kode ini dari situs web lain, tetapi HANYA jika kode tersebut tidak dibungkus dalam bingkai. '4. Anda akan mematuhi batasan hak cipta tambahan apa pun yang mungkin ditempatkan oleh penulis dalam kode atau deskripsi kode. '*************************************** ' Nama: Fungsi Format ASP ' Deskripsi: Fungsi ini beroperasi mirip dengan fungsi Format VB dengan satu pengecualian besar. Karakter "#" digunakan untuk mewakili karakter tunggal apa pun. Anda dapat memangkas semua karakter non alfanumerik dan memformat ulang karakter tersebut agar tetap konsisten. Berguna untuk kartu kredit, kode pos, nomor telepon, dll... ' Oleh: Brian Reeves '' Asumsi:Format("1234567890123", "(###) ###-#### x######" ) akan mengembalikan "(123) 456-7890 x123" Format("4111111111111111", "####-####-####-####") akan mengembalikan "4111-1111-1111-1111" ' 'Kode ini memiliki hak cipta dan memiliki' jaminan terbatas. Silakan lihat http:/ /www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4'for detailnya.'******************************************
'****** '** Memformat string untuk menyertakan set standar. '** '** Contoh: Format("1234567890", "(###) ###-####") '** Hasil = (123) 456-7890 '** Dimodifikasi 01/09/03 untuk mengizinkan topeng format yang diperluas yang akan '** tidak mengembalikan ###'s brian reeves '******
Format Fungsi Publik(sValue, sMask) Redupkan iPlaceHolder Redupkan sTempValue Redupkan sResult sTempValue = CStr(sValue) sResult = sMask
Lakukan Hingga InStr(sResult, "#") = 0 iPlaceHolder = InStr(sResult, "#") sResult = Ganti(sResult, "#", Left(sTempValue, 1), 1, 1) sTempValue = Mid(sTempValue, 2 ) Jika Len(sTempValue) = 0 Maka sResult = Left(sResult, iPlaceHolder) Loop
Format = sHasil Fungsi Akhir
