منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة (/showthread.php?tid=45853)

حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة - yosif - 09-04-23

الرجاء كود في الزر في الحدث كليك
يقوم بحذف المسافات الزائدة في الداتا جريد فيو لعدة سجلات دفعة واحدة 
ولكم جزيل الشكر والتقدير

RE: حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة - Taha Okla - 09-04-23

أنسخ الكود التالي :
كود :
Private Sub TrimCell(pDataGridView As DataGridView)
    For i = 0 To pDataGridView.Columns.Count - 1
        For Each row As DataGridViewRow In pDataGridView.Rows
            row.Cells(i).Value = Trim(row.Cells(i).Value)
        Next
    Next
End Sub

والاستدعاء بالكود التالي : 
كود :
TrimCell(DataGridView1)


RE: حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة - yosif - 09-04-23

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

RE: حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة - yosif - 09-04-23

بارك الله فيكم
تمت التجربة
الكود شغال تمام
كنا من قبل ننتقص من المنتديات العربية
لكن اتضح من خلالكم انكم لا تقلون عن المنتديات الاجنبية بل واصبح في نظري ان هذا المنتدى في قمة الابداع

RE: حذف المسافات الزائدة في الداتا جريد لعدة سجلات دفعة واحدة - Taha Okla - 09-04-23

هذا الكود للتخلص من المسافات على طرفي الجملة قبل وبعد..

------
بينما :
كود التخلص من المسافات بين الكلمات
موجود في المشارك السابقة الموجودة في الرابط :
https://vb4arb.com/vb/thread-45848-post-191439.html#pid191439

في الخانة الأولى ضع (مسافتين) وفي الخانة الثانية ضع (مسافة واحدة)
كود :
ReplaceInDataGridView(DataGridView1, "  ", " ")