كيف يمكن إهمال التشكيل في عملية البحث

الإخوة الكرام

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

فرجاء المساعدة في هذا الأمر

وإن كان هناك أي حل آخر فسارعوني به

ألا توجد أي مساعدة ؟

هلا أخوي

الظاهر مافي كود بهذه الطريقه

بس ممكن تسوي طريقه تفيدك

انك تسوي كود قبل عملية البحث مهمته حذف التشكيل من النص وفكرته كالتالي

تسوي حلقة تكرار بحيث تبحث في النص حرف حرف وإذا حصل احد احرف التشكيل الي بتكون عرفتها على البرنامج بيحذفها وبعد إنتهاء حلقة التكرار تحصل عندك النص موجود بدون تشكيل .

أرجو ينفع معك الكود

إذا اردت اكتب لك الكود علمني

أخي الكريم rayig

الطريقة التي ذكرتها أنت هي التي أحتاج إلى كودها فقد حاولت وفشلت فحبذا لو تكتب لي الكود , مع العلم أن اسم الجدول عندس Had واسم الحقل المراد البحث فيه text

لكن سؤال أخي :

هل هذا الكود سيقوم بحذف علامات التشكيل من قاعدة البيانات بحيث عند عرض البيانات لا أجد علامات التشكيل في النص ؟

إذا كانت كذلك فلا فائدة منها إطلاقا

وجزاك الله خيرا

من منتديات المختار للبرمجة -> منتديات الفيجوال بيسك -> منتدى برمجة قواعد البيانات بإستخدام فيجوال بيسك 6

اقتباس

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

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

طبعاً سوف أقوم بشرح عدّة طرق حتى نتوصل إلى الطريقة المثلى بإذنه تعالى ..

ملاحظة :

إقرأ درس ((كيف تبرمج دليل الهاتف .. )) لأننا سوف نقوم بدراسة عملية عن طريق تطوير البرنامج السابق - دليل الهاتف -

الدرس هنا

http://www.2jm2.com/forums/index.php?act=ST&f=6&t=22

بسم الله الرحمن الرحيم نبدأ :

الطريقة الأولى - الأمر seek :

هذه الطريقة تعد من أبسط الطرق و أسهلها خصوصاً على المبتدئين و تعطي نتائج مبدئياً لا بأس بها

كيفية الاستخدام .. عن طريق الكود التالي

ضع زر أمر بعنوان بحث 1 ضع فيه الكود التالي

كود 

Dim sareth

sareth = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

Data1.Recordset.Index = "name"

Data1.Recordset.Seek ">=", sareth

If Data1.Recordset.NoMatch Then

MsgBox "السجل غير موجود", 16, "مراقب البرنامج"

End If

ملاحظة : البرنامج هنا يبحث في الاسماء .. لجعل البحث في العنوان مثلاً استبدل name ب en و هو اسم حقل العنوان الموجود في قاعدة البيانات

الطريقة الثانية - البداية مع sql :

تعتمد هذه الطريقة على لغة SQL بشكل أساسي و هي لغة تستخدم للتعامل مع قواعد البيانات .. اذا لم تكن تعرف ما هي SQL ولا يهمك و لا تشيل هم .

اضف زر أمر بعنوان بحث 2

ضع فيه الكود التالي

كود 

Dim sareth2

sareth2 = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

data1.RecordSource = "SELECT * FROM mok WHERE name='" & sareth2 & "'"

data1.Refresh

ملاحظة : هذه الطريقة تظهر النتائج على أنها جدول جديد في قاعدة البيانات لذلك لا تستغرب إذا لم بعرض سوى النتائج في الفورم

ملاحظة 2 : بدون تطبيق المنهج refresh فإن العملية لن تتم لذلك إنتبه فلنا عودة على هذه النقطة

الطريقة الثالثة - تطوير التعامل مع sql :

إذا حاولت البحث في الطريقة الثانية عن اسم مختار مثلاً

و كان عندك سجل شخص أسمه ((مختار سيد صالح)) فإنه لن يظهر لك شيء .. هذا مزعج

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

مثلاً ((أحمد مختار - على مختار محمد - مختار سيد صالح)) يعني بحث ممتاز جداً

إذن فالطريقة السابقة لا تنفع أما الآن سوف أقول لك كيف تتطور الطريقة السابقة و تخليها تنفع ...

استبدل الكود السابق بالكود التالي

كود 

Dim sareth2

sareth2 = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

