هانى سند بتاريخ: 23 فبراير 2007 تقديم بلاغ مشاركة بتاريخ: 23 فبراير 2007 السلام عليكم و رحمة الله و بركاته إخواني الكرام إستكمالا لاثراء المكتبة بالاكواد المفيدة اليكم نسخة أخري من function لازالة المسافات الزائدة من نص الكود: CREATE OR REPLACE FUNCTION single_space ( p_data VARCHAR2 ) RETURN VARCHAR2 IS v_data VARCHAR2 (2000) := REPLACE (LTRIM (RTRIM (p_data)), ' ', ' '); -- BEGIN IF INSTR (v_data, ' ') > 0 THEN RETURN single_space (v_data); ELSE RETURN (v_data); END IF; END single_space; select single_space(:text) from dual / غرض و كيفية الاستخدام :تستخدم هذه الفانكشن لازالة المسافات الزائدة من النصوص في التقارير او السيليكت حتي لا يتم احتسابها كحرف ومن الممكن ان يتم نداؤها من جملة استعلام او كفانكشن عادية شرح الfunction : تقوم الفانكشن علي استخدام function replace and ltrim and rtrim و function replace تقوم باستبدال كل المسافات المزدوجة في النصوص بمسافة واحدة و الrtrim and ltrim تقوم بقطع المسافات البادئة الموجودة بالكلمة و تقوم الfunction اولا بفحص الكلمة اذا كان بها مسافات زائدة ام لا عن طريق استعمالfunction instr الملف بالمرفقات مع تمنياتي بالتوفيق single_space.txt اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
sawsan_enad بتاريخ: 16 سبتمبر 2007 تقديم بلاغ مشاركة بتاريخ: 16 سبتمبر 2007 Thanks اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.