+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة (/showthread.php?tid=37702)
كيفية إيجاد (رقم معين) بعد عدة فواصل محددة - أبو خالد الشكري - 04-02-21
السلام عليكم أيها الأخوة المبرمجين
لقد أعجبت كثيرًا بهذا المنتدى الرائع في البرمجة ، وأحببت أن أكون أحد أعضائه
وعندي مشروع بسيط بواسطة Visual Basic 6 ، ولكن للأسف توقفت عند مشكلتين لم أستطع معرفة حلهما
فأرجو منكم مساعدتي في حل هاتين المشكلتين ، وأشكر لكم المساعدة سلفًا .
شرح المطلوب :
عندي TextBox أعرض فيه أرقام مختلفة ومتجددة ، وهي غير مرتبة ، ويفصل بين كل رقم وآخر بفاصلة
ومثال على على ذلك :
Text1.Text ="32,11,8,20,900,13"
المشكلة الأولى :
أريد موقع (أي رقم) بعد كم فاصلة ، ويضعه في TextBox2
بمعنى مثلا :
لو أنا أردت موقع الرقم 20 (من جهة اليسار) ، وهو حاليا طبعا بعد الفاصلة رقم 3
فيضع لي البرنامج الرقم 3 في TextBox2
المشكلة الثانية :
أريد أن ينسخ لي كل الأعداد التي تأتي بعد فاصلة محددة ، ويضع النانتج في TextBox3
بمعنى مثلا :
لو أنا أردت من البرنامج جميع الأرقام التي بعد الفاصلة رقم 2
فيقوم البرنامج بوضع النتيجة التالية 8,20,900,13 في TextBox3
أرجو منكم الاجتهاد في حل هاتين المشكلتين ، وأتوقع أن طلبي يعتبر بالنسبة لكم بسيطا جدا
فأنتم أهل خبرة طويلة في البرمجة وإيجاد الحلول البرمجية .
اأنتظر ردكم الكريم ، وجزاكم الله خيرًا .
لقد أعجبت كثيرًا بهذا المنتدى الرائع في البرمجة ، وأحببت أن أكون أحد أعضائه
وعندي مشروع بسيط بواسطة Visual Basic 6 ، ولكن للأسف توقفت عند مشكلتين لم أستطع معرفة حلهما
فأرجو منكم مساعدتي في حل هاتين المشكلتين ، وأشكر لكم المساعدة سلفًا .
شرح المطلوب :
عندي TextBox أعرض فيه أرقام مختلفة ومتجددة ، وهي غير مرتبة ، ويفصل بين كل رقم وآخر بفاصلة
ومثال على على ذلك :
Text1.Text ="32,11,8,20,900,13"
المشكلة الأولى :
أريد موقع (أي رقم) بعد كم فاصلة ، ويضعه في TextBox2
بمعنى مثلا :
لو أنا أردت موقع الرقم 20 (من جهة اليسار) ، وهو حاليا طبعا بعد الفاصلة رقم 3
فيضع لي البرنامج الرقم 3 في TextBox2
المشكلة الثانية :
أريد أن ينسخ لي كل الأعداد التي تأتي بعد فاصلة محددة ، ويضع النانتج في TextBox3
بمعنى مثلا :
لو أنا أردت من البرنامج جميع الأرقام التي بعد الفاصلة رقم 2
فيقوم البرنامج بوضع النتيجة التالية 8,20,900,13 في TextBox3
أرجو منكم الاجتهاد في حل هاتين المشكلتين ، وأتوقع أن طلبي يعتبر بالنسبة لكم بسيطا جدا
فأنتم أهل خبرة طويلة في البرمجة وإيجاد الحلول البرمجية .
اأنتظر ردكم الكريم ، وجزاكم الله خيرًا .
RE: كيفية إيجاد (رقم معين) بعد عدة فواصل محددة - fghj4 - 04-02-21
(04-02-21, 01:35 AM)أبو خالد الشكري كتب :السلام عليكم أيها الأخوة المبرمجين
لقد أعجبت كثيرًا بهذا المنتدى الرائع في البرمجة ، وأحببت أن أكون أحد أعضائه
وعندي مشروع بسيط بواسطة Visual Basic 6 ، ولكن للأسف توقفت عند مشكلتين لم أستطع معرفة حلهما
فأرجو منكم مساعدتي في حل هاتين المشكلتين ، وأشكر لكم المساعدة سلفًا .
شرح المطلوب :
عندي TextBox أعرض فيه أرقام مختلفة ومتجددة ، وهي غير مرتبة ، ويفصل بين كل رقم وآخر بفاصلة
ومثال على على ذلك :
Text1.Text ="32,11,8,20,900,13"
المشكلة الأولى :
أريد موقع (أي رقم) بعد كم فاصلة ، ويضعه في TextBox2
بمعنى مثلا :
لو أنا أردت موقع الرقم 20 (من جهة اليسار) ، وهو حاليا طبعا بعد الفاصلة رقم 3
فيضع لي البرنامج الرقم 3 في TextBox2
المشكلة الثانية :
أريد أن ينسخ لي كل الأعداد التي تأتي بعد فاصلة محددة ، ويضع النانتج في TextBox3
بمعنى مثلا :
لو أنا أردت من البرنامج جميع الأرقام التي بعد الفاصلة رقم 2
فيقوم البرنامج بوضع النتيجة التالية 8,20,900,13 في TextBox3
أرجو منكم الاجتهاد في حل هاتين المشكلتين ، وأتوقع أن طلبي يعتبر بالنسبة لكم بسيطا جدا
فأنتم أهل خبرة طويلة في البرمجة وإيجاد الحلول البرمجية .
اأنتظر ردكم الكريم ، وجزاكم الله خيرًا .
كود :
Private Sub Command1_Click()
Text2 = ""
Dim i As Integer, s() As String
s = Split(Text1, ",")
Dim p As Integer
p = -1
For i = 0 To UBound(s)
If s(i) = "20" Then
p = i '+1
Exit For
End If
Next i
If p <> -1 Then Text2 = p
'------------------------
Text3 = ""
For i = 2 To UBound(s)
Text3 = Text3 & "," & s(i)
Next i
Text3 = Mid$(Text3, 2)
End SubRE: كيفية إيجاد (رقم معين) بعد عدة فواصل محددة - أبو خالد الشكري - 04-02-21
ما شاء الله ، مشكور أستاذي fghj4
بصراحة ما توقعت بأن الرد بهذي السرعة
جزاك الله خيرًا
لقد اختبرت الكود الذي أعطيتني إياه حضرتك
فوجدته شغال 100% ما شاء الله
كم أنا سعيد بالحصول على الحل منك من خلال هذا المنتدى الجميل والرائع بمبرمجيه الكرام .
دمتم بود ، وسامحني شغلتك وأتعبتك .