النص الاساسي المطلوب هو : ( شيك رقم 835)
الان اريد عكس النص التالي (835 مقر كيش) الى العبارة السابقة المطلوبة باستخدام الكود StrReverse
وحولت الحروف مضبوط ولكنها حولت الرقم وهومالااريده فقط الحروف فقط
فالنتيجة كانت بعد تطبيق الكود : ( شيك رقم 538) نلاحظ انه عكس الرقم وبالتالي هناك خطا بالتحويل لان الرقم تغير
فهل توجد طريقة لحل هذه المشكلة
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
السلام عليكم
أخي الكريم لكل مشكلة حل بالتأكيد
هل هذه الكلمة (835 مقر كيش)
حقل في جدول ؟ ارجو التوضيح
ياليت لو ترفق مثالك يكون افضل
تحياتي
ekseer
تم تعديل هذه المشاركة بواسطة ekseer في 3 أبريل 2007 في 15:07
بالنسبة للنص المذكور وما يماثله من النصوص من حيث عدد الحروف وعدد الارقام وعدد المسافات
اكتب الكود التالي.
=StrReverse(left([tx];7))&" "&Right([tx];3)
حيث TX هو اسم مربع النص المكتوب فيه النص الاصلي.
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
اخ يهاب هناك مشكلة سوف تظهر عندي هوي ماذا لو كان طول النص او الرقم غير ثابت
يعني مثلا ممكن تكون عبارة اخرى عبارى رقم الشيك
كيف يمكن صياغة العبارة التي وضعتها
اخ اكثيير نعم هذه الحقل في جدول
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
الاخ عمار زايد للاسف لم تضبط
فقط حاولت تجربة العبارة التالية 835 مقر كيش وكانت النتجة ان حول الرقم الى 538
وهناك حاجة وهي ان الجملة غير ثابتة يعني ممنكن عبارة اخرى يكون الرقم في البداية وممكن يكون في النهاية بالاضافة انه ليس هناك طولل محدد للحرف او الرقم وايضا المكان غير محدد !!!
باختصار اريد في حالة عكس العبارة ان اعكس الحروف دون الارقام بغض النظر عن طولها او مكانها
واليك النص التالي كمثال ارجو تطبيقيه : ةريدقلا/14 تاهمأ ةعرزم
اريد ان اصل الى النص التالي : مزرعة أمهات 14/القديرة
طبعا في حالة ماكنت احول باستخدام الكود StrReverse كانت النتيجة :مزرعة أمهات 41/القديرة
فنلاحظ ان بدل الرقم 14 حولها الى رقم 41 وهناك المشكلمة التي اريد لها حلا
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
????????
السلام عليكم
أرجو أن يكون هذا الملف يحقق طلبك
يوجد في داخلة طريقتين غير الطريقة الأولى التي أرسلتها سابقاً
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
اخ عمار
في حالة النموذج لن تضبط للسبب الذي ذكرته في حال وجود اكثر من رقم
في حالة الاستعلام الدالة تعمل بشكل صحيح ولكن هناك خطأ سيحصل وسوف تتوقف الدالة عن العمل في حال وجود اكثر من فراغ بعد النص او قبله
مرفق اكثر من مثال لهذه الحالة في نفس الملف المرسل من قبلك
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
اخي العزيز المبرمج 2003
الدالة تعمل بشكل صحيح ولكن سوف تقع في خطأ في حالة ان الحقل احتوى على اكثر من رقم لانو في هذه الحالة ستعتبر ها رقم واحد
وهذا بالطبع خطا كبييير
ارجو التعديل ان امكن
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
أخ رامي
في حال كان أكثر من فراغ في النص يمكنك إضافة trim حتى يتم إلغاء الفراغات الزايدة
اما حالة وجود أكثر من رقم في النص فهذا لم تورده في سؤالك وتم العمل على المثال الذي وضعته
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
رامي كتب:اخي العزيز المبرمج 2003الدالة تعمل بشكل صحيح ولكن سوف تقع في خطأ في حالة ان الحقل احتوى على اكثر من رقم لانو في هذه الحالة ستعتبر ها رقم واحد
وهذا بالطبع خطا كبييير
ارجو التعديل ان امكن
اخي الكريم انت وضعت امثلة لما تريد فقلت
اريد ان يتحول هذا النص (835 مقر كيش) إلى (شيك رقم 835)
ثم اوردت مثال آخر وهو تحويل النص من (ةريدقلا/14) إلى (14/القديرة)
وبناء على هذا الطلب تم المطلوب بالضبط
الآن تغير طلبك فاصبح طلبك للنص الذي يحتوي على اكثر من رقم ......!!
اتمنى منك ومن جميع الاعضاء ان يوضحوا طلباتهم بالضبط بالأمثلة قبل بدء كتابة المشاركة
عموما صار خير
اتمنى ان تكتب هنا الامثلة التي تريد تحويلها كما فعلت سابق في المشاركة الأولى --- النص والنص المحول إليه مثل حكاية (835 مقر كيش) إلى (شيك رقم 835)
وإن شاء الله نقدر نخدمك
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
الأخ الفاضل ...
جرب أستخدام الدالة التالية (ضعها فى الـ Module ) :
Public Function ReverseText(s As String) As String Dim l As Integer Dim n As Integer Dim ch As String Dim Str As String Dim StrN As String l = Len(s) For n = l To 1 Step -1 ch = Mid$(s, n, 1) If IsNumeric(ch) = False Then If Len(StrN) > 0 Then Str = Str & StrN StrN = "" End If Str = Str & ch Else StrN = ch & StrN End If Next If Len(StrN) > 0 Then Str = Str & StrN StrN = "" End If ReverseText = Str End Function
ثم بعد ذلك أستخدم استعلام بالشكل:
SELECT Table1.name, ReverseText([Table1.name]) AS [Reversed Text] FROM Table1
وذلك بفرض أن لديك جدول أسمه Table1 يحتوى على الحقل النصى name المراد عكس محتوى النصوص فيه.
أرجوا ان تلبى هذه الدالة ما تريد إنجازه
شكراً
تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 6 أبريل 2007 في 18:45
Nothing is impossible, the word impossible itself says that: I M - Possible
ما شاء الله تبارك الله عليك يا Eng. Usama El-Mokadem
كالعادة دائما متألق
اتوقع ان هذا الجواب كافي وشافي
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
ما شاء الله حولك , الله يزيدك من علمه أخ أسامه ,
الأخ المبرمج 2003 الله يجزيك الخير على طريقتك الجميلة أيضاً
آمل أن يكون الأخ رامي قد نال مراده ونشكره على هذا السؤال الذي تعلمنا منه الكثير ,
ولكن سؤالي ( آسف لتطفلي ) لماذا تستخدم عكس الأحرف , بصراحة لم تمر علي أن أحتاج أن أعكس نص , فهل هناك برامج تصدر المعلومات معكوسة وأنت تحتاج أن تعيدها لوضعها مرة أخرى آسف لتطفلي
قالَ رَسُولُ الله صلى الله عليه وسلم:
"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "
حديث حسن صحيح
جزاكم الله خيرا جميعا
وشكر جزيلا لكم
الاخ عمار نعم انا اتعامل مع نظام as400 التي تصدر بيانات النص معكوسه عندما اعمل استيراد للبيانات في اكسيس مما يلزم مني في اكسيس ان اعكسها
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
شوف انا كنت عمال ببرمج فيجوال بيسك قبل
www.vbcode.com
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…