Συναρτήσεις αντικατάστασης συμβόλων σε κείμενο

[Nikrom]

Γνωρίζει κάποιος, πώς πρέπει να γράψω στο Excel δύο συναρτήσεις που να κάνουν τα εξής;

1. Η μία να αποδίδει μία πρόταση ενός άλλου κελιού, έχοντας όμως αφαιρέσει τα σημεία στίξης.

2. Η δεύτερη να αποδίδει μία πρόταση ενός άλλου κελιού, έχοντας αντικαταστήσει τα τονισμένα γράμματα με άτονα.

Ως τώρα το έχω φτιάξει με έμμεσο τρόπο, έχοντας χωρίσει πρώτα την πρόταση σε γράμματα, και ξαναενώνοντάς την, μετά τις αλλαγές. Υπάρχει όμως τρόπος, να κάνω το ίδιο πράγμα, αποφεύγοντας την περιπλοκότητα, δηλαδή χωρίς να χωρίσω την πρόταση σε γράμματα;

Ευχαριστώ!

[AndreasN]

Γίνεται με πολλές ένθετες SUBSTITUDE. Στην πρώτη περίπτωση αντικαθιστώντας τα σημεία στίξης με κενά, στην δεύτερη, αντικαθιστώντας τα τονισμένα γράμματα με άτονα.

[tsigarid]

Δεν αναφέρεις σε ποια γλώσσα, αλλά οι περισσότερες διαχειρίζονται τα strings περίπου σαν arrays, οπότε δεν έχεις λόγο να τη χωρίσεις πρώτα.

[Nikrom]

Ευχαριστώ για τις απαντήσεις. Συγνώμη, ξέχασα να πω ότι τη θέλω για το Excel. Οπότε αν δεν κάνω λάθος, είναι Βίζουαλ Μπέισικ.

Το πρόβλημα είναι ότι δεν ξέρω πώς να βάλω ένθετες SUBSTITUDE, επειδή οι οδηγίες για κάτι τέτοιο είναι σε ξένη γλώσσα, και όταν διαβάζω στα Ελληνικά σχετικές οδηγίες για ένθετες συναρτήσεις, είναι κακομεταφρασμένες και δεν βγάζω άκρη.

Πώς θα έγραφα τρεις τέτοιες ένθετες, ώστε να καταλάβω πώς να φτιάξω περισσότερες;

[AndreasN]

Π.χ. ο τύπος =SUBSTITUTE(A1;"ά";"α") θα αντικαταστήσει το ά με το α. Ο τύπος =SUBSTITUTE(SUBSTITUTE(A1;"ά";"α");"έ";"ε"), στην πρόταση που θα προκύψει χωρίς το ά, θα αντικαταστήσει το έ με το ε κ.ο.κ.

Επειδή η SUBSTITUTE κάνει διάκριση πεζών-κεφαλαίων, χρειαζόμαστε 7 SUBSTITUDE για τα πεζά, συν άλλες 7 για τα κεφαλαία, συν 2 για τις περιπτώσεις ΐ και ΰ, που θα αντικαθίστανται με το ϊ και ϋ αντιστοίχως, συνολικά 16 (στο παράδειγμα έχουμε 2, διότι 2 είναι τα γράμματα). Ένα μακρινάρι δηλαδή με την μια SUBSTITUDE ένθετη μέσα στην άλλη.

Το ανάλογο θα γίνει με τα σημεία στίξης, μόνο που θα τα αντικαθιστάς με κενά, δηλαδή "".

[Nikrom]

Ευχαριστώ πολύ φίλε μου ΑνδρέαΝ. Τα κατάλαβα!
Θα το βάλω άμεσα σε εφαρμογή στο Μποτ μου.

Τελικά αυτό το φόρουμ αξίζει πολύ!

[MitsakosGR]

Ευχαριστώ για τις απαντήσεις. Συγνώμη, ξέχασα να πω ότι τη θέλω για το Excel. Οπότε αν δεν κάνω λάθος, είναι Βίζουαλ Μπέισικ.

Το πρόβλημα είναι ότι δεν ξέρω πώς να βάλω ένθετες SUBSTITUDE, επειδή οι οδηγίες για κάτι τέτοιο είναι σε ξένη γλώσσα, και όταν διαβάζω στα Ελληνικά σχετικές οδηγίες για ένθετες συναρτήσεις, είναι κακομεταφρασμένες και δεν βγάζω άκρη.

