وضع فواصل في الرقم الكبير و تحويله الى مبلغ مالي

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

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

C = Input.GetText("Input1");
x = string.format("%.2f", C)
function ALGERIA(C)
K = x
while true do
K, C = string.gsub(K, "^(-?%d+)(%d%d%d)", '%1,%2')
if (C==0) then
break
end
end
return K
end
Dialog.Message("Notice",ALGERIA(x));

-------------
حميل .........الكود شغال تمام التمام
حاولت ان اجد حلا اخر
باستعمال string.mid و بعد محاولات لم اجد الا الحل التقليدي اي الشرط

C = Input.GetText("Input1");

if #C > 3 and #C < 7 then
igli = String.Mid(C,#C-2,3);
ala = String.Mid(C,1,#C-3)..","..igli;
elseif #C > 6 and #C < 10 then
igli = String.Mid(C,#C-2,3);
igl = String.Mid(C,#C-5,3);
ala = String.Mid(C,1,#C-6)..","..igl..","..igli;
elseif #C > 9 and #C < 13 then
igli = String.Mid(C,#C-2,3);
igl = String.Mid(C,#C-5,3);
ig = String.Mid(C,#C-8,#C-9);
ala = String.Mid(C,1,#C-6)..","..ig..","..igl..","..igli;
else
ala = C;
end


Dialog.Message("",ala..".00");


----------------
احولت ان اوظف الدالة repeat لكن لم اعرف
فهل من نعديل للكود
افكار اخرى

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

أكيد بعد دقائق من الان ان شاء الله :abc_139:

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

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



t= Input.GetText("Input1");
---------------------------------------
x = Math.Mod(t:len(),3);---------------
if x>=1 then---------------------------
k1= String.Mid(t, 1, x)..'.'-----------
elseif x==0 then-----------------------
k1= String.Mid(t, 1, x)----------------
end--ABOU_BELKISS ALGER LE:09-10-2017--
k2 = ''; t2= String.Mid(t, x+1,t:len())
for i = 1,t2:len(),3 do----------------
k2=k2..String.Mid(t2, i, 3)..'.'-------
end------- abc4web -------------------
BELKISS =k1..k2..'00'------------------
---------------------------------------

Dialog.Message("Notice",BELKISS );

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

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

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

جميل جدا و اسهل من الاول ما شاء الله

[فرح صالحي]

شـكــ وبارك الله فيك ـــرا لك .:abc_152:.. لك مني أجمل تحية .

[طلال عثمان]

موفق بإذن الله ... لك مني أجمل تحية .

[سمير نبيل]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[منار بربرة]

مشكوور اخى

[محمد سامر]

موفق بإذن الله ... لك مني أجمل تحية . :abc_028: