[kapetang]

Καλημέρα

Αλέξανδρε, η συνάρτηση Replace3Blanks ψάχνει 3 συνεχόμενα διαστήματα στα οποία να προηγείται και να έπεται οποιοσδήποτε (α, 1,@,!,%,:, κλπ) άλλος χαρακτήρας και ακολούθως αλλάζει το μεσαίο διάστημα σε «-».

Όπως είναι ταυτίζεται με την Replace(s, " ", " - ").

Θα μπορούσε συνεπώς να μη χρησιμοποιηθεί και στη ρουτίνα ReplaceFirstEndChar να θέσουμε:

Me.TextBox2 = Replace(Trim(s), "   ", " - ")

Έγραψα τη συνάρτηση Replace3Blanks, επειδή μπορεί να προσαρμοστεί και να αποκλείει τις αντικαταστάσεις σε κάποιες περιπτώσεις, που ο χαρακτήρας που προηγείται ή έπεται είναι κάποιος συγκεκριμένος (πχ ένας από τους «~!@#$%^&*;:<>,»).

Φιλικά/Γιώργος

ΥΓ. Οι Regular Expressions είναι καταπληκτικές στην επικύρωση δεδομένων καθώς και στην εύρεση και την αντικατάσταση μοτίβων.