Πώς θα έγραφα τρεις τέτοιες ένθετες, ώστε να καταλάβω πώς να φτιάξω περισσότερες;

Δεν είναι Visual Basic, είναι Visual Basic for Applications (VBA) η οποία διαφέρει από την Visual Basic. Ναι μεν έχουν ίδια σύνταξη αλλά δεν έχουν ίδιες λειτουργίες.

Το ακόλουθο κάνει τις αντικαταστάσεις από τόνους σε χωρίς, αφαιρεί τα σύμβολα (κάποια) και μετατρέπει τα κεφαλαία σε μικρά. Το "vbTextCompare" θεωρεί ότι τα πεζά και τα κεφαλαία είναι ίδια, οπότε αντικαταστώντας το "α" με "α" το κεφαλαίο γίνεται αυτόματα μικρό, αντίστοιχα και με τα τονισμένα μετατρέπονται σε μικρά χωρίς τόνους.

    Dim str1 As String
    str1 = "αΆ/ε\\έιίΪ,ΐυΎϋΰ.οΟΩω"
    
    str1 = Replace(str1, "α", "α", , , vbTextCompare)
    str1 = Replace(str1, "ά", "α", , , vbTextCompare)
    str1 = Replace(str1, "ι", "ι", , , vbTextCompare)
    str1 = Replace(str1, "ί", "ι", , , vbTextCompare)
    str1 = Replace(str1, "ϊ", "ι", , , vbTextCompare)
    str1 = Replace(str1, "ΐ", "ι", , , vbTextCompare)
    str1 = Replace(str1, "η", "η", , , vbTextCompare)
    str1 = Replace(str1, "ή", "η", , , vbTextCompare)
    str1 = Replace(str1, "υ", "υ", , , vbTextCompare)
    str1 = Replace(str1, "ύ", "υ", , , vbTextCompare)
    str1 = Replace(str1, "ο", "ο", , , vbTextCompare)
    str1 = Replace(str1, "ό", "ο", , , vbTextCompare)
    str1 = Replace(str1, "ω", "ω", , , vbTextCompare)
    str1 = Replace(str1, "ώ", "ω", , , vbTextCompare)
    str1 = Replace(str1, ".", "", , , vbTextCompare)
    str1 = Replace(str1, ",", "", , , vbTextCompare)
    str1 = Replace(str1, ":", "", , , vbTextCompare)
    str1 = Replace(str1, ";", "", , , vbTextCompare)
    str1 = Replace(str1, "\\", "", , , vbTextCompare)
    str1 = Replace(str1, "/", "", , , vbTextCompare)
    
    Debug.Print (str1)

Αν και αυτό δουλεύει δεν είναι η καλύτερη, υπολογιστικά, λύση γιατί για κάθε αντικατάσταση διαβάζει όλο το text κάθε φορά.

Αν τα κείμενά σου είναι πολλά και/ή μεγάλα το καλύτερο είναι αυτό που έκανες μέχρι τώρα. Δηλαδή διαβάζεις το string χαρακτήρα χαρακτήρα, και κάνεις όλες τις αντικαταστάσεις ταυτόχρονα.

Function NormalizeString(str) As String
    Dim ret As String
    Remove = Array(".", ",", ":", ";", "\", "/")
    
    For i = 1 To Len(str)
        c = Mid(str, i, 1)
        c = Replace(c, "α", "α", , , vbTextCompare)
        c = Replace(c, "ά", "α", , , vbTextCompare)
        c = Replace(c, "ε", "ε", , , vbTextCompare)
        c = Replace(c, "έ", "ε", , , vbTextCompare)
        c = Replace(c, "η", "η", , , vbTextCompare)
        c = Replace(c, "ή", "η", , , vbTextCompare)
        c = Replace(c, "ι", "ι", , , vbTextCompare)
        c = Replace(c, "ί", "ι", , , vbTextCompare)
        c = Replace(c, "ϊ", "ι", , , vbTextCompare)
        c = Replace(c, "ΐ", "ι", , , vbTextCompare)
        c = Replace(c, "ο", "ο", , , vbTextCompare)
        c = Replace(c, "ό", "ο", , , vbTextCompare)
        c = Replace(c, "υ", "υ", , , vbTextCompare)
        c = Replace(c, "ύ", "υ", , , vbTextCompare)
        c = Replace(c, "ϋ", "υ", , , vbTextCompare)
        c = Replace(c, "ΰ", "υ", , , vbTextCompare)
        c = Replace(c, "ω", "ω", , , vbTextCompare)
        c = Replace(c, "ώ", "ω", , , vbTextCompare)
        
        For Each r In Remove
            If c = r Then
                c = ""
                GoTo AfterRemove
            End If
        Next
AfterRemove:
        
        ret = ret + c
    Next
    
    NormalizeString = ret
End Function

[Nikrom]

Ευχαριστώ κι εσένα MitsakoGR, αν και η συνάρτηση τού φίλου ΑνδρέαΜ δουλεύει πολύ καλά.

Αυτό που είχα έναν - έναν χαρακτήρα, εκτός τού ότι μου έπαιρνε μεγάλες εκτάσεις κελιών με συναρτήσεις, είχε και το μειονέκτημα ότι για αρκετά μεγάλες προτάσεις, έβγαζε σφάλματα, επειδή "έχανε" κάποια γράμματα στην όλη διαδικασία. Οπότε η συνάρτηση τού Ανδρέα είναι πολύ καλύτερη από αυτό που είχα.

Επειδή όμως θέλω να μαθαίνω, οφείλω να πω ότι ΔΕΝ ΞΕΡΩ πώς ή πού θα μπορούσα να γράψω τις δύο δικές σου συναρτήσεις, δεδομένου ότι δεν είμαι προγραμματιστής, και μόνο εμπειρικά και με τη βοήθεια φίλων έχω φτιάξει όσα έφτιαξα. Και οι δύο παραπάνω κώδικες, μοιάζουν περισσότερο με μακροεντολές παρά με συναρτήσεις κελιού. (π.χ. δεν βλέπω να έχει Sub). Πώς θα μπορούσα λοιπόν να τους χρησιμοποιήσω, δεδομένου ότι δεν ξέρω να προγραμματίζω πέραν συναρτήσεων κελιού και μακροεντολών;

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

Ευχαριστώ πολύ!

[MitsakosGR]

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

[Nikrom]

Ναι, αυτή τη φορά συνάρτηση κελιού έψαχνα. Παρόμοια μακροεντολή είχα άλλο είδος και χρησιμοποιούσα. Αλλά με παραξένεψε που δεν είχε "Sub" για μακροεντολή.

Πάντως θα τη δοκιμάσω από περιέργεια.

[MitsakosGR]

Ναι, αυτή τη φορά συνάρτηση κελιού έψαχνα. Παρόμοια μακροεντολή είχα άλλο είδος και χρησιμοποιούσα. Αλλά με παραξένεψε που δεν είχε "Sub" για μακροεντολή.

Πάντως θα τη δοκιμάσω από περιέργεια.

Απλά το έγραψα χωρίς το Sub (την πρώτη). Αν θέλεις να την βάλεις να τρέξει θα πρέπει να την βάλεις σε Sub ή Function.

[Nikrom]

Α, ωραία! Ευχαριστώ που μου έλυσες την απορία.

[gavrinos]

αν μιλάμε για κείμενο μέσα σε καποιο κελί του excel, υπάρχει ένας πολύ πιο απλός τρόπος να έχεις το ίδιο κείμενο χωρίς τόνους, από το να γράψεις κώδικα.

αν λοιπόν στο κελί A1 υπάρχει η φράση "Τονισμένη φράση", τότε στο B1 γράφεις =PROPER(UPPER(A1)) και το αποτέλεσμα που παίρνεις, είναι το "Τονισμενη Φραση"
"

[Nikrom]

Ευχαριστώ πολύ!
Θα το δοκιμάσω!

[AndreasN]

αν μιλάμε για κείμενο μέσα σε καποιο κελί του excel, υπάρχει ένας πολύ πιο απλός τρόπος να έχεις το ίδιο κείμενο χωρίς τόνους, από το να γράψεις κώδικα.

αν λοιπόν στο κελί A1 υπάρχει η φράση "Τονισμένη φράση", τότε στο B1 γράφεις =PROPER(UPPER(A1)) και το αποτέλεσμα που παίρνεις, είναι το "Τονισμενη Φραση"
"

Ο τύπος αυτός δεν καταργεί τα τονισμένα κεφαλαία. Αν το κελί γράφει " Άτονη φράση ", το αποτέλεσμα θα είναι " Άτονη Φραση ". Όσο για την κεφαλαιοποίηση του πρώτου γράμματος κάθε λέξης, δεν κατάλαβα να ζητήθηκε κάτι τέτοιο από τον ενδιαφερόμενο.