التحديد علي اول حروف في الكومبو بوكس ووضعها في تيكست بوكس

حسب فهمي لسؤالك فالدالة Split تفي بالغرض

لو كان عندي نص مكتوب فيه التالي : "1-vb" فان استعمال الدالة split بتحديد "-" سيعطي لك مصفوفة متكونة من عنصرين الاول هو الرقم "1" والثاني هو "vb"

Text = "1-vb"
A = Split(Text , "-" )
MsgBox A(0)

نتيجة الكود السابق ستكون طبعا 1 :)

بالتوفيق

مشكورررررر بس بيديني علي طول 1 لو في الكومبو

مثلا

1 - ادوات كهربائيه لمبة فيلبس

2 - ادوت رياضيه مشايه بور

16 - ادوات كمبيوتر ماوس

لو اخترات اي حاجه يديني واحد انا عايزه يديني الرقم اليه هو قبل - اليه هو 16 مثلا او 2 اي حاجه قبل - اليه في الاول اليه هو طبعا هيكون رقم زي ما في المثال ارجو الحل للاهمية

:D

طبعا لو استعملت نفس الكود ستجد نفس النتيجة

جرب تقرأها بالشكل التالي:

MsgBox Split(Combo1.Text, "-")(0)

ايه الحلاوه ديه ياباشا مشكور تكمل جميلك في مسافه ما بين - والرقم

زي

13 - Test

فا المسافة ديه بتظهر ينفع يتعمل لها حذف وشكرااااااااااااااااااااااااااااااااااااا علي تعبك

هناك حلان

الأول :إذا كانت المسافة موجودة دائما يمكن تغيير الDeterminer للدالة Split وبدل "-" نجعل فراغين بين - أي " - "

Split(Combo1.Text, " - ")(0)

أول أستعمال الدالة Trim التي تزيل الفراغات

Trim(Split(Combo1.Text, "-")(0))

ممتاز ربنا يبارك فيك

Split(Combo1.Text, " - ")(0)

إشتغلت تمام وشغال بيها