كيف يمكن تحويل الاسماء من اللغة العربي الى الانجليزية الياً

#18 يونيو 2008 في 12:00 صاحب الموضوع

اعضاء المنتدى الكرام

في اكسيس

هل ممكن عمل برنامج يقوم بتحويل الاسماء العربية الى اسماء باللغة الانجليزية

#28 يونيو 2008 في 20:17

السلام عليكم

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

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#38 يونيو 2008 في 20:42

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

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

عملت قاعدة بيانات لترجمة الاسماء، خاصة بطلاب الثانوية العامة، وكانت تحوى اكثر من الفي اسم من الاسماء المعروفة والمتداولة، في منطقتنا..

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

همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#49 يونيو 2008 في 10:00

اخواني الاعزاء وجدت في احد المواقع هذا الكود

يا سيدى

فى فكره انا كنت عملتها مش عارف تعجبك ولا لالألألألألألألألألألألألألألألألألألألألأ

CODE

declare
 nem varchar2(100);
 x varchar2(100);
 d varchar2(100);
 TB_NAME VARCHAR2(30);
 TABLE_id NUMBER;
 AR_NAME VARCHAR2(30) :=:TABLES_NAME;
 alertnuser number;
begin
 if :TABLES_NAME is not null then
   FOR I IN 1..LENGTH(:TABLES_NAME) LOOP
	 nem:=SUBSTR(:TABLES_NAME,I,1);
	   for j in 1..i loop
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','a');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','b');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','c');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','D');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','E');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','f');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','g');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','j');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','i');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','l');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','m');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','n');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','k');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','h');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','g');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','s');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','q');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','w');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','r');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','t');
		 end if;
		 if nem ='¿¿'then
		   nem:=Replace(nem,'¿¿','y');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','u');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','o');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','p');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','z');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','x');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','v');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','as');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ad');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','af');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ag');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ah');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ak');
		 end if;
		 if nem ='¿¿'then
		   nem:=Replace(nem,'¿','al');
		 end if;
		 if nem ='¿¿'then
		   nem:=Replace(nem,'¿','am');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ab');
		 end if;
		 x:=nem;
	   end loop;
		d:=d||x;
   END LOOP;
   TB_NAME:=d;
 forms_ddl('create table '||TB_NAME ||'(t_code number(10) primary key,t_date date,per_id number)');
  select nvl(max(TB_NUMBER),0) into TABLE_id from CONF_TABLE;
 INSERT INTO CONF_TABLE VALUES (TABLE_id+1,TB_NAME,:TABLES_NAME);
 set_alert_property('DROP_CREATE',alert_message_text,'¿¿ ¿¿¿¿¿ ¿¿¿¿¿¿ : '||AR_NAME );
 alertnuser := show_alert('DROP_CREATE');
 :TABLES_NAME:='';
 ELSE
  set_alert_property('DROP_CREATE',alert_message_text,'¿¿¿ ¿¿¿¿¿ ¿¿¿ ¿¿¿¿¿¿¿¿ ¿¿¿¿ ¿¿¿¿ ¿¿¿¿¿¿');
 alertnuser := show_alert('DROP_CREATE');
 end if;
end;




CODE

declare
 nem varchar2(100);
 x varchar2(100);
 d varchar2(100);
 TB_NAME VARCHAR2(30);
 TABLE_id NUMBER;
 AR_NAME VARCHAR2(30) :=:TABLES_NAME;
 alertnuser number;
begin
 if :TABLES_NAME is not null then
   FOR I IN 1..LENGTH(:TABLES_NAME) LOOP
	 nem:=SUBSTR(:TABLES_NAME,I,1);
	   for j in 1..i loop
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','a');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','b');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','c');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','D');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','E');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','f');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','g');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','j');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','i');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','l');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','m');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','n');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','k');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','h');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','g');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','s');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','q');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','w');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','r');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','t');
		 end if;
		 if nem ='¿¿'then
		   nem:=Replace(nem,'¿¿','y');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','u');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','o');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','p');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','z');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','x');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','v');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','as');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ad');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','af');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ag');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ah');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ak');
		 end if;
		 if nem ='¿¿'then
		   nem:=Replace(nem,'¿','al');
		 end if;
		 if nem ='¿¿'then
		   nem:=Replace(nem,'¿','am');
		 end if;
		 if nem ='¿'then
		   nem:=Replace(nem,'¿','ab');
		 end if;
		 x:=nem;
	   end loop;
		d:=d||x;
   END LOOP;
   TB_NAME:=d;
 forms_ddl('create table '||TB_NAME ||'(t_code number(10) primary key,t_date date,per_id number)');
  select nvl(max(TB_NUMBER),0) into TABLE_id from CONF_TABLE;
 INSERT INTO CONF_TABLE VALUES (TABLE_id+1,TB_NAME,:TABLES_NAME);
 set_alert_property('DROP_CREATE',alert_message_text,'¿¿ ¿¿¿¿¿ ¿¿¿¿¿¿ : '||AR_NAME );
 alertnuser := show_alert('DROP_CREATE');
 :TABLES_NAME:='';
 ELSE
  set_alert_property('DROP_CREATE',alert_message_text,'¿¿¿ ¿¿¿¿¿ ¿¿¿ ¿¿¿¿¿¿¿¿ ¿¿¿¿ ¿¿¿¿ ¿¿¿¿¿¿');
 alertnuser := show_alert('DROP_CREATE');
 end if;
end;

تم تعديل المشاركة من قبل : مصلح الحريصي

التعديل الذي تم هو : تنسيق الكود من اليسار إلى اليمين فقط فقط

تم تعديل هذه المشاركة بواسطة مصلح الحريصي في 9 يونيو 2008 في 11:34

#59 يونيو 2008 في 16:39

الرجاء أعطاء بعض الشرح وأين يوضع هذا الكود بالضبط

كيف يمكن تحويل الاسماء من اللغة العربي الى الانجليزية الياً

مواضيع مشابهة

عدد الزوار حالياً