تصفية حقل مختلف الادخالات

[محمدنجار]

السلام عليكم

:: لدي حقل سجلاته بعدة لغات عربي انكليزي وكذلك ارقام ورموز

:: كيف يمكن الفرز بينهما ؟ .................................... مع التقدير

Filter.rar

[jjafferr]

وعليكم السلام 🙂

 

حيا الله اخوي محمد 🙂

 

هذا مجرد حقل عادي ، فيه بيانات مختلفة ، وبلغات مختلفة ، شو المشكلة !!

 

يمكنك التصفية بقيمة الحقل كاملة ، او عن طريق Like :

 

 

جعفر

 

[محمدنجار]

36 دقائق مضت, jjafferr said:

حيا الله اخوي محمد 🙂

هذا مجرد حقل عادي ، فيه بيانات مختلفة ، وبلغات مختلفة ، شو المشكلة !! يمكنك التصفية بقيمة الحقل كاملة ، او عن طريق Like :

جعفر

:: الله محييك اخي جعفر ... 🙂

:: القصد هو تصفية كل السجلات التي باللغه الانكليزية وكذلك كل سجلات العربيه وسجلات الارقام وان امكن سجلات الرموز ان كان مصدر ادراجها واحد ...

ولك مني كل الشكر والتقدير

[jjafferr]

هممم

طريقة غير متعودين عليها ، ولكن هذا حال قواعد البيانات ، وخصوصا اذا جابوا البيانات من الاكسل ، حيث يخلطون البيانات 🙂

 

بيانات الجدول ،

الاستعلام qry_1 ، ولاحظ كيف ننادي الوحدة النمطية Isolate ونخبرها شو التصفية اللي نريدها (عربي ، انجليزي ، ارقام ، علامات) ، ونرسل لها قيمة الحقل ، وبما اننا عملنا حقل لكل لغة ، فتعطينا كل قيمة في حقلها ،

بينما الاستعلام qry_2 ، يأخذ تصفيتة من الحقل cmb_Lang من النموذج Form1 ، ويعطينا فقط تصفية الحقل Name 

 

.

والتجربة

.

الطريقة اللي جاءت على بالي ، هي استعمال Ascii كل حرف من حروف الخط ، وهو رقم الحرف ، وهي ارقام ثابته بغض النظر عن نوع الخط المستعمل ،

هذا الجدول الاصل لجميع حروف وحركات اللاتينية/الانجليزي، وهنا قيمة Asc موجودة في العمود Dec

.

وهذا جدول الحروف العربية ،

من https://www.aivosto.com/articles/stringopt3.html

.

الوحدة النمطية Isolate :

تقوم الوحدة النمطية ، وعلى اساس اللغة المطلوبة (والتي يتم ارسالها من الاستعلام ، مع القيمة) ، بقراءة كل حرف من القيمة ، 

وعلى اساس اللفة و الحرف ، يتم اخذ قيمته الـ Asc للحرف (وقد يكون من الافضل استعمال AscW ، كون القيمة تحتوي على حروف UTF-8 او Unicode) ، ويقوم بجمعها ، ورد القيمة الى الاستعلام:

Public Function Isolate(Lang As String, str As String) As String

    'Lang = "E" = "English"
    'Lang = "N" = "Numbers"
    'Lang = "C" = "Characters"
    'Lang = "A" = "Arabic"
    
    Dim i As Integer
    Dim curAsc As Integer
    Dim curChr As String
    Dim con As String
    
    
    For i = 1 To Len(str)
         
         
        curChr = Mid(str, i, 1) 'one character at a time
        curAsc = Asc(curChr)    'Asc of that character
        
        If Lang = "E" And ((curAsc > 64 And curAsc < 91) Or (curAsc > 96 And curAsc < 123)) Then
            '65 to 90 capital letters, 97 to 122 small letters
            con = con & curChr
            
        ElseIf Lang = "N" And (curAsc > 47 And curAsc < 58) Then
            '48 to 57 capital letters
            con = con & curChr
        
        ElseIf Lang = "C" And ((curAsc > 31 And curAsc < 48) Or _
                               (curAsc > 57 And curAsc < 65) Or _
                               (curAsc > 90 And curAsc < 97) Or _
                               (curAsc > 122 And curAsc < 127)) Then
            '32 to 47, 58 to 64, 91 to 96, 123 to 126
            con = con & curChr
        
        ElseIf Lang = "A" And curAsc > 127 Then
            'Extended Ascii , > 127
            con = con & curChr
                
        End If
    
    
    Next i
    
    Isolate = con
    
End Function

جعفر

1034.Filter.accdb.zip

[محمدنجار]

9 ساعات مضت, jjafferr said:

هممم

طريقة غير متعودين عليها ، ولكن هذا حال قواعد البيانات ، وخصوصا اذا جابوا البيانات من الاكسل ، حيث يخلطون البيانات 🙂

بيانات الجدول ،

الاستعلام qry_1 ، ولاحظ كيف ننادي الوحدة النمطية Isolate ونخبرها شو التصفية اللي نريدها (عربي ، انجليزي ، ارقام ، علامات) ، ونرسل لها قيمة الحقل ، وبما اننا عملنا حقل لكل لغة ، فتعطينا كل قيمة في حقلها ،

بينما الاستعلام qry_2 ، يأخذ تصفيتة من الحقل cmb_Lang من النموذج Form1 ، ويعطينا فقط تصفية الحقل Name

الوحدة النمطية Isolate :

تقوم الوحدة النمطية ، وعلى اساس اللغة المطلوبة (والتي يتم ارسالها من الاستعلام ، مع القيمة) ، بقراءة كل حرف من القيمة ، 

وعلى اساس اللفة و الحرف ، يتم اخذ قيمته الـ Asc للحرف (وقد يكون من الافضل استعمال AscW ، كون القيمة تحتوي على حروف UTF-8 او Unicode) ، ويقوم بجمعها ، ورد القيمة الى الاستعلام:

جعفر

:: في الميكرو بيلوجيا نقوم بعزل Isolate مستعمرات البكتريا الممرضة Pathogenic عن البكتريا التكافلية Normal Flora بواسطة بعض الاختبارات البسيطة خلال 3 الى 21 يوم .

:: هنا يقوم الاستاذ الرائع جعفر بعزل كل شيء يمكن كتابته وخلال يوم واحد ...؟! وهاي تحتاج الى ساحر وليس استاذ ... هذه الكلمات تعبر لك عن مدى شكري وتقديري لشخصك الكريم

[jjafferr]

والآن مادامت الوحدة النمطية Isolate تقوم بالعمل على طول ، جربها على البكتيريا 

حياك الله 🙂

 

جعفر

[محمدنجار]

9 ساعات مضت, jjafferr said:

طريقة غير متعودين عليها ، 

:: هههههه لم تكتفي بالتعقيد المذكور بل اضفت له تعقيدات ومشاوير ... مشان تستاهل التعب .

7 دقائق مضت, jjafferr said:

والآن مادامت الوحدة النمطية Isolate تقوم بالعمل على طول ، جربها على البكتيريا 

:: ههه راح اعمل بنصيحتك .🙏

تم تعديل أبريل 15, 2019 بواسطه محمدنجار

[jjafferr]

19 دقائق مضت, محمدنجار said:

البكتريا الممرضة Pathogenic عن البكتريا التكافلية Normal Flora

مو على قولك ، ما كنت ادري نوع البكتيريا ، فقلت يالله نتعامل مع الاثنين 🙂

 

جعفر