Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

Εquilibrium — Wed, 17 Aug 2005 20:42:24 GMT

Έβαλα&nbsp;το "Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ" στην κατηγορία Algorithms. Τον κώδικα...

re: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

George J. Capnias — Thu, 18 Aug 2005 02:41:33 GMT

Νομίζω ότι είναι υπεροβολικό ένα τέτοιο implementation για το λεκτικό, δεν είναι δυνατόν να έχουμε ένα τόσο μεγάλο πίνακα με λεκτικά.

Παρακάτω είναι μια ρουτίνα, που μπορεί να επιστρέψει λεκτικό για ποσά μέχρι 9999,99 ευρώ.

Private Function MakeOlografos(AXIA As Double) As String
Dim iXiliades As Integer
Dim iEkatontades As Integer
Dim iDekades As Integer
Dim iMonades As Integer
Dim iLeptaDekades As Integer
Dim iLeptaMonades As Integer

Dim sEkatontades(10) As String
Dim sDekades(10) As String
Dim sMonades(10) As String

sEkatontades(1) = "ΕΚΑΤΟ"
sEkatontades(2) = "ΔΙΑΚΟΣΙΑ"
sEkatontades(3) = "ΤΡΑΚΟΣΙΑ"
sEkatontades(4) = "ΤΕΤΡΑΚΟΣΙΑ"
sEkatontades(5) = "ΠΕΝΤΑΚΟΣΙΑ"
sEkatontades(6) = "ΕΞΑΚΟΣΙΑ"
sEkatontades(7) = "ΕΠΤΑΚΟΣΙΑ"
sEkatontades(8) = "ΟΚΤΑΚΟΣΙΑ"
sEkatontades(9) = "ΕΝΝΙΑΚΟΣΙΑ"

sDekades(1) = "ΔΕΚΑ"
sDekades(2) = "ΕΙΚΟΣΙ"
sDekades(3) = "ΤΡΙΑΝΤΑ"
sDekades(4) = "ΣΑΡΑΝΤΑ"
sDekades(5) = "ΠΕΝΗΝΤΑ"
sDekades(6) = "ΕΞΗΝΤΑ"
sDekades(7) = "ΕΒΔΟΜΙΝΤΑ"
sDekades(8) = "ΟΓΔΟΝΤΑ"
sDekades(9) = "ΕΝΕΝΗΝΤΑ"

sMonades(1) = "ΕΝΑ"
sMonades(2) = "ΔΥΟ"
sMonades(3) = "ΤΡΙΑ"
sMonades(4) = "ΤΕΣΣΕΡΑ"
sMonades(5) = "ΠΕΝΤΕ"
sMonades(6) = "ΕΞΙ"
sMonades(7) = "ΕΠΤΑ"
sMonades(8) = "ΟΚΤΩ"
sMonades(9) = "ΕΝΝΙΑ"

iXiliades = AXIA \ 1000
iEkatontades = (AXIA - 1000 * iXiliades) \ 100
iDekades = (AXIA - 1000 * iXiliades - iEkatontades * 100) \ 10
iMonades = (AXIA - 1000 * iXiliades - iEkatontades * 100 - iDekades * 10) \ 1
iLeptaDekades = (AXIA - 1000 * iXiliades - iEkatontades * 100 - iDekades * 10 - iMonades) * 10 \ 1
iLeptaMonades = (AXIA - 1000 * iXiliades - iEkatontades * 100 - iDekades * 10 - iMonades - iLeptaDekades * 0.1) * 100 \ 1

MakeOlografos = ""
If iXiliades > 0 Then
Select Case iXiliades
Case Is > 9
MakeOlografos = ""
Exit Function
Case 1
MakeOlografos = MakeOlografos & "ΧΙΛΙΑ"
Case Else
MakeOlografos = MakeOlografos & sMonades(iXiliades) & " ΧΙΛΙΑΔΕΣ"
End Select
End If

If iEkatontades > 0 Then
If iEkatontades = 1 And (iDekades <> 0 Or iMonades <> 0) Then
MakeOlografos = MakeOlografos & " EKATON"
Else
MakeOlografos = MakeOlografos & " " & sEkatontades(iEkatontades)
End If
End If

If iDekades > 0 Then
If iDekades = 1 And iMonades = 1 Then
MakeOlografos = MakeOlografos & " " & "ΕΝΤΕΚΑ"
ElseIf iDekades = 1 And iMonades = 2 Then
MakeOlografos = MakeOlografos & " " & "ΔΩΔΕΚΑ"
Else
MakeOlografos = MakeOlografos & " " & sDekades(iDekades)
If iMonades > 0 Then
MakeOlografos = MakeOlografos & " " & sMonades(iMonades)
End If
End If
Else
If iMonades > 0 Then
MakeOlografos = MakeOlografos & " " & sMonades(iMonades)
End If
End If

MakeOlografos = MakeOlografos & " ΕΥΡΩ"

If iLeptaDekades > 0 And iLeptaMonades > 0 Then
If iLeptaDekades > 0 Then
If iLeptaDekades = 1 And iLeptaMonades = 1 Then
MakeOlografos = MakeOlografos & " " & "ΕΝΤΕΚΑ"
ElseIf iLeptaDekades = 1 And iLeptaMonades = 2 Then
MakeOlografos = MakeOlografos & " " & "ΔΩΔΕΚΑ"
Else
MakeOlografos = MakeOlografos & " " & sDekades(iLeptaDekades)
MakeOlografos = MakeOlografos & " " & sMonades(iLeptaMonades)
End If
Else
If iLeptaMonades > 0 Then
MakeOlografos = MakeOlografos & " " & sMonades(iLeptaMonades)
End If
End If

