منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية إيجاد (رقم معين) بعد عدة فواصل محددة

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

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

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

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

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

(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% ما شاء الله

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

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