Oto szablony zajmujące się w obsługą liczb rzymskich - zmiana z i na arabskie.

Na początek zmiana liczby rzymskiej na arabską. Algorytm jest następujący - jeśli cyfra (rzymska) po prawej jest większa lub równa cyfrze sprawdzanej, dodajemy sprawdzaną do całości, jeśli mniejsza - odejmujemy.

MCMXCVII=1000-100+1000-10+100+5+1+1=1997.

Zaimplementowałem go w szablonie 'ra'. Szablon należy dodać do szablonów podręcznych. Jego nazwa jest ważna, jeśli pragniecie go zmienić, nie zapomnijcie o zmianie odwołań do niej w makrze %QINCLUDE.

Uwaga - źródłem liczby rzymskiej jest makro %InputBox (otwiera się okienko, w którym należy wpisać liczbę), które to makro jest częścią wtyczki MyMacros. Można je zastąpić innym makrem (np. %CLIPBOARD), ale funkcjonalność takiego rozwiązania jest niewielka.

Szablon nie sprawdza, czy liczba rzymska jest poprawna. Działa przez cały tekst wpisany do okienka %InputBox, wyszukując rzymskich cyfr (M,D,C,L,X,V,I), dlatego wpisując jakieś słowa możemy otrzymać dziwne rezultaty (przykładowo: "Internet dla mas!"->1449). Można zaimplementować mechanizm sprawdzania poprawności liczby rzymskiej, ale nie ma takiej potrzeby. Wystarczy używać go z głową, a w razie wątpliwości wykorzystać szablon zmieniający liczbę arabską w rzymską i porównać wyniki.

Zmiana liczby arabskiej w rzymską to spory problem. Liczby rzymskie przekraczające 4000 zmieniają swoją formę (nad literą pojawia się kreska), co jest praktycznie niemożliwe do uzyskania w trybie tekstowym - tekst musiałby zamieniać się w asciiart. Podszedłem do problemu na dwa sposoby - jeden dla wszystkich, drugi dla użytkowników wtyczki MyMacros. Oba szablony nie działają dobrze dla liczb większych niż 3999, choć pierwszy (a2r) tworzy "zastępcze" - niewłaściwe, ale zrozumiałe - wyniki do liczby 9999. Na przykład: 5555 -&gt MMMMMDLV.

Szablon 'a2r' jest próbą stworzenia szablonu zmieniającego cyfrę arabską na rzymską bez korzystania z wtyczki MyMacros. Jego nazwa jest nieistotna, można być dowolna. Jak można zauważyć, szablon najpierw sprawdza, czy zmienna %_arab jest pusta, dopiero jeśli tak jest, to otwiera okienko %InputBox (które wymaga wtyczki). Zmienna %_arab ma zawierać liczbę przeznaczoną do zmiany. W ten sposób można wkomponować szablon na przykład we wrotkę, na przykład tak:

Roku Pańskiego %_arab="%ODATE='yyyy'"%QINCLUDE(a2r), dnia %- %ODATE='d'.%_arab="%ODATE='mm'"%QINCLUDE(a2r), napisał:

nie musimy mieć wtyczki, a i tak w rezultacie odpowiadając na list z 27.03.2004r. otrzymamy:

Roku Pańskiego MMIV, dnia 27.III, napisał:

Kolejny szablon - 'ar' - podobnie jak poprzedni (a2r) zmienia liczbę arabską na rzymską, ale ten wykorzystuje całe bogactwo makr wtyczki MyMacros. Podobnie jak poprzedni, najpierw sprawdza, czy zmienna %_arab nie jest pusta, więc można go używać do modyfikowania wrotki według powyżej przedstawionego schematu. W tym szablonie musiałem wprowadzić zabezpieczenie, jeśli liczba poddawana zmianie jest większa od 3999 szablon zgłasza błąd i przestaje działać. Jest to konieczne ze względu na zasady przedstawiania dużych liczb rzymskich oraz mechanizm działania szablonu. Nazwa szablonu jest ważna, jej zmiana musi pociągać za sobą zmianę wszystkich odwołań do niej w makrze %QINCLUDE.

Szablon ar - zobacz szablon

Szablon a2r - zobacz szablon

Szablon ra - zobacz szablon

Konrad Szkudlarczyk <mode5@poczta.gazeta.pl> 28.03.2004r.