MakeOlografos = MakeOlografos & " ΛΕΠΤΑ"
End If

MakeOlografos = Trim(MakeOlografos)

End Function

re: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

Χρήστος Γεωργακόπουλος — Thu, 18 Aug 2005 03:45:45 GMT

Όταν θέλεις να το χρησιμοποιήσεις σε πραγματικά ποσά, τότε θέλεις σίγουρα να καλύπτει ποσά της τάξης των εκατομυρίων, και μόλις ξεπεράσεις το 1.000 αρχίζεις να χρειάζεσαι και τα θυλικά αντίστοιχα για να αριθμήσεις τις χιλιάδες. Ενδεχομένως να μπορούσε να γίνει λίγο πιο compact...

Anyway, για το 4213.51 το δικό σου βγάζει:
ΤΕΣΣΕΡΑ ΧΙΛΙΑΔΕΣ ΔΙΑΚΟΣΙΑ ΔΕΚΑ ΤΕΣΣΕΡΑ ΕΥΡΩ

ενώ το δικό μου βγάζει:
τέσσερις χιλιάδες διακόσια δεκατρία ευρώ και πενηνταένα λεπτά

οπότε μάλλον το δικό σου χρειάζεται λίγο κώδικα παραπάνω... ;-P (στην είπα...)

By the way, τώρα που το ξανακοιτάω, το δικό σου που τα είδε τα δεκατέσσερα ευρώ; αφού 13 του έδωσα...

re: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

Χρήστος Γεωργακόπουλος — Thu, 18 Aug 2005 03:48:56 GMT

Αααα, και μην κρύβεσαι πίσω από τα κεφαλαία για να περιορίσεις τους πίνακές σου, ο δάσκαλος στο σχολείο μας το μάθαινε "Δεκατρία" και όχι "Δέκα Τρία"... :-)

re: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

George J. Capnias — Thu, 18 Aug 2005 07:22:22 GMT

Και εγώ που ήμουν σίγουρος οτι εκτός από το έντεκα και το δώδεκα, όλα τα άλλα είναι δύο λέξεις...

Αλλά από αυτά που ρώτησα, μόνο μέχρι το είκοσι τα αριθμιτικά είναι μία λέξη, από κει και πέρα είναι δύο. Αν δηλαδή έχω δέκα αριθμούς λάθος, έχεις ογδόντα... :-)

Η αλήθεια είναι ότι δεν το έχω χρησιμοποιήσει για ποσά πάνω από 1000 ευρώ... Δεν το είχα δει να κάνει χιλιάδες και εκατομύρια.

Ίσως την επόμενη φορά που το χρειαστώ, το μαζέψω περισσότερο... :-D

re: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

Χρήστος Γεωργακόπουλος — Thu, 18 Aug 2005 07:41:55 GMT

Θα ρωτήσω κι εγώ μερικούς ειδικούς και αν είναι θα διορθώσω τον κώδικα.

Απ: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

rousso — Wed, 24 Aug 2005 01:36:19 GMT

Όταν το είδα σκέφτηκα δύο πράγματα (πριν μπω στην διαδικασία να διαβάσω τον αλγόριθμο λεπτομερώς):
Ότι παρα-είναι πολλά τα strings που χρησιμοποιεί (το παρατήρησε και άλλος συνάδελφος σε σχόλιό του) και ότι η περίπτωση αυτή θα ήταν ωραίο να λυθεί με regular expressions.

Έκατσα λοιπόν και έφτιαξα μια εναλλακτική προσέγγιση με Regex στο ίδιο πρόβλημα που νομίζω ότι έχει ενδιαφέρον.

Δείτε τη στο blog μου: http://www.dotnetzone.gr/cs/blogs/rousso/articles/GreekEuroVerbalizer.aspx

rousso

rousso's .net blog — Wed, 24 Aug 2005 01:37:14 GMT

Reading a recent post in dotNetZone.gr I decided to implement as a proof-of-concept an algorithm using...

GreekEuroVerbalizer

rousso's .net blog — Wed, 24 Aug 2005 01:47:24 GMT

Reading a recent post in dotNetZone.gr I decided to implement as a proof-of-concept an algorithm using...

GreekEuroVerbalizer

rousso's .net blog — Wed, 24 Aug 2005 01:52:38 GMT

Reading a recent post in dotNetZone.gr I decided to implement as a proof-of-concept an algorithm using...

GreekEuroVerbalizer

rousso's .net blog — Wed, 24 Aug 2005 02:29:33 GMT

Reading a recent post in dotNetZone.gr I decided to implement as a proof-of-concept an algorithm using...

Απ: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

Χρήστος Γεωργακόπουλος — Thu, 25 Aug 2005 00:39:19 GMT

Επιβεβαίωσα και εγώ ότι τα αριθμητικά γράφονται σαν μία λέξη από το δεκατρία έως το δεκαεννέα. Από εκεί και πάνω γράφονται σαν δύο λέξεις. Μόλις βρω λίγο χρόνο θα κάνω τις απαραίτητες διορθώσεις...

Απ: Δημιουργία ελληνικού λεκτικού για ποσά σε ευρώ

Panos Kousidis — Sun, 19 Mar 2006 01:06:50 GMT

Αν και καθυστερημένα έφτιαξα κι εγώ μια function που κάνει την ίδια δουλειά και μπορεί να θέλετε να της ρίξετε μια ματιά στο blog μου : http://spaces.msn.com/panos-sniper/blog/cns!8DEA878B3A5EDBA9!190.entry