توسيط النص في الديالوج

[عبد الهادي بهاب]

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

https://a.top4top.net/p_573e67xz1.png

هل فيه طريقة لتوسيط النص في الديالوج ؟

[ثامر أبو بلقيس]

جرب هذه الخربشة




str=
[[
إِنَّا فَتَحْنَا لَكَ فَتْحًا مُبِينًا
لِيَغْفِرَ لَكَ اللَّهُ مَا تَقَدَّمَ مِنْ ذَنْبِكَ وَمَا تَأَخَّرَ وَيُتِمَّ نِعْمَتَهُ عَلَيْكَ وَيَهْدِيَكَ صِرَاطًا مُسْتَقِيمًا
وَيَنْصُرَكَ اللَّهُ نَصْرًا عَزِيزًا
]]
---------------
d=0;tamer=''
for each in str:gmatch(("([^%s]+)"):format("\n")) do
x = String.ToNumber(String.Length(each));
d = math.max(x,d);
end
for each in str:gmatch(("([^%s]+)"):format("\n")) do
x = String.ToNumber(String.Length(each));
if x < d then
y=d-x; tik= String.Repeat(" ", y/2);
tamer = tamer ..tik..each..tik.."\n"
else
tamer = tamer ..each.."\n"
end;end
Dialog.Message("Notice", tamer);

[عبد الهادي بهاب]

جرب هذه الخربشة
str=
[[
إِنَّا فَتَحْنَا لَكَ فَتْحًا مُبِينًا
لِيَغْفِرَ لَكَ اللَّهُ مَا تَقَدَّمَ مِنْ ذَنْبِكَ وَمَا تَأَخَّرَ وَيُتِمَّ نِعْمَتَهُ عَلَيْكَ وَيَهْدِيَكَ صِرَاطًا مُسْتَقِيمًا
وَيَنْصُرَكَ اللَّهُ نَصْرًا عَزِيزًا
]]
---------------
d=0;tamer=''
for each in str:gmatch(("([^%s]+)"):format("\n")) do
x = String.ToNumber(String.Length(each));
d = math.max(x,d);
end
for each in str:gmatch(("([^%s]+)"):format("\n")) do
x = String.ToNumber(String.Length(each));
if x < d then
y=d-x; tik= String.Repeat(" ", y/2);
tamer = tamer ..tik..each..tik.."\n"
else
tamer = tamer ..each.."\n"
end;end
Dialog.Message("Notice", tamer);


كود رائع بفي بالغرض
تبارك الله ما شاء الله
:abc_050::abc_050::abc_050::abc_050:

[ياسرهتهت]

جرب هذه الخربشة

المحتوى المخفي لايقتبس

---------------------
بسم الله الرحمن الرحيم
ما شاء الله تبارك الرحمن
كود في غاية الروعة والاحتراف
:abc_138::abc_138::abc_138:

[ثامر أبو بلقيس]

الجميل في السؤال هو
- انه لا ينطلق من أطول سطر معلوم ( اي ضرورة البحث عنه و مهما كان مكانه لانه غير معلوم :abc_051:)
- و السؤال لا يتعامل مع أسطر محدودة :abc_080:
- و :abc_005: بالتوفيق :abc_065:

[عبد الهادي بهاب]

الجميل في السؤال هو
- انه لا ينطلق من أطول سطر معلوم ( اي ضرورة البحث عنه و مهما كان مكانه لانه غير معلوم :abc_051:)
- و السؤال لا يتعامل مع أسطر محدودة :abc_080:
- و :abc_005: بالتوفيق :abc_065:

شكرا بالرغم من انني لم استوعب الكود جيدا
لك السؤال 1 : لمادا تحول طول السترينح الى عدد بالرغم من انه عدد اعني هذا

x = String.ToNumber(String.Length(each));

ثانيا لماذا كررت العملية

for each in str:gmatch(("([^%s]+)"):format("\n")) do
x = String.ToNumber(String.Length(each));