فصل جزء من بداية فقرة أو جملة نصية بدلالة أول كلمتين أو علامة :

[السبيل1]

أريد مساعدة بتوفير كود بقلل المجهود اليدوية بقيامه بفصل أو حذف مقطع متغير من بداية فقرة أو جملة نصية بدلالة بعض الكلمات الأول الثاني الثالث 

مثل:

المبحث الثاني وصف القرآن لفرعون المطلب الأول العلو والاستكبار المطلب الثاني الطغيان المطلب الثالث الإفساد المطلب الرابع الإسراف المطلب الخامس الكيد المطلب السادس الإضلال المطلب السابع الغرور المطلب الثامن الاستبداد لتصبح هكذا بعد قيام الكود بحذف الكلميتين في أول السطر

وصف القرآن لفرعون

العلو والاستكبار
الطغيان
الإفساد
الإسراف
الكيد
الإضلال
الغرور
الاستبداد

تم تعديل ديسمبر 9, 2019 بواسطه Access2020

[بن علية حاجي]

السلام عليكم

جرب المرفق لعل فيه ما تريد...

بن علية حاجي

جلب مقطع من نص.xls

[السبيل1]

أستاذ بن علية حاجي شكرا لك

أحياناً يكون بعد الكلمتين توجد علامة : مثل ( المبحث الثاني: ) هل بالإمكان إضافة حذفها أيضاً من خلال المعادلة التي تكرمت بمساعدتنا لها مع الشكر

 

[بن علية حاجي]

السلام عليكم

بمعادلة أطول قليلا لمحاولة الإلمام بكل الحالات... أرجو أن تفي الغرض المطلوب.

بن علية حاجي

جلب مقطع من نص_2.xls

[سليم حاصبيا]

بعد اذن اخي بن علية

وزيادة في اثراء الموضوع 

هذه المعادلة

=IFERROR(MID(SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2),FIND("*",SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2))+1,LEN(A2)),"")

الملف مرفق

text_section.xls

[السبيل1]

بارك الله بكم جميعاً علي حسن المساعدة

أستاذ سليم بقي تعديل بسيط في المعادلة كما هو موضح بالصورة المرفقة وهو إزالة أو حذف المسافة السابقة واللاحقة في النص بعد التجريد فهل من الممكن إضافة ما يقوم بحذف هذه المسافات من خلال المعادلة الأخيرة مع كامل الشكر والتقدير للجميع

[سليم حاصبيا]

يمكن ذلك بزيادة الدالة   TRIM على المعادلة

   =IFERROR(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2),FIND("*",SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2))+1,LEN(A2))),"")

لتصبح هكذا

=IFERROR(TRIM(MID(SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2),FIND("*",SUBSTITUTE(SUBSTITUTE(A2,":","")," ","*",2))+1,LEN(A2))),"")

الملف من جديد

New_text_section.xls

[السبيل1]

ولكن لماذا يري الحاسب الملف ضاراً به أرجو التوضيح تكرماً

 

تم تعديل ديسمبر 9, 2019 بواسطه السبيل1