[أبو خالد الشكري]

السلام عليكم أيها الأخوة المبرمجين
لقد أعجبت كثيرًا بهذا المنتدى الرائع في البرمجة ، وأحببت أن أكون أحد أعضائه
وعندي مشروع بسيط بواسطة Visual Basic 6 ، ولكن للأسف توقفت عند مشكلتين لم أستطع معرفة حلهما 
فأرجو منكم مساعدتي في حل هاتين المشكلتين ، وأشكر لكم المساعدة سلفًا .

شرح المطلوب :
عندي TextBox أعرض فيه أرقام مختلفة ومتجددة ، وهي غير مرتبة ، ويفصل بين كل رقم وآخر بفاصلة 
ومثال على على ذلك :
Text1.Text ="32,11,8,20,900,13"

المشكلة الأولى :
أريد موقع (أي رقم) بعد كم فاصلة ، ويضعه في TextBox2
بمعنى مثلا : 
لو أنا أردت موقع الرقم 20 (من جهة اليسار) ، وهو حاليا طبعا بعد الفاصلة رقم 3
فيضع لي البرنامج الرقم 3 في TextBox2 

المشكلة الثانية :
أريد أن ينسخ لي كل الأعداد التي تأتي بعد فاصلة محددة ، ويضع النانتج في TextBox3
بمعنى مثلا :
لو أنا أردت من البرنامج جميع الأرقام التي بعد الفاصلة رقم 2
فيقوم البرنامج بوضع النتيجة التالية 8,20,900,13 في TextBox3

أرجو منكم الاجتهاد في حل هاتين المشكلتين ، وأتوقع أن طلبي يعتبر بالنسبة لكم بسيطا جدا
فأنتم أهل خبرة طويلة في البرمجة وإيجاد الحلول البرمجية .
اأنتظر ردكم الكريم ، وجزاكم الله خيرًا .

[fghj4]

(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 Sub

[أبو خالد الشكري]

ما شاء الله ، مشكور أستاذي fghj4





بصراحة ما توقعت بأن الرد بهذي السرعة

جزاك الله خيرًا 

لقد اختبرت الكود الذي أعطيتني إياه حضرتك

فوجدته شغال 100%  ما شاء الله



كم أنا سعيد بالحصول على الحل منك من خلال هذا المنتدى الجميل والرائع بمبرمجيه الكرام .



دمتم بود ، وسامحني شغلتك وأتعبتك .