رومنة الأرقام

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

السلام عليكم ورحمة الله
رمضان كريم إخواني
كما تعرف أخي الكريم أن الايكسل يستطيع تحويل الأرقام الرومانية إلى عادية
بصفة محدودة لا تتجاوز العدد 4999 ويعتمد في هذا التحويل على الدالة

=ROMAN(C6)

حيث C6 تمثل الخلية التي سنكتب فيها أرقاما عادية ومن ثمة تتحول إلى رومانية
لكن لا توجد دالة تقوم بالعكس أي تحول من الروماني إلى العادي في الايكسل
أما في الاوتوبلاي فبمجرد أن نضع الكود التالي في Global function

function ToNumeral( roman )
    local Num = { ["M"] = 1000, ["D"] = 500, ["C"] = 100, ["L"] = 50, ["X"] = 10, ["V"] = 5, ["I"] = 1 }
    local numeral = 0    
 
    local i = 1
    local strlen = string.len(roman)
    while i < strlen do
        local z1, z2 = Num[ string.sub(roman,i,i) ], Num[ string.sub(roman,i+1,i+1) ]
        if z1 < z2 then
            numeral = numeral + ( z2 - z1 )
            i = i + 2
        else
            numeral = numeral + z1
            i = i + 1    
        end        
    end
 
    if i <= strlen then numeral = numeral + Num[ string.sub(roman,i,i) ] end
 
    return numeral    
end

ثم نضع أنبوت 1 وزر نضع فيه الكود التالي :

X = Input.GetText("Input1");

result = Dialog.Message("Notice", ToNumeral( X ));

نستطيع القيام بما لم يقوم به الايكسل و هو التحويل من الروماني إلى الرقم العادي

سؤالي :
ما الطريقة في الاوتوبلاي للقيام بالعكس أي التحويل من الأرقام العادية إلى رومانية

تقديري