[VBA] Ελληνικά σε Λατινικά (μετατροπή)

[jockey17]

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

Φιλικά
Δημήτρης

[kapetang]

Πράγματι έχει να κάνει με τον τονισμό.

Το χωρίς τόνο Ευαγγελος μετατρέπεται σωστά σε: Evangelos

[Spirosgr]

Γι αυτό άλλωστε,
οι κρατικές υπηρεσίες έχουν το «κακό» ελάττωμα,
να γράφουν πάντα με κεφαλαία...
Για να μην έχουν πολλά-πολλά...(*βλέπε Ταυτότητες, διαβατήρια)

[kapetang]

Καλημέρα

Στο συνημμένο η μετατροπή των ελληνικών χαρακτήρων σε λατινικούς γίνεται με βάση το πρότυπο 743 2η έκδοση του ΕΛΟΤ.

Στο πρότυπο οι οδηγίες για τη μετατροπή των διφθόγγων (αυ, ευ και ηυ) είναι αναλυτικές και σωστές.

Το λάθος που παρουσιάζεται, κατά την μετατροπή του «Ευάγγελος» στην επίσημη ιστοσελίδα της Διεύθυνσης Διαβατηρίων, δεν οφείλεται στο πρότυπο, αλλά στη λανθασμένη υλοποίησή του από τον κατασκευαστή της σελίδας.

Στο πρότυπο επίσης υπάρχουν μετατροπές που εξαρτώνται από τον τονισμό.

Αν αρχικά μετατρέψουμε όλους τους χαρακτήρες σε λατινικούς, δε θα είναι εφικτή η μετατροπή πάνω στο λατινικό κείμενο, αφού δεν έχει τόνους.

Με άλλα λόγια τέτοιες αλλαγές θα πρέπει γίνουν πριν από τη γενική αλλαγή των χαρακτήρων.

[Spirosgr]

Με την βοήθεια του πληροφοριακού .pdf (το οποίο δεν είχαμε από την αρχή)
θεωρώ, τον τελευταίο κώδικα του Γιώργου, αποτελεσματικό.

Αν είχαμε την πληροφορία από την αρχή, το ζητούμενο θα είχε κλείσει σε 2-3 posts το πολύ...

Η ιστοσελίδα έχει σφάλμα και στο «Παρασκευή»

Οι πιο κάτω αλλαγές στον αρχικό μου κώδικα (post #2 - παρ' όλο που βάδιζε στα τυφλά)
δίνουν ισοδύναμη μετάφραση μέχρι το σημείο που έχουμε ελέγχξει.
Αν κανείς θέλει για εκπαιδευτικούς λόγους, μπορεί να το μελετήσει και να το βελτιώσει.

    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Mp", "B") 'Μπ ακάλης
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "gg", "ng") 'Μου γγ ός
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "oy", "ou") 'Μ ου γγός
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Oy", "Ou") 'Ου ρανός
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ey", "Ev") 'Ευ ανθία
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "ey", "ef") 'Ελ ευ θερία
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "ay", "av") 'Στ αυ ρούλα
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "fi", "vi") 'Παρασκ ευή
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "fa", "va") 'Παρασκ ευάς
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "evan", "efan") 'Στ εφάν ου
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "efo", "evo") 'Ψαρεύω
    
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "eks", "ex") 'Αλ εξ ίου
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "ix", "ich") 'Μ ιχ αήλ Μ ιχ άλης
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "gxks", "nchx") 'Ελέγχξει
    
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Evt", "Eft")
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Evs", "Efs")
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ayt", "Aft") 'Αυτ ό
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ayg", "Avg") 'Αυγ ό
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ayl", "Avl") 'Αυλ αία
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Xr", "Chr") 'Χρ υσούλα
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Xar", "Char") 'Χαραλάμπους
    Greek_ISO_ELOT_743 = Replace(Greek_ISO_ELOT_743, "Ksan", "Xan") 'Ξαν θόπουλος

Σαφώς και δεν είναι όσο απλός πρέπει για τον χρήστη, αλλά δείχνει την μέθοδο
όπου μπορούμε να κάνουμε αλλαγές στο ήδη μεταφρασμένο λατινικό κείμενο,
χωρίς να λάβουμε υπ' όψιν θέση, τονισμό κλπ...των φθόγγων.

[dapostolopoulos]

Πολύ καλές λύσεις, παιδιά, ευχαριστώ πολύ.