(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