Reemplazar simbolos en Cadena [ayuda]

[Psyke1]

Hola, necesito saber cual es la forma óptima de quitar los caracteres que no sean ni numeros ni letras (,$%·"!%&/^¨*: ...) en una cadena...  
¿Quizas con Expresiones Regulares?  
Actualmente meto todos los imbolos a mano en un array y utilizo Replace, no creo que sea la mejor forma...

Gracias!

[Shell Root]

Y la cadena de donde sale?

Replaze,

Replace!

[Psyke1]

Y la cadena de donde sale?

Replaze,

Replace!

AJJAJA
Tranquilo, me confundi...
Como que de donde sale la cadena?Eso importa?  
Imagina que tengo este texto:

Hoy, dia lunes (mi dia faborito de la semana):
Tengo que gastar 10$.

Quitar los caracteres que no sean ni numeros ni letras, quedaria asi:

Hoy dia lunes mi dia faborito de la semana
Tengo que gastar 10

Salu2!

[Shell Root]

Osea lo preguntaba, ya que podes validar eso, desde el momento en que se haga el input de la cadena, es decir, donde se ingresa esa cadena, pones algún tipo de validaciones con expresiones regulares, donde solo se puede ingresar letras y/o números.

[Psyke1]

Osea lo preguntaba, ya que podes validar eso, desde el momento en que se haga el input de la cadena, es decir, donde se ingresa esa cadena, pones algún tipo de validaciones con expresiones regulares, donde solo se puede ingresar letras y/o números.

Ok  , pero eso no es lo que busco, es con una cadena que ya contiene simbolos...
Bueno, creo que lo explique bastante bien en la anterior respuesta...

Salu2!

[Shell Root]

Bueno, podes recorrer la cadena carácter por carácter, verificando cada uno de ellos.  , ya sea de la forma en la que tenés del array o con una expresión regular.

[Psyke1]

Hago esto:

Código (vb) [Seleccionar] Expandir


    Dim a() As String
    a() = Split(",
.
)
(
=
/
&
%
%
?
¿
¡
!
#
@
¨
>
<
:
;
t
_
-
\
|
{
}
^
[
]
*
+
·
ª
º", "
")
    For x = 0 To UBound(a())
        Text1.Text = Replace(Text1.Text, a(x), "")
    Next
Que te parece?¿ 

Salu2!

[BlackZeroX]

[b]lo peor que se puede hacer en un lugar de un tema fijado es relacionarlo con otro cuando este no le importa en lo absoluto al individuo sudicho, aquen que lo de expresiones regulares esta bien... pero el ejemplo esta pesimo en este subforo.[/b]

* Aqui la liga a expresiones regulares en vb6.0.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/166-expresiones-regulares.htm

Dulce Infierno Lunar!¡.

[Psyke1]

Ya lo vi Balck, pero esque me parecia un poco complicado, no obstante lo intentare con Expresiones Regulares a ver que tal...

Gracias!

[raul338]

En un formulario pone un textbox, un boton y un label

Código (vb) [Seleccionar] Expandir


Private Const invalidos = "aeiou" ' Cambia por signos o lo que sea :)

Private Sub Command1_Click()
   Dim i As Integer
   Dim tmp As String
   
   tmp = Text1.Text
   For i = 1 To Len(invalidos)
       tmp = Replace(tmp, Mid$(invalidos, i, 1), "")
   Next
   Label1.Caption = tmp
End Sub


Asi de simple

Osea lo preguntaba, ya que podes validar eso, desde el momento en que se haga el input de la cadena, es decir, donde se ingresa esa cadena, pones algún tipo de validaciones con expresiones regulares, donde solo se puede ingresar letras y/o números.

Bueno, podes recorrer la cadena carácter por carácter, verificando cada uno de ellos.  , ya sea de la forma en la que tenés del array o con una expresión regular.

Como estas insistente con las expresiones regulares en los ultimos tiempos xDDDD