nombreenlettre

Salut

c'est facile, dans la fonction sInterprete de cet exemple
il faut rajouter à la fin de la boucle POUR le code suivant :

POUR j=1 A i
......
.....

ch = Remplace(ch, "soixante dix", "septante")
ch = Remplace(ch, "soixante onze", "septante un")
ch = Remplace(ch, "soixante douze", "septante deux")
ch = Remplace(ch, "soixante treize", "septante trois")
ch = Remplace(ch, "soixante quatorze", "septante quatre")
ch = Remplace(ch, "soixante quinze", "septante cinq")
ch = Remplace(ch, "soixante seize", "septante six")

ch = Remplace(ch, "quatre-vingt onze", "nonante un")
ch = Remplace(ch, "quatre-vingt douze", "nonante deux")
ch = Remplace(ch, "quatre-vingt treize", "nonante trois")
ch = Remplace(ch, "quatre-vingt quatorze", "nonante quatre")
ch = Remplace(ch, "quatre-vingt quinze", "nonante cinq")
ch = Remplace(ch, "quatre-vingt seize", "nonante six")
ch = Remplace(ch, "quatre-vingt ", "nonante ")

FIN
RENVOYER ch

et l'exemple causera en belge !

@+
Max°(51)°

"joseph cvjetic" <webmaster@cdeisp.com> a écrit dans le message de
news:40e971f1$0$9742$a0ced6e1@news.skynet.be...

Bonjour,
La routine nombreenlettre dans un exemple de windev8 retourne
en lettre style français : quatre vingt dix neuf
Quelqu'un aurait il cette même routine qui retourne nonante neuf en style
belge
Merci
J Cvjetic

dans (in) fr.comp.developpement.agl.windev, "Max°(51)°"
<maax51@hotmail.com> ecrivait (wrote) :

Bonsoir,

POUR j=1 A i
ch = Remplace(ch, "soixante dix", "septante")

[...]

ch = Remplace(ch, "quatre-vingt onze", "nonante un")
FIN
RENVOYER ch

et l'exemple causera en belge !

On doit même pouvoir le faire causer en suisse en gérant les occurrences
d' « octante » :)

--
Eric

Eric Demeester avait écrit le 05/07/2004 :

dans (in) fr.comp.developpement.agl.windev, "Max°(51)°"
<maax51@hotmail.com> ecrivait (wrote) :

Bonsoir,

POUR j=1 A i
ch = Remplace(ch, "soixante dix", "septante") [...]
ch = Remplace(ch, "quatre-vingt onze", "nonante un")
FIN
RENVOYER ch

et l'exemple causera en belge !

On doit même pouvoir le faire causer en suisse en gérant les occurrences
d' « octante » :)

c'est "huitante" ... ;o) comme en belge ....

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

farplus a exprimé avec précision :

c'est "huitante" ... ;o) comme en belge ....

Oui, mais il parait que pour le belge c'est plutôt à cause d'une
confusion avec le Wallon...

http://www.langue-fr.net/index/S/septante.htm

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)