هل يوجد مدقق املائى انجليزى للفوكس برو ؟؟؟

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

ولكن يمكنك الاستعانة ببرامج أخرى تحتوي على مدقق مثل Microsoft Word

اليك الرابط التالي الذي يحتوي على مثال حول هذا الموضوع

How To Spell Check in Visual FoxPro with Microsoft Word

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

شاكرين لك اهتمامك وتشجيعك لاعضاء المنتدى الغالى علينا جميعا

منتدى الفريق العربى للبرمجة

سلام

أخي الكريم

جرب الكود التالي في برنامج صغير لديك حتى تصلك الصورة بشكل بسيط

الكود كله قائم على استخدام المدقق الاملائي الخاص بـ MS Word

وفعليا نحن نقوم باستخدام الـ Word بشكل مباشر ولكن بدون اظهاره، حيث سنقوم بانشاء ملف Doc وارسال النص له لغايات التدقيق ومن ثم اعادته للنموذج

واليك الجزء الذي يهمنا منه ( متبوعا بشرح لبعض أوامره حسب التسلسل الرقمي )

01- cTxtToCheck="Arib Tiam Forom"
02- oWord=createobject([WORD.APPLICATION])
03- oWordDoc=oWord.Documents.add
04- oWordDoc.Content=cTxtToCheck
05- oWordDoc.activate

06- if oWordDoc.SpellingErrors.count > 0
07- 	oWordDoc.CheckSpelling()
08- endif
09- oWord.visible = .f.

10- cNewText = oWordDoc.Content.text

11- messagebox( "Old Text =" +  cTxt + chr(13)+;
	"New Text = " + cNewText ;
	, 0,[Spell Checker])


12- with oWord
13- 	.DisplayAlerts=.f.
14- 	.ActiveDocument.close(.f.)
15- 	.quit
16- endwith
17-release oWord

1- هو المتغير المراد تدقيقه املائيا

2- انشاء عنصر MS Word واعطاؤه اسم oWord كمرجع

3- انشاء صفحة في برنامج Word واعطاؤها اسم oWordDoc كمرجع

4- أمر تصدير النص المراد تدقيقه للصفحة التي قمنا بانشاءها

6- تحديد اذا كان في النص أخطاء عن طريق معرفة عددها بواسطة SpellingErrors.count

7- اذا وجد لدينا أخطاء نقوم باظهار الـمدقق الاملائي بواسطة الأمر CheckSpelling

..

..

10- حفظ النص بعد تعديله في المتغير cNewText

ومن 13 لغاية 16 أوامر لاقفال برنامج الـ MS Word بدون تخزين الصفحة التي تم التعامل من خلالها

وهذا نموذج يمكنك التعديل عليه حسب حاجتك spelChkr.rar

مع التحية