12 replies to this topic

[Morpheus]

I couldn't find anything on the forums, so I came up with this:

Alpha = M,CM,D,CD,C,XC,L,XL,X,IX,V,IV,I
Numeric = 1000,900,500,400,100,90,50,40,10,9,5,4,1
StringSplit, Alpha, Alpha, `,

Num = 3999

RomanString =
Loop, Parse, Numeric, `,
{
 Count := A_Index
 TempVar := Num // A_LoopField
 Num -= TempVar * A_LoopField
 Loop, %TempVar%
    RomanString .= Alpha%Count%
}

MsgBox, %RomanString%

It is in reality only accurate to 3999, because after that, the 'M' should have a bar over it, instead of 'MMMM'. I hope someone finds it useful.

[MasterFocus]

* EDIT *
See this post: <!-- l --><a class="postlink-local" href="http://www.autohotke...p354957</a><!--l -->

[jaco0646]

Somebody put one on RosettaCode: http://rosettacode.o...rals#AutoHotkey.

[Laszlo]

...which should have used Static variables, instead of assignments to locals:

Roman(y) { ; write 0 < y < 4000 in Roman

  Static romans = "M.CM.D.CD.C.XC.L.XL.X.IX.V.IV.I"

  ,M=1000,CM=900,D=500,CD=400,C=100,XC=90,L=50,XL=40,X=10,IX=9,V=5,IV=4,I=1

  Loop Parse, romans, .

    While y >= %A_LoopField%

      r .= A_LoopField, y -= %A_LoopField%

  Return r

}

[MasterFocus]

* EDIT *
See this post: <!-- l --><a class="postlink-local" href="http://www.autohotke...p354957</a><!--l -->

[Morpheus]

...which should have used Static variables, instead of assignments to locals:

Roman(y) { ; write 0 < y < 4000 in Roman
  Static romans = "M.CM.D.CD.C.XC.L.XL.X.IX.V.IV.I"
  ,M=1000,CM=900,D=500,CD=400,C=100,XC=90,L=50,XL=40,X=10,IX=9,V=5,IV=4,I=1
  Loop Parse, romans, .
    While y >= %A_LoopField%
      r .= A_LoopField, y -= %A_LoopField%
  Return r
}

Nice Lazlo!

[MasterFocus]

####################################################################################
This old forum will be archived ( see https://autohotkey.c...s-decommission/ ).
For my up-to-date code and information, check the following links:
http://git.io/master | https://github.com/MasterFocus | http://masterfocus.ahk4.net/ | https://sites.google...masterfocusahk/
####################################################################################
 
Functions:
    Dec2Roman()
    Roman2Dec()

Description:
    A pair of functions created to perform convertions between decimal and roman numbers.

Additional info:
• As of 05/june/2010, Wikipedia showed 3,888,000 as [M][M][M][D][c][c][c][L][X][X][X][V]
• The representation used for 1,000 within the functions is [ M ], not [ I ]

Links:
    GitHub (see AutoHotkey - Functions - RomanNumbers)

[berban]

yay!!! I just went onto the forums praying someone had written this code. here it is! not too long ago, either. hope you don't mind if I coopted it for a script of my own, <!-- m -->http://www.autohotke... ... 459#360459<!-- m -->

[MasterFocus]

Thanks for posting in this topic because now I can see that this code is incorrect (and the code for Roman2Dec is probably too). A few things are missing when declaring st_Romans. I'll try to fix that tomorrow!

EDIT: I quickly fixed it.
I'll edit my previous post and organize everything (including Roman2Dec's code) tomorrow.

* EDIT *
See this post: <!-- l --><a class="postlink-local" href="http://www.autohotke...p354957</a><!--l -->

[Morpheus]

Nice. How about a Roman2Dec function?

[MasterFocus]

How about a Roman2Dec function?

I'll edit my previous post and organize everything (including Roman2Dec's code) tomorrow.

Have you read the whole topic? :shock: This function has already been posted.
-> <!-- l --><a class="postlink-local" href="http://www.autohotke...p354957</a><!--l -->

[echristopherson]

Thanks for the functions, MasterFocus. Unfortunately, I couldn't get Roman2Dec to work at first. It just kept returning 0.

I dug into it and had it search and replace all spaces in l_Needle with bars (|); that way they would work as alternatives in the regex. That made the function work properly...

... except that it worked only with all-caps Roman numerals. So I added "i)" to the beginning of the regex to make it case-insensitive.

Here is the complete code:
[[ code removed - see github.com/MasterFocus ]]

[kardus]

I couldn't get Roman2Dec to work at first. It just kept returning 0.

Now it is working...
Thanks