+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة اللغة العربية مع تصدير البيانات إلى إكسل (/showthread.php?tid=11400)
الصفحات:
1
2
RE: مشكلة اللغة العربية مع تصدير البيانات إلى إكسل - tahar1983 - 09-07-2021
(08-07-2021, 06:07 PM)Mohamed Allam كتب :ريح بالك واستخدم Lazarus في قواعد البيانات فهو مجاني وسهل وبسيط وبه مزايا رائعةأنا استخدمة مكتبة رائعة في لازاروس وهي مكتبة RX تتضمن dbgrid به فلتره تلقائية مثلبرنامج الاكسل ومكونات اخرى جميلة منها مكون يصدر الى الى اكسل في ثانية ودعم كامل للغة العربية
وهذا احراء تصدير الى اكسل بسيط وسهل وإذا كنت تعشق دلفي يمكنك استخدام لازاروس فقطفي تطبيقات قواعد البيانات ودلفي في بقية الأمور
كود :procedure Temp_frm.btn_printClick(Sender: TObject); begin if SaveDialog1.Execute then begin xpo.FileName:=SaveDialog1.FileName; xpo.RxDBGrid:= grid_emp; xpo.PageName:='data'; xpo.Execute; end; end;
ممكن تزويدنا بالاداة والمكون
RE: مشكلة اللغة العربية مع تصدير البيانات إلى إكسل - أبو معاذ - 10-07-2021
كود :
procedure Temp_frm.btn_printClick(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
xpo.FileName:=SaveDialog1.FileName;
xpo.RxDBGrid:= grid_emp;
xpo.PageName:='data';
xpo.Execute;
end;
end;(09-07-2021, 07:59 PM)tahar1983 كتب :(08-07-2021, 06:07 PM)Mohamed Allam كتب :ريح بالك واستخدم Lazarus في قواعد البيانات فهو مجاني وسهل وبسيط وبه مزايا رائعةأنا استخدمة مكتبة رائعة في لازاروس وهي مكتبة RX تتضمن dbgrid به فلتره تلقائية مثلبرنامج الاكسل ومكونات اخرى جميلة منها مكون يصدر الى الى اكسل في ثانية ودعم كامل للغة العربية
وهذا احراء تصدير الى اكسل بسيط وسهل وإذا كنت تعشق دلفي يمكنك استخدام لازاروس فقطفي تطبيقات قواعد البيانات ودلفي في بقية الأمور
كود :procedure Temp_frm.btn_printClick(Sender: TObject); begin if SaveDialog1.Execute then begin xpo.FileName:=SaveDialog1.FileName; xpo.RxDBGrid:= grid_emp; xpo.PageName:='data'; xpo.Execute; end; end;
ممكن تزويدنا بالاداة والمكون
هذه المكونات مجانية اسمها RxLib .
رابط المكونات تجده هنا :
كود :
http://www.micrel.cz/RxLib/بالمسبة للمكونات التي استعملتها لتصدير البيانات اكسل ، اسمها TscExcelExport و هي مكونات مجانية للاستعمال الشخصي.
رابط التحميل
كود :
http://www.scip.be/index.php?Page=ComponentsExcelExport&Lang=ENRE: مشكلة اللغة العربية مع تصدير البيانات إلى إكسل - Mohamed Allam - 13-07-2021
كل مكونات لازاروس تقريبا مجانية ويمكن تحميلها بإستخدام online package manager الذي يأتي مدمج مع لازاروس
مكتبة Rx هي مجانية ولكن في لازاروس افضل من الدلفي وانا جربت الاثنين
المهم عند تثبيت هذه المكتبة في لازاروس وافق على تثبيت كل الاضافات الاختيارية لكي يتم تثبيت مكتبة قوية وهامة في الاتصال بجميع قواعد البيانات بكل سهولة ويسر وهي مكتبة zeosdbo وهي تشبه في الاستخدام مكتبة dbgo في دلفي كما يتم تثبيت مكون Lazreport جميل ورائع كما يتم تثبيت مكتبة Fpspradsheet المختصة بتصدير الجريد الى ملف اكسل
RE: مشكلة اللغة العربية مع تصدير البيانات إلى إكسل - kito - 14-07-2021
السلام عليكم و رحمة الله
أنا أيضا عندي نفس المشكل في مشروع صغير يبحث و يستبدل الكلمة في مستند وورد
RE: مشكلة اللغة العربية مع تصدير البيانات إلى إكسل - kito - 20-07-2021
طيب بالنسبة لمشكلتي في ملف الوورد الحل يكمن في استخدام وسيط لنقل النص و ليس النص مباشرة
مثلا
كود :
;A:olevariant
;A:=edit.Text
;OleComand.Replace.Text:=Aكود :
OleComand.Replace.Text:= edit.TextRE: مشكلة اللغة العربية مع تصدير البيانات إلى إكسل - larbiparadox - 20-07-2021
نستعمل المكتبة التالية
uses ComObj;
كود :
var
WordApp: Variant;
begin
WordApp := CreateOLEObject('Word.Application');
WordApp.Documents.Open('مسار الملف المراد التعديل عليه');
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := 'النص المراد تعديله';
WordApp.Selection.Find.Replacement.Text := 'النص الجديد';
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Wrap := 1; {wdFindContinue}
WordApp.Selection.Find.Format := False;
WordApp.Selection.Find.MatchCase := False;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchWildcards := True;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
WordApp.Selection.Find.Execute(Replace := 2); {wdReplaceAll}
{Or as alternative: WordApp.Selection.Find.Execute(Replace := 1); for one replace}
WordApp.ActiveDocument.SaveAs('اعادة تسمية الملف في مسار جديد أو في نفس المسار بإسم جديد');
WordApp.Quit;
WordApp := Unassigned;