Vos identifiants
Bienvenue
Voir tous les scripts
Pour mirc 6.1 et moins
Pour mirc 6.2
Pour mirc 6.3
Pour mirc 7.1
Top 10
Vous aimez ou détestez
Soumettre un script
Foire aux questions
Forum de discussion



Les bases du Scripting
Le virus "irc.worm.gen"
Le mIRC D'Or
ScreenShots
Le Défi du moment
Tag-moi-ça
Le Pire de l'IRC
L'IRC pour les nuls
Tutoriaux
Configurer UnrealIRCD
Configurer votre box
Attention à l'arnaque!
Usenet et les News
Arrêter de fumer
Un peu d'orthographe
Unreal/Anope Admin
mIRC Script Server
Proxy Web Chat
Magneto for Unreal
Super Poupées
Tour de cartes
L'Equipe
Partenariat
Administration

Web Of Trust
www.chat.exolia.net (Francophone)
fantasya.org (Francophone)

                                            

$romain
Auteur(s): DixrouE
Date de soumission (Heure française): 13 janvier 2005 (05:01)
Taille du fichier: 941 Octets  
Type du fichier: snippet  
Déjà visualisé: 3712 fois
Poster un commentaire
Code qui converti des chiffres arabe en chiffre romain et vise versa (Ma participation a un défi sur scriptsdb.org) (69.70.178.***)


alias romain {
  var %a $replace($1,I,1,V,5,X,10,L,50,C,100,D,500,M,1000),%e $1,%f,%h,%i 1,%j,%m 1,%n tokenize 8
  if $1 isnum {
    while %e {
      while %m < 11 {
        %n $gettok(1000M500D100C50L10X5V4IIII3III2II1I,%m,5)
        if %e >= $1 {
          %f = $+($2,,$1) 
          break
        }
        inc %m
      }
      %n %f
      %h = %h $+ $1
      dec %e $2
    }
    while $mid(%h,%i,4) {
      var %f $ifmatch,%g,%e $right(%j,1)
      if (%f = IIII) %g = $iif(%e = V,IX,%e $+ IV)
      if (%f = XXXX) %g = $iif(%e = L,XC,%e $+ XL)
      if (%f = CCCC) %g = $iif(%e = D,CM,%e $+ CD)
      if %g {
        %j = $left(%j,-1) $+ %g
        inc %i 3
      }
      else %j = %j $+ $left(%f,1)
      inc %i
    }
    return %j
  }
  else {
    %n %a
    while $($+($,%i),2) {
      var %c $ifmatch,%f %i + 1,%h = $+(%h,$iif(%c < $($+($,%f),2),-,+),%c)
      inc %i
    } 
    return $calc(%h)
  }
}

Retour à la liste des snippets

Si vous le souhaitez, vous pouvez laisser votre commentaire sur ce snippet:  
Vous identifier d'abord
 

Cette annonce est-elle crédible? Cliquez ici pour le savoir