السلام عليكم ورحمة الله وبركاته
عندي مبلغ مكون من خمس ارقام مثال 1,234.56 ارغب بفصلة ليكون كل رقم مفصول في حقل خاص بة مثال الهلل في حقل الاحاد في حقل العشرات في حقل .... الخ
المبلغ
1234.56
حقل1 حقل2 حقل3 حقل 4 حقل5
56 4 3 2 1
ارجو ممن يستطيع ان يخدمني ان يتفضل لان هذا الموضوع هام جدا بالنسبة لي
تم تعديل هذه المشاركة بواسطة fahadthan في 15 مايو 2004 في 07:36
Const N = 1234.56 Dim A(5) as byte , R as byte , i as byte Dim S as String S = Trim(STR(N)) i = instr(s,",") if i >0 then S = left(s,i-1) & mid(s,i+1) For R = 1 to len(s) A(r) = val(mid(s,r,1)) next
وهكذا نكون قد وضعنا كل رقم في عنصر لوحده ضمن مصفوفة A
تم تعديل هذه المشاركة بواسطة مهند عبادي في 18 مايو 2004 في 01:55
الاخ العزيز
اسف لتأخري عن شكرك للاهتمام
ولكن اعاني من وعكه صحية هذه الايام وانا في اجازه حتى يوم السبت القادم
عموما ارجو التكرم بوضع مثال لان الكود الذي اعطيتنياه لم يعمل
وكذلك غير واضح
شكرا مره اخرى
حسناً هذا هو المثال :
وقد عدلت الكود قليلاً حتى أصبح يتعامل أيضاً مع أي نص يحتوي أرقام فيأخذ الأرقام ويفرد كل رقم لوحده
السلام عليكم
الاخ العزيز
اشكر اهتمامك
ولكن لم استطيع ان افتح الملف. يضهر بلغه غير مفهومه
شكرا مره اخرا
فهد
هذا هو الملف بصيغة Zip
اخي العزيز
للاسف اني لم استطيع ان افتح الملف عند المحاوله بعد فك الضغط احصل على error (Unrecognized database قد يكون السبب اني استخدم شبكة داخلية ولا استطيع ان اعمل تحميل كامل للملف المرفق
ارجو التكرم وللمره الاخيره لاني ازعجتك بطلباتي بأرسال المرفق الاول على word والمرفق الثاني على الايميل الخاص بي ولك جزيل الشكر
fahad.al-thanyyan@baesystems.com
فهد
أستاذي مهند شكراً جزيلا على هذا المثال الرائع
طلب : هل بالامكان عرض الرقم أفقياً ؟؟؟؟؟؟؟
أي هكذا : عندما يكون الرقم المراد عرضه ( 423.12 )
يعرض هكذا :
2 ------ 1 ------ 3 -------- 2 --------4
ليس هكذا :
2
1
3
2
4
أي بدلا من عموديا يعرض أفقيا
تم تعديل هذه المشاركة بواسطة starnoor2000 في 24 مايو 2004 في 21:15
المسلم من سلم الناس من لسانه ويده
أخي fahadthan ما هي نسخة الأكسس التي تستعملها ؟؟!
أخي starnoor2000 .. يمكن عرض الأرقام أفقياً .. وهذا مثال :
السلام عليكم
الاخ مهند عبادي
استخدم 97
أخي fahadthan .. هذا الملف معمول بتنسيق 2000 فما فوق .. ولا يستطيع أوفيس 97 فتحه
على أي حال هذه نسخة من المثال على أوفيس 97
وأنصحك أن تنصب أوفيس XP على جهازك لأنه أفضل بكثير
الاخوه الاعزاء
السلام عليكم ورحمة الله
اعلم مدى انشغالكم .... ولكن افيدكم ان هذا الموضوع هام جدا لي
فأتمنى منكم المساعدة
للمعلومية ان المثال في المشاركة التي قبل هذي
اكسس 97
شكرا
فهد
الاخ العزيز starnoor2000
انا جدا محرج منك ولكني ارغب بان يتم فصل الارقام بحقول مختلفة لم
كما في المثال المرفق في مشاركتي
ارجوا منك ان تتحمل طلباتي
شكرا جزيلا
فهد
الاخوه الاعزاء
السلام عليكم
هل معنى ذلك ان لا يمكن ان اعمل الكود لستخراج الدلاله المطلوبه
او انكم مشغولين
عموما في جميع الحلات اشكر لكم اهتمامكم
فهد
أخي فهد أنا آسف على التأخر بالرّد ولكن صدقني أن المشاغل كثيرة جداً
على أي حال هذا هو الملف بعد التعديل
الاخ مهند
اشكرك كثير على اهتمامك
والله تستاهل الوسام المعطى لك ولو عندي وسام اكبر لستحقيته.
عموما كما قلت سابق لا استطيع ان افتح الكود. والله مستحي منك !!!!
اي يوم ولمدة شهر او شهرين لا اريد ان اشغلك بموضوعي واشغل المنتدى به
ولكن اي يوم تجد نفسك فاضي ارجو التكرم بأستخدام الملف المرفق من اكسس 97 اذا امكن
الملف موجود في مشاركتي السابقه
شكرا مره اخرا ما اقول الله جزاك الله خير على خدماتك لاخوانك اعضاء المنتدى
فهد
أخي الكريم .. الملف المرفق محوّل إلى أكسس 97
ربما ليس لديك برنامج فك الضغط WinRar
السلام عليكم ورحمة الله
اخي العزيز مهند
للاسف اني اعمل بستخدام شبكة والبرامج محدده. في حالة فتح الملف الذي ارفقته يفتح على الاكسل ويتي بلغه غير مفهومه
الحقيقه اني محرج جدا منك ولكن في حالة ان الموضوع سوف يزعجك او انك مشغول اشكرك لهتمامك بالموضوع واشكر كل من حاول مساعدتي واخص starnoor2000
فهد
السلام عليكم ورحمة الله وبركاتة
تحيه طيبة وبعد
لاهمية الموضوع بالنسبة لي لانة قد يختصر الكثير من الوقت
ارجو التكرم بالنظر لموضوعي اذا كان هناك قدره للحل
كما ارجو التكرم ممن يستطيع ان يساعدني على ان يحل الموضوع بستخدام المثال المرفق من اكسس 97
اسف مره اخرى لطلبي المتكرر وذلك لاني لا استطيع ان افتح الا الاكسس 97
شكرا
فهد
هذا هو المثال
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
