إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 08:58 PM

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

عبد الهادي بهاب · 10-02-2016, 09:56 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

اذن .......كنت احبذ المحاولة ......لطكن لانني مقلق ......اعطني السطر و خلينا من تكسار الراس

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 09:57 PM

جيد تابع معي الان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:04 PM

هاهو السطر الذي سأستغله :

كود PHP:


string.gfind(strin, "(%w+)")

الان سنختبره ثم نعدله
جرب في مشروع جديد مايلي :
مع كتابة جملة أجنبي في الانبوت

كود PHP:


strin =Input.GetText("Input1");

strout=''

for word in string.gfind(strin, "(%w+)") do 

strout = word .. " " .. strout

end

 Dialog.Message("Notice", strout);

ماهو الناتج : تم عكس مفردات الجملة
أين الخلل ؟ لما تقوم بكتابة جملة عربي ما الناتج ؟؟؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:06 PM

الان نأتي لتعديل الكـــــود ليتعامل مع كلتا اللغتين بنفس الطريقة :
أكتب الان جملة في الانبوت عربي أو غير عربي

كود PHP:


strin =Input.GetText("Input1");
strout=''
for word in string.gfind(strin, "(%S+)") do 
strout = word .. " " .. strout
end
 Dialog.Message("Notice", strout);

ما الناتج ؟

يتبع

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:07 PM

تكسار الراس هاهو جاي

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:12 PM

كنت قد طرحت سابقا شرحا حول تواجد حرف ضمن نطاق أبجدي
حبيت أستغله كفكرة لتحديد اللغة وفق شرط فرضه انشغالك وهو الجملة العربية تعكس مفرداتها
أما الللغة الاجنبية تظهر عادي ... شرط أنا ساستغل الحرف الاول من كل جملة فقط على أساس لا توجد
مسافة شاغرة في بداية الجملة + الجملة كلها مكتوبة بلغة واحدة و ليست مزيجا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:15 PM

هل أنت متواجد ؟ هل النتائج جيدة لحد الان ؟

عبد الهادي بهاب · 10-02-2016, 10:26 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

هل أنت متواجد ؟ هل النتائج جيدة لحد الان ؟

بعد صلاة العشاء ........وجبة العشاء....... تكسار اراس نتاع البزوز .......الان اكسر راسي معك يا استاذ

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:27 PM

ههههههههههههه
بلغهم سلامي نواصل

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:29 PM

الان هاهي التركيبة التي ستتعامل مع الشرط المطروح :

كود PHP:


strin =Input.GetText("Input1");

strout = ""

c= string.find(String.Lower(String.Mid(strin, 1, 1)), "[a-z]", 1);

if c == 1 then

Dialog.Message("", strin); 

else

for word in string.gfind(strin, "(%S+)") do 

strout = word .. " " .. strout

end

Dialog.Message("", strout);

end

الجملة العربي تعكس مفرداتها ... الاجنبي تظهر عادي

الان كيف نستغله في موضوعك المطروح و أقصد المشاركة الاولى

المطروحة
في موضوع " تحويل النص في اي عنصر الى عناصر Label "

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:29 PM

اللغة الاجنبية لا يهم بأي قطع تم معالجة ذلك ضمن الكود

عبد الهادي بهاب · 10-02-2016, 10:30 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

هاهو السطر الذي سأستغله :

كود PHP:


string.gfind(strin, "(%w+)")

الان سنختبره ثم نعدله
جرب في مشروع جديد مايلي :
مع كتابة جملة أجنبي في الانبوت

كود PHP:


strin =Input.GetText("Input1");

strout=''

for word in string.gfind(strin, "(%w+)") do 

strout = word .. " " .. strout

end

 Dialog.Message("Notice", strout);

ماهو الناتج : تم عكس مفردات الجملة
أين الخلل ؟ لما تقوم بكتابة جملة عربي ما الناتج ؟؟؟

جميل جدا ....ناجح .........لكن من غير الحروف اليت فيها اكسون é è à لانها يعتبرها فراغات .....

عبد الهادي بهاب · 10-02-2016, 10:33 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

الان نأتي لتعديل الكـــــود ليتعامل مع كلتا اللغتين بنفس الطريقة :
أكتب الان جملة في الانبوت عربي أو غير عربي

كود PHP:


strin =input.gettext("input1");
strout=''
for word in string.gfind(strin, "(%s+)") do 
strout = word .. " " .. Strout
end
 dialog.message("notice", strout);

ما الناتج ؟

يتبع

هذا حل روووووعة يحل مشكل الاكسن في الحروف الاجنبية

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

تمام

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-02-2016, 10:43 PM

هاهو مطبق على موضوعك في مشاركته الاولى

كود PHP:


strin =Input.GetText("Input1");

strout = ""

c= string.find(String.Lower(String.Mid(strin, 1, 1)), "[a-z]", 1);

if c == 1 then

t =strin

else

for word in string.gfind(strin, "(%S+)") do 

strout = word .. " " .. strout

t=strout

end

end

----------------تحويل النص الى كلمات-----------

s={}; e=1;  

for w in string.gmatch(t,"[^%s]+") do

 Table.Insert(s,e,w);

 e=e+1;

end

con = Table.Count(s);

------------------------converti en label ---------------

tLabelProperties = {};

tLabelProperties.FontName = "Arial";

tLabelProperties.FontScript = 1;

tLabelProperties.FontSize = 24;

----------------------------------------------

tLabelProperties.Y = 140;

tLabelProperties.X = 200;

tLabelProperties.Text = s[1];

Page.CreateObject(OBJECT_LABEL, "B1", tLabelProperties);

Label.SetProperties("B1", {ColorNormal = Math.HexColorToNumber("000000")});



-------

for r = 2 , con do

tLabelProperties.Text = s[r];

tLabelProperties.X = Label.GetPos("B"..r-1).X + Label.GetSize("B"..r-1).Width + 5;

tLabelProperties.Y = 140;

Page.CreateObject(OBJECT_LABEL, "B"..r, tLabelProperties);

Label.SetProperties("B"..r, {ColorNormal = Math.HexColorToNumber("000000")});

end ;

---------------انتهى كود التحويل---------

إعـــــــلان

إسترا^^بلاي

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك