12-11-16, 08:42
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλημέρα
Αλέξανδρε, η συνάρτηση Replace3Blanks ψάχνει 3 συνεχόμενα διαστήματα στα οποία να προηγείται και να έπεται οποιοσδήποτε (α, 1,@,!,%,:, κλπ) άλλος χαρακτήρας και ακολούθως αλλάζει το μεσαίο διάστημα σε «-».
Όπως είναι ταυτίζεται με την Replace(s, " ", " - ").
Θα μπορούσε συνεπώς να μη χρησιμοποιηθεί και στη ρουτίνα ReplaceFirstEndChar να θέσουμε: Κώδικας: Me.TextBox2 = Replace(Trim(s), " ", " - ")
Έγραψα τη συνάρτηση Replace3Blanks, επειδή μπορεί να προσαρμοστεί και να αποκλείει τις αντικαταστάσεις σε κάποιες περιπτώσεις, που ο χαρακτήρας που προηγείται ή έπεται είναι κάποιος συγκεκριμένος (πχ ένας από τους «~!@#$%^&*;:<>,»).
Φιλικά/Γιώργος
ΥΓ. Οι Regular Expressions είναι καταπληκτικές στην επικύρωση δεδομένων καθώς και στην εύρεση και την αντικατάσταση μοτίβων.
|