الترتيب التصاعدي في حقل نصي

الترتيب الذي يظهر امامك هو بالفعل الترتيب التصاعدي للارقام المعرفة كنص اذا اردت الترتيب بالشكل المذكور فعليك الادخال كما يلي:

ِA01

A02

.

.

.

A99

أو هكذا

A001

A002

.

.

.

A999

بعد إضافة الصفر بين النص والرقم كانت النتائج كالتالي:

Txt

A01

A010

A011

A012

A013

A014

A015

A016

A017

A018

A019

A02

A020

A03

A04

A05

A06

A07

A08

A09

يعني لم يترتب شئ

فهل من حلول أخرى

بعد التحية

هذه المشكلة لها حل وهي استخدام الدالة val

انشأ استعلام وعين الحقل الذي تريده بالاستعلام وليكن item_no ثم بخانة الحقل الذي يليه اكتب كالتالي EE:val(item_no) ثم رتبه حسب ما تريد وسوف تلاحظ ان المشكلة حلت ـ واذا لم تستطع حل هذا يرجى اعلامي سأرفق لك مثالا

تحياتي

السلام عليكم ورحمة الله

الاخ الكريم

على حد معلوماتى, فان ما قصده اخونا الفاضل ايهاب عثمان أعزه الله وجزاه خير الجزاء على مجهوداته بالمنتدى, ان تحدد مسبقا عدد الخانات التى سوف تخصصها للرقم ثم تجعل جميع ارقامك بنفس الفورمات وعندها سوف تترتب كما تريد.

وعلى سبيل المثال لو انى اعلم ان عدد سجلاتى لن يزيد عن 99 سجل فعندها يكون الرقم المطلوب مكون كحد اقصى من خانتين ونكتب الترقيم عندها كالتالى

A01, A02, A03, ..., A10, A11, ..., A98, A99

اما لو كان عدد السجلات سيصل حتى 999 فعندها سنحتاج الى فورمات ارقام من ثلاث خانات وسيكون الترقيم كالتالى

A001, A002, A003, ..., A010, A011, ..., A099, A100, A101, ..., A998, A999

وهكذا اخى الكريم يجب تثبيت نفس الفورمات لخانات الارقام والارقام الاقل من عدد خانات الفورمات تضع اصفار على يسارها حتى تنتظم الفورمات وعندها سوف يتم ترتيب السجلات كما تريد,

وبالتوفيق بعون الله,,,

الأخ/غازي عثمان ghaziothman

تحياتي

عملت الاستعلام حسب وصفك ولم يحدث أي ترتيب أو تغيير أما الحقل

EE:Var([TXT])

فكانت القيمة فيه صفر في جميع النتائج

نرجو التوضيح

أما التوضيح الذي أشار إليه الأخ/عماد حمدي احمد

فنتائجه صحيحة كما أشار إليه ولكن ليس هو المطلوب فلا أريد أن أحدد حجم الحقل بل يبقى مفتوحا

تحياتي

شرح الاخ الكريم - عماد حمدي احمد - ما اعنيه بالضبط

جزاه الله خيرا وجعل له نصيبا من دعواته الصالحات

الأخوة الكرام الأستاذ عماد والأستاذ إيهاب مطلوب مثال على المشاركة بحيث يكون كما طلب الأخ أن تكون خاصية حقل الترقيم ( نص ) وأن يتم الترقيم بطريقة آلية فقد تكون الطريقة هى ما أبحث عنه ولم أجد لها حل حتى الآن مع تمنياتى لكم بالتوفيق

أخي الكريم

كما ذكر الأخ ghaziothman

أنشيء استعلام في حقل فارغ أكتب التعبير التالي :

 MyOrder: CInt(Mid$([Num];2;10))

شرح التعبير:

1. CInt تقوم بتحويل مخرجات الدالة $MID إلى رقم ليتم ترتيبه
   
2. بواسطة الدالة $MSD نستخرج الأرقام بدون الحروف وتلاحظ بأمما بدأنا من الرقم 2 لأن A هو رقم 1 ولا نريده.
   
3. الرقم 10 هو عدد الخانات التي نريد أن تعيدها لنا الدالة فلو لدينا حقل بهذا الشكل A65487546871 فأن الدالة ستهمل الرقم 1 من جهة اليمين لأن الأرقام قبله =10 خانات ويمكن أن زيد الرقم 10 بما تراه مناسباً
   

ملاحظة :

يجب أن تستبدل كلمة Num الموجودة بين القوسين المربعين باسم الحقل الموجود لديك واختر في صف " فرز " الفرز الذي تريد تصاعدي أو تنازلي

الأخ الفاضل ...

Alpha2NumSorting.zip

ممكن أستعمال طريقة التالية، وهى تعتمد على أنى قمت بتحويل الحروف لأرقام، وحيث أن الارقام العشرية تتكون من (10) رموز (من 0 إلى 9) ، والحروف الإنجليزية تتكون من (26) حرف (من A إلى Z) وبالتالى يكون المجموع 36 رمز، دون التميز بين الحروف الكبيرة والصغيرة، وحيث أن الفرق فى جدول الأسكى بين الـ"0" وحرف "A" هو (7) لذا إذا ضهر فى الجملة حروف يجب طرح 7 من الحرف، وبالتالى يكون لدينا نظام عدد جديد مكون من (36) رمز (من 0 إلى Z ) مثال "0 1 2 3 .... Z Y X ... M L K ... C B A"، لذلك سنرفع للأس 36، والترتيب بأستخدام الرقم الناتج: مرفق مثال لتوضيح الفكرة

