تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة
#1
Lightbulb 
السلام عليكم أيها الأخوة المبرمجين
لقد أعجبت كثيرًا بهذا المنتدى الرائع في البرمجة ، وأحببت أن أكون أحد أعضائه
وعندي مشروع بسيط بواسطة Visual Basic 6 ، ولكن للأسف توقفت عند مشكلتين لم أستطع معرفة حلهما 
فأرجو منكم مساعدتي في حل هاتين المشكلتين ، وأشكر لكم المساعدة سلفًا .

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

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

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

أرجو منكم الاجتهاد في حل هاتين المشكلتين ، وأتوقع أن طلبي يعتبر بالنسبة لكم بسيطا جدا
فأنتم أهل خبرة طويلة في البرمجة وإيجاد الحلول البرمجية .
اأنتظر ردكم الكريم ، وجزاكم الله خيرًا .
الرد
تم الشكر بواسطة:
#2
(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


الملفات المرفقة
.rar   test.rar (الحجم : 1.14 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة: sendbad100 , سعود
#3
ما شاء الله ، مشكور أستاذي fghj4





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

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

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

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



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



دمتم بود ، وسامحني شغلتك وأتعبتك .
الرد
تم الشكر بواسطة: sendbad100 , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيفية قراءة الباركود على مكينات الكاشيير والمخازن باستعمال خط 3OF9_NEW hamada salah90 1 104 28-05-21, 02:48 AM
آخر رد: ahmedabdelaliem
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 4 2,062 19-03-21, 03:01 AM
آخر رد: mhqom2020
  كيفية اضافة خواص لاداة UserControl ؟ gedo 1 1,107 18-09-20, 06:46 PM
آخر رد: SoftWare Haker
  كيفية ارسال معطيات الداتاكريد الى الاكسيل lkjnfg 0 495 25-08-20, 10:34 PM
آخر رد: lkjnfg
  حظر حذف رمز معين داخل مربع النص text hannileo 3 873 20-04-20, 01:04 AM
آخر رد: مصمم هاوي
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 13 4,675 27-03-20, 01:35 PM
آخر رد: layan2000
  الطباعة حسب مقاس معين الحزين اوى 2 865 05-02-20, 01:30 PM
آخر رد: الحزين اوى
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 4 2,533 13-07-19, 03:14 AM
آخر رد: gadr
  تصدير عمود معين حامد محمد 3 1,142 06-03-19, 01:17 AM
آخر رد: Amir_Alzubidy
  [vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا mustafa mohamed 17 3,824 31-10-18, 12:54 AM
آخر رد: ابن دوعن

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم