الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استخلاص الارقام من سلسلة حرفية

مغلق
بدأه badr313_32 في 2 أبريل 2005 · 8 رد · 732 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ارجو الافادة يا أخوانى

لدى سلسلة حرفية مثل الآتى

" عدد شهداء غزة بدر 313 شهيد "

"نصر اكتوبر كان فى 1973 ميلادية"

كيف يمكن لى أن أستخلص العدد 313 من هذا النص وكذلك 1973 من النص الآخر

رجاء الافادة وفققكم الله إلى فعل الخير

#2

ارجو الافادة 000000000

#3

تفضل أخي

get only numbers.rar

*************************************************

**************************************************

مصطفى زيداني

#4

أخى العزيز أشكرك شكراً جزيلاً

نزلت البرنامج وهو يعمل كويس جداً

وناقص أعرف الكود بتاعه وسوف أركز فى معرفة الكود

ولكم التحية

#5

بالتوفيق أخي وعلى الفكرة الكود سهل جدا وأي سؤال عن الكود أنا جاهز

أخوك مصطفى زيداني

*************************************************

**************************************************

مصطفى زيداني

#6

مشكور جداً أخى مصطفى

الكود يعمل والحمد لله هو بسيط جداً

ولكن نسيت تضيف ان لو الرقم يوجد به ارقام عشرية

والحمد لله تم حلها

بوضع شرط وهو

if txt="." then

مشكور أخى الكريم

#7

في الخدمة

*************************************************

**************************************************

مصطفى زيداني

#8

أين وضعت الشرط

حفظك الله

#9

لقد وضعت لست بوكس ثم قسمت النص الموجود في التكست بوكس رقم 1 الى أجزاء ووضعتها في مصفوفة حرف حرف ثم من المصفوفة الى اللست بوكس ثم استخدمت جملة الشرط IF لتفحص عناصر اللست واحدة واحدة من خلال ال FOR LOOP فإذا كان أحد عناصر اللست بوكس رقم فانه يقوم بإضافته الى التكست بوكس رقم 2 وهكذا حتى تنتهي عناصر اللست

احب أن أذّكر ان هناك كود زائد في البرنامج نسيت أن أمسحه فأرجو عدم الخلط بينهم

الكود الاساسي هو الكود الموجود تحت زر الامر فقط اما غيره فهو زائد كان للتجربة

مصطفى زيداني

تم تعديل هذه المشاركة بواسطة mostafazidani في 4 أبريل 2005 في 14:24

*************************************************

**************************************************

مصطفى زيداني

هذا الموضوع مغلق.

مواضيع مشابهة