Strappiamo via tutto!

Una semplice proposta per liberare un testo dai caratteri indesiderati. Anche questa funzione deriva da una breve discussione sul forum di Excel VBA. Lo scopo è avere una funzione che riceve una stringa di testo, una lista di caratteri da sostituire e un carattere di sostituzione. Il nome della funzione è, semplicemente, strip e si può utilizzare anche direttamente all'interno del foglio di Excel come formula (se la inseriamo in un Modulo).
Option Explicit

Function strip(s As String, replace_list As String, replace_with As String) _
As String
Dim re As Object, matches As Object

    Set re = CreateObject("vbscript.regexp")
    With re
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = "[" & replace_list & "]+"
    End With

    strip = re.Replace(s, replace_with)

End Function

posted @ domenica 6 gennaio 2013 11:11

Print

Comments on this entry:

No comments posted yet.

Your comment:



 (will not be displayed)


 
 
 
Please add 1 and 3 and type the answer here:
 

Live Comment Preview: