11-11-16, 16:25
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 18-06-2010
Μηνύματα: 3.674
| |
Καλησπέρα
Αλέξανδρε θα πρότεινα τα εξής:
1) Αντίγραψε τον παρακάτω κώδικα σε μία λειτουργική μονάδα (Module) Κώδικας: Public Function Replace3Blanks(s As String) As String
Dim sumS As String, j As Long, i As Long, k As Long
s = Trim(s)
k = Len(s)
If k > 4 Then
j = 1
Do While j <= k - 4
sumS = sumS & Mid(s, j, 1)
If Mid(s, j, 1) <> " " Then
If Mid(s, j + 1, 3) = " " And Mid(s, j + 4, 1) <> " " Then
sumS = sumS & " - ": j = j + 3
End If
End If
j = j + 1
Loop
Replace3Blanks = sumS & Right(s, k - Len(sumS))
Else
Replace3Blanks = s
End If
End Function
2) Θέσε στον προηγούμενο κώδικα: Me.TextBox2 = Replace3Blanks(s)
Φιλικά/Γιώργος
ΥΓ. θα μπορούσε να χρησιμοποιηθούν για τη λύση κανονικές εκφράσεις (Regular Expressions), αλλά τις παράτησα εδώ και καιρό και με παράτησαν… |