سؤال في النصوص

حلك مع الدالة Replace

Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String

المعامل الأول Expression وتضع به النص أو المتغير النصي الذي تريد أن يتم التبديل به.

المعامل الثاني Find وتضع به النص المراد البحث عنه وتبديله.

المعامل الثالث Replace وتضع به النص المراد الاستبدال به.

المعامل الثالث Start وتضع به مكان بداية البحث..وإذا تركته فارغا فسيقوم بالبحث من بداية النص اي من عند Start =1

المعامل الرابع Count وتضع به عدد التبديلات التي تريد أن تقوم بها .. وإذا تركته فارغا,فالقيمة الافتراضية هي Count = -1 , وسيتم تبديل جميع قيم المعامل الثاني بالمعامل الثالث.

المعامل الأخير Compare في حالة إذا أردت المقارنة بين حروف المعامل الثاني والثالث ألا تكون Sensitive فقم باختيار vbTextCompare ..

أم إذا أردتها Sensitive فاترك هذا المعامل فراغ لأن القيمة الافتراضية له هي vbBinaryCompare

وتعود الدالة بقيمة نصية تمثل ناتج تنفيذ الدالة Replace علي التعبير الممرر لها..

امثلة :

MsgBox Replace("Quick Basic", "Quick", "Visual", 1, 1)
 MsgBox Replace("Quick Basic Quick", "Quick", "Visual", 1, 1)
MsgBox Replace("Quick Basic Quick", "Quick", "Visual", 1, 2)
MsgBox Replace("Quick Basic quick", "Quick", "Visual")
MsgBox Replace("Quick Basic quick", "Quick", "Visual", , , vbTextCompare)

واخيرا ما تريده وهو حذف جملة من نص ..

 MsgBox Replace("Quick Basic Quick", "Quick", "", , , vbTextCompare)

شكرأ أخي

ولكن أنا أريد حذف جملة من سلسلة نصية لا تبديل جملة بجملة

قل لي ما الفرق بين حذف جملة .. وتبديل الجملة التي تريد حذفها بقيمة Null String ؟