Eruano's Blog

Simple y con foco… como debe ser!

Visual Basic 6 – Limpiar caracteres especiales de una cadena

with 7 comments

El siguiente es un ejemplo de como limpiar los caracteres especiales de una cadena en Visual Basic 6.

Function EliminarEspeciales(ByVal s As String, _
Optional ByVal Filtro As String = "{}[]!"#$%&/()=?¡'¿|*+¨´:.;,<>") As String
Dim I As Integer
For I = 1 To Len(Filtro)
s = Replace(s, Mid(Filtro, I, 1), "")
Next
EliminarEspeciales = s
End Function
...
Dim strMiCadena = "H!ol$%a_ M?un)do)"
strMicadena = EliminarEspeciales(strMiCadena)

Logicamente al final tendremos en strMiCadena el valor “Hola Mundo”

Un Saludo

Written by eruano

6 julio 2011 a 1:23 pm

Publicado en Programacion

Tagged with , ,

7 comentarios

Subscribe to comments with RSS.

  1. esta excelente la funcion, solo hay que agregar otra comilla a la par de la comilla para que no de error.
    Function EliminarEspeciales(ByVal s As String, _
    Optional ByVal Filtro As String = “{}[]!””#$%&/()=?¡’¿|*+¨´:.;,”) As String

    Bayron Carranza

    22 julio 2011 at 10:19 am

    • Tienes toda la razón, muchas gracias por tu comentario.
      Un Saludo.

      eruano

      22 noviembre 2011 at 10:49 pm

  2. como puedo vaciar una funcion ?

    justino

    22 noviembre 2011 at 12:12 pm

    • No entiendo lo que necesitas… si me comentas que es lo que buscas exactamente tal vez pueda colaborar.
      Un Saludo.

      eruano

      22 noviembre 2011 at 10:50 pm

  3. Gracias!! te doy 10 jumbitos por la funcion =)

    lala

    23 junio 2014 at 12:12 pm

  4. amigo que caracter es est �no lo valida

    Anthony

    20 abril 2015 at 10:16 am

  5. Hola hay veces que nos puede causar conflicto caracteres especiales como puede ser un idioma asiatico, esta función hace algo inverso solo deja pasar letras y números no deja pasar caracteres con acentos pero se puede meter una función previa de quita acentos hay varias si navegamos en la red, estoy haciendo un proyecto de medición de impacto en redes sociales y uso mucho esta función para hacer conteos de hashtags y palabras, un saludo

    Public Function ALFANUMERICO(ByVal Texto As String) As String
    If Texto = “” Then Exit Function
    Dim aryLINE() As String
    Dim strC As Variant
    Dim strRES As String
    Dim bytC() As Byte

    aryLINE = Split(StrConv(Texto, vbUnicode), Chr$(0))
    ReDim Preserve aryLINE(UBound(aryLINE) – 1)

    If aryLINE(0) = “” Then Exit Function

    For Each strC In aryLINE
    bytC = StrConv(strC, vbUpperCase)

    If bytC(0) = 32 Then GoTo 1 ‘” ”
    If bytC(0) > 47 And bytC(0) 64 And bytC(0) < 91 Then GoTo 1 'A-Z,a-z
    If bytC(0) = 209 Then GoTo 1 'Ñ,ñ

    strC = ""
    1:
    strRES = strRES & strC
    Next strC

    ALFANUMERICO = strRES
    End Function

    Jasfir Russ

    20 octubre 2015 at 1:06 pm


Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: