eliminar caracteres especiales de un txt

[ARGFA]

buenas buenas comunidad programadora....
mi consulta se debe a que ando averiguando si existe una funcion o algun metodo en vb6 para abrir un txt, leer linea por linea e ir eliminando todos los caracteres especiales que este contenga...

esa es mi duda. si alguien sabe de tal cosa. bienvenida sus sugerencias...

gracias de antemano.

[Kruzado]

con este codigo puedes abrir el archivo para revisar si tiene caracteres especiales, esto lo puedes hacer con la funcion chr() y para reemplazarlo la funcion replace()

Open tuarchivo.txt For Input As #1
Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.
Input #1, cadenax
ACA DEBES PONER TU CODIGO EVALUADOR DE CARACTERES ESPECIALES
Loop

espero te sirva de algo, saludos

[ARGFA]

buenas.... muchas gracis por tu aporte. ya logre resolverlo. aqui adjunto el codigo.

Código vb:

Function reemplazarTexto(textoCompleto As String, textoBuscar As String, textoReemplazar As String) As String
  Dim resultado As String
  
  resultado = Replace(textoCompleto, textoBuscar, textoReemplazar, , , vbTextCompare)
  reemplazarTexto = resultado
End Function
 
Private Sub Command1_Click()
Dim Contenido As String
 
Open "D:\Documents and Settings\fromero\Desktop\argenis\argenis cuidamed\archivos\Archivo.TXT" For Input As #1
    
    'Lee todo los datos del archivo y lo almacena en la variable
    Contenido = Input$(LOF(1), #1)
    
    'Cierra el archivo abierto
    Close #1
 
 
'Dim NumPro As String
'Contenido = "22++33++1+1233+"
Contenido = reemplazarTexto(Contenido, "#", "")
Contenido = reemplazarTexto(Contenido, ",", "")
Contenido = reemplazarTexto(Contenido, "-", "")
Contenido = reemplazarTexto(Contenido, ".", "")
Contenido = reemplazarTexto(Contenido, " ", "")
Contenido = reemplazarTexto(Contenido, """", "")
 
Open "D:\Documents and Settings\fromero\Desktop\argenis\Archivo.TXT" For Output As #1
            Print #1, Contenido
            Close #1
'Print Contenido
 
 
End Sub