كيف يتم اختيار خانات معينة من رقم طويل مكون 17رقم

[الفهد138]

______.rarالسلام عليكم ورحمة الله وبركاته

إخواني الأعزاء

وصلت إلى مشكلة أرجو أن تحلوها لي وشكراً لكم

لدي برنامج أجهزة وقطعها به الآتي :

به مربع نص هذا المربع يدخل فيه رقم الجهاز أو القطعة كامل مكون من 17 خانة بها حروف وأرقام

أريد المدخل للبيانات يدخل جميع الرقم بحروفه وأرقامه والذي أحتاجه من هذه الخانات الخانات التالية :

خانة4 وخانة6 وخانة7 وخانة8 وخانة11

مثلاً :

هذا رقم الجهاز mncbs81351w157167

الخانة4 = b

الخانة6 = 8

الخانة7 = 1

الخانة8 = 3

الخانة11 =w

الرقم دائماً لا ينقص عن 17 خانة ولا يزيد

طبعاً المدخل لا يعرف هذه المعلومات خانه وخانه أريد البرنامج يريحه من هذه الحسبه فبمجرد أن يدخل الرقم الطويل تطلع

له مواصفات الجهاز الذي يحتوى عليه هذه الخانات الخمس والباقي طنش

تحياتي لكم وأرجوا أن أجد الحل لديكم قريباً

الفهد138

[rudwan]

هذا مثال مبسط على اختيار الحرف رقم 5 مثلا من النص

و يمكنك التطبيق على البقية

______.rar

[أبو هادي]

السلام عليكم

بعد إذن أخي رضوان ، هذ مثال آخر :

Sub Test()
  Dim txtInput As String
  Dim txtOutput As String
  
  txtOutput = "mncbs81351w157167"
  txtInput = InputBox("أدخل رقم الهاردسك", , "b813w")
  
  If txtOutput Like _
     "???" & Mid(txtInput, 1, 1) & _
     "?" & Mid(txtInput, 2, 3) & _
     "??" & Mid(txtInput, 5, 1) & _
     "??????" Then
    MsgBox "إدخال صحيح"
  Else
    MsgBox "إدخال خاطئ .. حاول مرة أخرى"
  End If
End Sub

تحياتي .

[الفهد138]

أشكركم يا إخواني الأعزاء وربما أنني لم أطبق الطريقة صحيحة أو أن شرحي لم يكن وافيا

أولاً: أريد أن تفهموا ما يلي :

رقم الجهاز غير ثابت يختلف من جهاز لجهاز ما في جهازين لها رقم أو سيريال واحد تختلف( مثل رقم الشاسيه

للسيارات )

ثانياً :الخانات المطلوبة من اليسار طبعاً

الشرح :

أمامي النموذج فارغ من البيانات ( أنا من أول أدخلت البيانات ومنتهي منها بس لغرض الاستعلام)

وبيدي القطعة وعليها رقمها ( السريال )مكون من 17 رقم وحروف

أقوم بإدخال الرقم في المربع كامل . البرنامج يقوم بقراءة الرقم ويختار الخانات المطلوبه ويظهر بياناتها

في أثناء الإدخال وصلت مثلاً لخانة رقم 4 يظهر لي القطع التي تتشارك في نفس الخانة مثلاً تحتوى حرف b وليس

شرطاً أن يكون دائماً هذا الحرف ربما يتغير ثم إذا واصلت في إدخال الرقم ووصلت للخانة رقم 6 طبعاً تقل القطع لأنه

أصبح عندنا شرطين واصلت حتى وصلت للخانة 7 تقل القطع ويصبح عندنا 3 شروط وهكذا حتى أنتهي من الخانات

الخمس

أعيد وأكرر شكراً لكم ( أسال الله العظيم رب العرش العظيم أن يجزيكم خير الجزاء )

ليس شرطاً أن يكون الرقم كامل موجود في البرنامج . لكن شرط أن تكون الخانات الخمس موجود داخل البرنامج

آسف على الإطالة .

ملاحظة :

تقريباً تصلح عن طريق الإستعلام لكنني لا أعرف طريقة تفكيك النص إلى حروف

وكذلك تصلح عن طريق كون كل حرف في حقل وينتقل المؤشر تلقائي للحقل الذي يليه

ولكن لا أعرف كود إنتقال المؤشر تلقائي مثل إدخال رقم الويندوز

[أبو هادي]

السلام عليكم

مثالكم مرفق بعد التعديل .

تحياتي .

PC_Seach.rar

[rudwan]

مركز أبو هادي للأسعافات الأولية بالأكسس

[الفهد138]

_____.zipشكراً لكم

ولكن المدخل للبيانات على غير علم بالخانات الخمس المذكورة

والسيريال الطويل غير موجود داخل البرنامج المتطابق هو الخانات الخمس بس

وظيفة المدخل يدخل السريال كامل في مربع النص لما تتطابق البيانات في الخانات الخمس يخرج له المطلوب

وهذا المرفق بالطريقة البدائية يوضح المراد والكيفية

أريدها بالكود وفي حقل واحد بدل من أنها في عدة حقول وكثرة الأعمدة في الجداول

وتطبق على القاعدة السابقة

[أبو هادي]

السلام عليكم

أعتذر لا أستطيع أن أواصل معكم في هذا الموضوع لارتباطي بمشروع خيري حاليا وهذا لا يعني أني لن أشارك في مواضيع أخرى بسيطة .

تحياتي .