• Home
 · 
• String Manipulation
 · 
• String Cleaner : keep only digit, only Ucases ,only Lowercases, only digit and Ucase, Ucase and dig

String Cleaner : keep only digit, only Ucases ,only Lowercases, only digit and Ucase, Ucase and dig

String Cleaner : keep only digit, only Ucases ,only Lowercases, only digit and Ucase, Ucase and digit, etc...

Rate String Cleaner : keep only digit, only Ucases ,only Lowercases, only digit and Ucase, Ucase and dig

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

You can replace forbidden chars by another :)
Public Function OnlyChars(ByVal txt As String, ByVal Uchars As Boolean, ByVal Lchars As Boolean, ByVal Digits As Boolean, Optional Remplacement As String) As String
Dim h As Long
Dim tempon As String

For h = 1 To Len(txt)
    num = Asc(Mid$(txt, h, 1))
    'suppression des uchars
    If Uchars Then
        If num >= 65 And num <= 90 Then
            tempon = tempon & Mid$(txt, h, 1)
        Else
            tempon = tempon & Remplacement
        End If
     
    End If
    
    If Lchars Then
        If num >= 97 And num <= 122 Then
        tempon = tempon & Mid$(txt, h, 1)
        Else
        tempon = tempon & Remplacement
            
        End If
    
    End If
    
    If Digits Then
        If num >= 48 And num <= 57 Then
            tempon = tempon & Mid$(txt, h, 1)
        
        Else
        tempon = tempon & Remplacement
            
        End If
    
    End If
   'If Uchars And Lchars And Digits Then tempon = tempon & Mid$(txt, h, 1)
Next
OnlyChars = tempon


End Function