ASP_Format_Function
1.0.0
CRIANDO UM FORMAT MASCARA PARA O ASP
"هذا الكود "ينشئ" "تنسيقًا" لـ ASP! يمكنك استخدام ما تريد استبدال الحرف "#" بالقيمة المطلوبة للتنسيق. 'شكرًا لك سيد براين ريفز!
'http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8175&lngWId=4
"لا يمكن نسخ ولصق هذا؟" 'انقر هنا للحصول على نسخة سهلة النسخ واللصق من هذا الرمز! '*************************************** 'لوظيفة تنسيق ASP'**** ************************************ "مفتوح المصدر."
"شروط الاتفاقية:" باستخدام هذا الرمز، فإنك توافق على الشروط التالية...'1. يمكنك استخدام هذا الرمز في برامجك الخاصة (ويمكنك تجميعه في برنامج وتوزيعه بتنسيق مجمع للغات التي تسمح بذلك) مجانًا وبدون أي رسوم. '2. لا يجوز لك إعادة توزيع هذا الرمز (على سبيل المثال إلى موقع ويب) دون الحصول على إذن كتابي من المؤلف الأصلي. يعد عدم القيام بذلك انتهاكًا لقوانين حقوق الطبع والنشر. '3. يمكنك الارتباط بهذا الرمز من موقع ويب آخر، ولكن فقط إذا لم يكن ملفوفًا في إطار. '4. سوف تلتزم بأي قيود إضافية لحقوق الطبع والنشر قد يكون المؤلف قد وضعها في الكود أو وصف الكود. '*************************************** الاسم: وظيفة تنسيق ASP' الوصف: هذه الوظيفة تعمل بشكل مشابه لوظيفة VB Format مع استثناء واحد كبير. يتم استخدام الحرف "#" لتمثيل أي حرف واحد. يمكنك قص جميع الأحرف غير الأبجدية الرقمية وإعادة تنسيقها لتظل متسقة. مفيد لبطاقات الائتمان والرموز البريدية وأرقام الهواتف وما إلى ذلك... ' بواسطة: Brian Reeves ' ' يفترض:Format("1234567890123", "(###) ###-#### x######" ) سيُرجع التنسيق "(123) 456-7890 x123"("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 للسماح بقناع التنسيق الموسع الذي "** لن يُرجع المزيد من ###'s 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
