10-11-16, 13:10
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα
Αλέξανδρε, θα πρότεινα να δοκιμάσεις τον παρακάτω κώδικα: Κώδικας: Public Sub ReplaceFirstEndChar()
'Αλλαγή 1ου και τελευταίου χαρακτήρα λέξης
'Εδώ θα καταχωρηθούν οι πραγματικοί χαρακτήρες
Const First As String = "0" '1ος χαρακτήρας λέξης
Const FirstTo As String = "8" 'χαρακτήρας αντικατάστασης 1ου χαρακτήρα
Const Last As String = "0" 'τελευταίος χαρακτήρας λέξης
Const LastTo As String = "8" 'χαρακτήρας αντικατάστασης τελευταίου χαρακτήρα
Dim s As String, SeparateChars As Variant, i As Long
s = Trim(Nz(Me.TextBox2, ""))
If s <> "" Then
s = " " & s & " "
'Χαρακτήρες διαχωρισμού λέξεων
SeparateChars = Array(",", ".", ";", ":", "·", " ")
For i = 0 To UBound(SeparateChars)
'αντικατάσταση 1ου χαρακτήρα
s = Replace(s, SeparateChars(i) & First, SeparateChars(i) & FirstTo)
'αντικατάσταση τελευταίου χαρακτήρα
s = Replace(s, Last & SeparateChars(i), LastTo & SeparateChars(i))
Next
Me.TextBox2 = Trim(s)
Me.Dirty = False
End If
End Sub
|