excel-vba elimina todos los caracteres no alfanuméricos de un string ejemplo de código

Este dilema se puede resolver de diferentes maneras, pero nosotros te damos la solución más completa para nosotros.

Ejemplo: excel vba elimina todos los caracteres no alfanuméricos de un string

'VBA function to clean a text string so that only alpha-numeric 'characters and spaces and periods remain:Function AlphaNumeric$(s$,Optional KeepPattern ="[A-Z.a-z 0-9]")Dim i&, token$For i =1To Len(s)
        token = Mid(s, i,1)If token Like KeepPattern Then BuildString token
    Next
    AlphaNumeric = BuildString(Done:=True)EndFunctionFunction BuildString(Optional txt$,Optional adjust&,Optional Done AsBoolean,Optional Size ="5e6")Static p&, s$If Done Then BuildString = Left(s, p -1): p =0: s ="":ExitFunctionIf p =0Then: p =1: s = Space(Size)If Len(p)Then p = p + adjust
    Mid$(s, p, Len(txt))= txt
    p = p + Len(txt)EndFunction'--------------------------------------------------------------------

MsgBox AlphaNumeric("abc &*&[email protected]@~ 1__/2??~3")'<--displays: abc 123'Note: You can optionally pass a different 'KeepPattern' to adjust'what the function keeps and discards.

Reseñas y calificaciones

Finalizando este artículo puedes encontrar las notas de otros usuarios, tú de igual manera tienes la habilidad mostrar el tuyo si te apetece.

---

---

Utiliza Nuestro Buscador