Public Function Alpha2NumConvert(var As String) As Double
	Dim v As Double
	Dim l As Integer
	Dim n As Integer
	Dim c As Byte

	v = 0
	l = Len(var)
	For n = 1 To l
		c = Asc(UCase(Mid(var, n, 1))) - Asc("0")
		If c > 9 Then c = c - 7
		v = v + (c * (36 ^ (l - n)))
	Next

	Alpha2NumConvert = v
End Function

شكراً

السلام عليكم

أخي Eng. Usama El-Mokadem طريقة جميلة ولكن هذه العملية ستأخذ وقتا طويلا في حالة ان هناك بيانات كثيرة في الجدول

لا أعرف هل الأخ alhaithm يريد ان يعتبر B1 اكبر من A10 ام ان العكس

باستخدام الفنكشن Alpha2NumConvert فانه يعتبر B1 اصغر من A10 (طبعا يعتمد على الأخ alhaithm)

على اية حال في حالة ان B1 اكبر من A10 اي ان الترتيب يعتمد على الحرف ثم الرق فان جملة لاستعلام ستكون

select * from txtTable order by left(Txt,1), val(mid(txt,2))

ام اذا كان الترتيب يعتمد على الحرف والرقم بنفس الوقت مالجملة التالية تنفع

select * from txtTable order by  len(mid(txt,2)), left(Txt,1), val(mid(txt,2))

هذه الطريقة اسرع من استخدام user function داخل جملة لاستعلام

والله أعلم

الأخ الفاضل ... Mo7eb_Alrasool

شكراً لك وبارك الله فيك،

اقتباس

MyOrder: CInt(Mid$([Num];2;10))

شرح التعبير:

CInt تقوم بتحويل مخرجات الدالة $MID إلى رقم ليتم ترتيبه

بواسطة الدالة $MSD نستخرج الأرقام بدون الحروف وتلاحظ بأمما بدأنا من الرقم 2 لأن A هو رقم 1 ولا نريده.

الرقم 10 هو عدد الخانات التي نريد أن تعيدها لنا الدالة فلو لدينا حقل بهذا الشكل A65487546871 فأن الدالة ستهمل الرقم 1 من جهة اليمين لأن الأرقام قبله =10 خانات ويمكن أن زيد الرقم 10 بما تراه مناسباً

لقد قرائة الطريقة الرائعة التى أشار إليها الأخ (مصلح الحريصي) فى المشاركة السابقة، وهى نفس الفكرة التى أستخدمها (Mo7eb_Alrasool)، ولكن ما جعلنى أستخدم دالة Alpha2NumConvert هو:

1) سأحتاج للتغير فى كل الإستعلامات إذا ما قررت تخصيص حرفين ثابتين بدلاً من حرف واحد بمعنى (AA1, AA2 ...etc) بدلاً من (A1, A2, ... etc) وسيكون الموضوع أصعب لو كان هذا الـ(Query) داخل كود وليس مجرد أستعلام.

2) لن تفلح فى حلة أستخدام مزيج بين حرف وحرفين مثال (A1, A3, A11, A241, AA10, AA30) وهكذا

3) إذا أردت الأوليه فى الترتيب على أول حرف يمكن أستخدام

SELECT * FROM txtTable ORDER BY Left(Txt, 1), Alpha2NumConvert(txt)

بدلاً من:

SELECT * FROM txtTable ORDER BY Alpha2NumConvert(txt)

شكراً

السلام عليكم

حياك الله أخي Eng. Usama El-Mokadem وبارك الله فيك

انا كنت اتحدث عن السرعة فقط فعند استخدام built in function يكون اسرع من استخدام user defined function

اقتباس

1) سأحتاج للتغير فى كل الإستعلامات إذا ما قررت تخصيص حرفين ثابتين بدلاً من حرف واحد بمعنى (AA1, AA2 ...etc) بدلاً من (A1, A2, ... etc) وسيكون الموضوع أصعب لو كان هذا الـ(Query) داخل كود وليس مجرد أستعلام.

2) لن تفلح فى حلة أستخدام مزيج بين حرف وحرفين مثال (A1, A3, A11, A241, AA10, AA30) وهكذا

select * from txtTable
order by mid(txt,1,instr(txt,strreverse(val(strreverse(txt))))-1),
		 val(mid(txt,InStr(txt,strreverse(val(strreverse(txt))))))

لتجريبها استخدم

select id,txt,mid(txt,1,instr(txt,strreverse(val(strreverse(txt))))-1)as Letters,
mid(txt,InStr(txt,strreverse(val(strreverse(txt))))) as Numbers
 from txtTable
order by mid(txt,1,instr(txt,strreverse(val(strreverse(txt))))-1),
		 val(mid(txt,InStr(txt,strreverse(val(strreverse(txt))))))

فهي تفصل الحروف من الأرقام

والله أعلم طبعا

Mo7eb_Alrasool كتب:

السلام عليكم

انا كنت اتحدث عن السرعة فقط

لتجريبها استخدم

select id,txt,mid(txt,1,instr(txt,strreverse(val(strreverse(txt))))-1)as Letters,
mid(txt,InStr(txt,strreverse(val(strreverse(txt))))) as Numbers
from txtTable
order by mid(txt,1,instr(txt,strreverse(val(strreverse(txt))))-1),
		 val(mid(txt,InStr(txt,strreverse(val(strreverse(txt))))))

الأخ الفاضل ...

بارك الله فبك ... هل تعلم أن الإستعلام السابق يستخدم 17 دالة built in function ؟؟؟؟؟؟؟

قم بإنشاء جدول كبير جداً ، وقارن السرعة !!!