الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]مسح أى فراغ Backspace موجود فى Txtbox

بدأه islambase@yahoo.com في 7 ديسمبر 2008 · 8 رد · 918 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

إخواني الأعزاء

كيف يمكن مسح أى فراغ backspace موجود فى txtbox متصل بقاعدة بيانات؟

بحيث اذا أدخل المستخدم فى الtext المتصل بحقل الاسم كلمة

على محمد خالد "

كانت كمن أدخل كلمة

على محمد خالد"

كانت كمن أدخل كلمة

على محمد خالد"

كانت كمن أدخل كلمة

على محمد خالد"

ولكم ألف شكر

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#2

عفوآ لقد كتبهم المنتدى كلهم سواء ولم يكتبهم بفراغاتهم كما كتبتهم لكم

انى أقصد بالأولى أن يكتبها المستخدم كما ظهرت لكم تمامآ

على محمد خالد

و أقصد بالثانية أن يترك المستخدم فراغ كبير back space فى البداية قبل كلمة على

و أقصد بالثالثة أن يترك المستخدم فراغ كبير back space فى النهاية بعد كلمة خالد

و أقصد بالرابعة أن يترك المستخدم فراغ كبير back space فى المنتصف بين كلمتى على و محمد

</SPAN>

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#3

أولا إستخدم دالة الـ Trim لتقطع كافة المسافات من على الجانبين

وثانيان تقوم بإستبدال كل مسافتين ملتصقتين في النص بمسافة واحده



Do Until InStr(1, Text1, " ") = 0
Text1 = Replace(Text1, " ", " ")
Loop
 Text1 = Trim(Text1)

وكل عام والأمة الإسلاميه جميعها بخير ويمن وبركاته

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#4

جزاك الله خيرآ يا أخى

ولك ألف شكر

وكل عام والأمة الإسلاميه جميعها بخير ويمن وبركاته

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#5

جزاك الله خيرآ يا أخى

فعلآ انتهت مشكلتى تمامآ

ولكن أرجومنك أن تشرح لى معنى هذا الكود

  1. InStr(1, Text1, " ") = 0
  2. Text1 = Replace(Text1, " ", " ")
  3.  

أى ما المقصود بالرقم 1 الموجود فى الجملة الأولى؟ وماذا لوغيرناه بأى رقم آخر3 مثلآ؟

ولماذا أرى الفراغات بين العلامات"" بعضها فراغ واحد وبعضها اثنين؟ وماذا لوغيرنا فى أى منها بالتوسيع أو التضييق؟

ولكم ألف شكر

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#6

للتذكرة يمكن أضافة الحرف L أو R للدالة Trim لإزالة الفراغ من طرف واحد فقط للجملة :

Text1 = RTrim(Text1)
Text1 = LTrim(Text1)

اقتباس
أى ما المقصود بالرقم 1 الموجود فى الجملة الأولى؟ وماذا لوغيرناه بأى رقم آخر3 مثلآ؟
أي هي بداية البحث في الجملة من الحرف الأول ،فإذا غيرتها ب 3 فيبدأ البحث والقراءة من الحرف الثالث

والدالة InStr ستبحث عن الفراغين بالجملة

InStr(1, Text1, "  ") = 0

فإذا كان غير محقق أي يساوي الصفر ولم يجد فراغين فسيخرج من اللوب

اقتباس
ولماذا أرى الفراغات بين العلامات"" بعضها فراغ واحد وبعضها اثنين؟ وماذا لوغيرنا فى أى منها بالتوسيع أو التضييق؟
الأخ mrx_ta7ady ذكر لك "وثانيان تقوم بإستبدال كل مسافتين ملتصقتين في النص بمسافة واحده"
Text1 = Replace(Text1, "  ", " ")

أي سيقوم بالبحث عن فراغين "__" واستبدالهما بفراغ واحد فقط " " عن طريق الدالة Replace

ولا أعرف لماذا أستخدم الدالة InStr ولم يكتفي ب Replace فقط

تم تعديل هذه المشاركة بواسطة عبد العزيز اليوسفي في 8 ديسمبر 2008 في 16:05

#8

الافضل استخدام الدالة Trim لازالة المسافات في البداية والنهاية اما المسافات الداخلية فلا تتأثر بذلك . وهذه امثلة على كيفية استخدام Trim

مثال

Trim(text1.text) لازالة الفراغ في الطرف الايمن والايسر

Trim$(text1.text) نفس السابق مع قبول بيانات من نوع نص 

RTrim(text1.text)  لازالة الفراغ في اليسار 
LTrim(text1.text) لازالة الفراغ في اليمين


RTrim$(text1.text)  لازالة الفراغ في اليسار مع قبول بيانات نوع نص
LTrim$(text1.text) لازالة الفراغ في اليمين مع قبول بيانات نوع نص

ملاحظة ان قبول بيانات من نوع نص حتى وان تم ادخال بيانات غير نصية ستقوم الدالة بتحويل البيانات الى نوع نصي تلقائياً .

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#9

جزاكم الله خيرآ أجمعين

ولكم ألف شكر

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــة ،،

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

مواضيع مشابهة