Data1.RecordSource = "SELECT * FROM mok WHERE name LIKE (""" & "*" & sareth2 & "*" & """)"

data1.Refresh

لاحظ أنه لم يتغير شيء من الكود سوى جمله الاستعلام ...

ملاحظة : أنا أفضل الطريقة الأخيرة للبحث عن الاسماء و العناوين و ليس للأرقام لأنها يمكن تسبب إشكالات

الطريقة الرابعة - البحث عن التواريخ :

لو جربت كل الطرق السابقة على حقل للتاريخ فإنك لن تفلح أبداً في البحث و لن تجد نتائج

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

لذلك تفضل هذا الكود للبحث عن التواريخ ..

كود 

Vardate = "*" & CDate(Date) & "*"

segl.Data1.RecordSource = "SELECT * FROM mok WHERE Date like " & "'" & Vardate & "'" & " "

segl.Data1.Refresh

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

ملاحظات عامة على الدرس :

تعبر الكلمة mok عن إسم الجدول

أما الكلمات name , date , en فهي أسماء الحقول

التطبيق العملي أفضل وسيلة للتعلم الجيد

و أخيراً أرجو منك أخي العزيز أن لا تبخل بالدعاء لي و لوالدي .. و أرجو أن يكون هذا الدس من العلم الذي

ينتفع به ....

و أي سؤال أنا حاضر

أخوكم : مختار سيد صالح

الامثلة

ليس لى الا النقل وبه كل الطرق والحلول

وفي مشاركات المهنا الكثير الكثير من هذه الاستفسارات

fined2.rar

____________________.rar

firstsoft.rar

____________222.rar

_________.rar

أخي الكريم المهنا

جزاك الله خيرا على الأمثلة

الإخوة الكرام

رجاء محاولة إيجاد حل لإهمال عملية التشكيل أثناء البحث ضروري جدا

برسل لك ملف مرفق فيه الطريقة الي قلتها

إن شاء الله في الليل الحين ماعندي فيجوال على الجهاز

هذه كود بسيط وعملي

أرجو ان تستفيد منه

طبعاً كود البحث خليه يبحث في text3

او تقدر تبدله بأي متغير نصي

Private Sub Command1_Click()
' النص بالتشكيل
Text1.SelStart = 0
Text1.SelLength = 1
Do While Text1.SelStart < Len(Text1)
If Asc(Text1.SelText) = 243 Or Asc(Text1.SelText) = 240 Or Asc(Text1.SelText) = 245 Or Asc(Text1.SelText) = 241 Or Asc(Text1.SelText) = 246 Or Asc(Text1.SelText) = 242 Or Asc(Text1.SelText) = 248 Then
Else
' النص هنا يظهر بدون تشكيل
Text3 = Text3 & Text1.SelText
End If
Text1.SelStart = Text1.SelStart + 1
Text1.SelLength = 1
Loop
End Sub

أخي الكريم

جزاك الله خيرا الكود نجح

لكن هناك مشكلتين

1- أنه لا يستطيع أن يحذف علامة السكون فهي تبقى في النص

2- أني لا أستطيع استخدامه في قواعد البيانات فقد جربته على نص طويل إلى حد ما ووجدته بطيء جدا

عموما جزاك الله خيرا على المساعدة

أهلين

ممكن تضيف رمز حركة السكون تحصله في مخطط توزيع الأحرف او ممكن تطلعه بالكود

ASC("علامة السكون")

اذا عندك مثلاً حجم نصوص كبيره في قاعدة البيانات يعني ماتتغير مثل القرآن الكريم عندي لك طريقه انا مجربها

في نفس قاعدة البيانات سوي حقل جديد لتخزين النص بدون تشكيل

وإبدأ بإستخدام الكود الي في ردي السابق لتصفيه جميع النصوص من التشكيل وتخزينها في قاعدة البيانات

بحيث اذا اردت عرض النص تعرض بالتشكيل أما اذا اردت البحث فإبحث في حقل النص بدون تشكيل

أتمني تستفيد من هذه الفكره

أخي الكريم rayig

ممكن تضيف لي كود حذف علامة السكون فأنا لم أفهم أصلا معنى 240 أو 243 أو غيرها التي في الكود

فرجاء أن تكتبه لي

سؤال إضافي بارك الله فيك :

كيف يمكنني جعل علامات التشكيل بلون مختلف عن النص كالأزرق مثلا ؟

بمعنى ان عندي نص مشكل وجاهز , وأريد أن أجعل لون علامات التشكيل فقط باللون الأزرق مثلا ؟

أعلم اني أتعبتك معي , وجزاك الله خيرا

للرفع

علامات التشكيل لها قيم محددة في اليونيكود .. ارجع الى جدول اليونيكود واحفظ قيمها في سلسلة ...

عليك الإنتباه الى كون النص في أي تشفير هو UTF-8 او UTF-16 أو غيرها (إعتمادا على المكون الذي تستعمله او الطريقة المحفوظ فيها النص مسبقاً) لأن التعامل سيختلف...

اقرأ النص بدون علامات التشكيل الى الذاكرة (Memory stream اوغيرها) ثم قم بما تريد ..

أخي الكريم

بصراحة لم أعرف كيف أطبق كلامك

فأنا لا أعرف جدول اليونيكود أصلا ولا أين هو , وكيف أستعمله !!

اعذرني فمستواي ليس بالقوي

الرجاء ممن يملك القدرة أن يحل لي مشكلة ظهور علامة السكون , وتلوين علامات التشكيل بلون مختلف عن النص

وجزاكم الله خيرا

للرفع

على ضوء الردود السابقة اعتقد من وجهة نظرى ان تكتب الكلمة مرة بالتشكيل و مرة بدون تشكيل يعنى حقلين

أخي الكريم

هذه ليست مشكلة في حد ذاتها

لكن المشكلة ان هناك نصا مشكلا ( وليس عندي غيره) وأريد إدخاله إلى قاعدة البيانات غير مشكل

فأنا أريد ان أحذف التشكيل أولا

لذا فأنا أريد كود يحذف لي علامات التشكيل أولا

ولو أن عندي النص غير مشكل لما أتعبت نفسي

كما قلت لك أخي العزيز يعتمد ذلك على طريقة التشفير المكتوب بها النص أهو UTF-8 أم UTF-16 أم غيرها فقيم كل محرف يختلف من طريقة لأخرى ...

لا بد أن تعرف ذلك اولا لتعرف كيف تستثني المحارف التي لا تريد سواء أكانت علامات تشكيل ام غيرها ...

تحياتي

أخي الكريم cipher

إذا ما هو الحل لمشكلتي ؟

معرفة طريقة التشفير المكتوب بها النص لا أعرف عنها شيئا أصلا

والكود الذي وضعه لي الأخ rayig نجح فعلا إلا مع علامة السكون

فلو اكتمل الكود بحذف علامة السكون فهذا ما أريده فقط

وجزاك الله خيرا

يبدو أن التشفير هو

ISO 8859-6 Latin/Arabic Alphabet

راجع :

http://www.columbia.edu/kermit/arabic.html

ستجد ان علامة السكون 241 ...

اقتباس

والكود الذي وضعه لي الأخ rayig نجح فعلا إلا مع علامة السكون

على فكره انا النظام عندي بواجهه صينية ولم استطع الكتابة بالعربية باستخدام TextBox التابع لفيجوال بيسك (النسخة الصينية) ..

أقصد من هذا الكلام أن البيئة التي سيعمل فيها برنامجك ليس بالتاكيد هي نفس البيئة التي برمجت فيها .. والكثير من الأخوة لا يهتم بمسألة اليونيكود ودعم اللغة العربية في انظمة ليست واجهة المستخدم فيها هي العربية ..

أخي الكريم

جزاك الله خيرا

توصلت إلى كود حذف علامة السكون وهو 250

عذرا على التاخير ..يظهر انى مفهمتش الموضوع كويس

بالنسبة للبطء فى عملية المعالجة فيمكن علاج ذلك عن طريق تنقية الكلمات من خلال متغير بدلا من تنقيتها داخل ال textbox

الأستاذ الكريم VB6-Rocket

هذا هو الكود

Text1.SelStart = 0
Text1.SelLength = 1
Do While Text1.SelStart < Len(Text1)
If Asc(Text1.SelText) = 240 Or Asc(Text1.SelText) = 241 Or Asc(Text1.SelText) = 242 Or Asc(Text1.SelText) = 243 Or Asc(Text1.SelText) = 244 Or Asc(Text1.SelText) = 245 Or Asc(Text1.SelText) = 246 Or Asc(Text1.SelText) = 247 Or Asc(Text1.SelText) = 248 Or Asc(Text1.SelText) = 249 Or Asc(Text1.SelText) = 250 Then
Else

Text3 = Text3 & Text1.SelText
End If
Text1.SelStart = Text1.SelStart + 1
Text1.SelLength = 1
Loop

وعندما نضع متغير مثلا نقول :

Dim del As String

del = Text1.Text

ماذا بعد ذلك ؟

بسم الله الرحمن الرحيم

بالنسبة لرأي الاستاذ VB6-Rocket

 
Dim a As String, n As String, s As String
n = ""
a = Text1.Text
i = 1
Do While i <= Len(a)
s = Mid(a, i, 1)
If Asc(s) = 240 Or Asc(s) = 241 Or Asc(s) = 242 Or Asc(s) = 243 Or Asc(s) = 244 Or Asc(s) = 245 Or Asc(s) = 246 Or Asc(s) = 247 Or Asc(s) = 248 Or Asc(s) = 249 Or Asc(s) = 250 Then
Else
n = n & s
End If
i = i + 1
Loop
Text2.Text = n

على فكره الهدف هو الاستغناء عن نقل التضليل في الtext1 حيث أنه يجبر الحاسوب على معالجة اضافية ( معالجة النص ( ازالة التشكيل ) ومعالجة التضليل ( نقله ) ).

اليس كذلك استاذ VB6-Rocket

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