Función Visual Basic a la que se le pasa como parámetro una cadena de texto con cualquier carácter "raro" (/*-+¿?=)(/&%$·"!) y devuelve una cadena de texto con los caracteres "raros" quitados o sustituidos por el texto pasado como parámetro.

Admite dos parámetros: cadena de texto a "limpiar" y cadena de texto (o letra) por la que se sustituirá cada carácter "raro".

Function limpiarCadenaNombreFichero(cadenaTexto As String, _
    sustituirPor As String) As String
  Dim tamanoCadena, i, cadenaResultado, caracteresValidos As String
  Dim caracterActual As String
  
  tamanoCadena = Len(cadenaTexto)
  If tamanoCadena > 0 Then
    caracteresValidos = _
        " 0123456789abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ-_."
    For i = 1 To tamanoCadena
      caracterActual = Mid(cadenaTexto, i, 1)
      If InStr(caracteresValidos, caracterActual) Then
        cadenaResultado = cadenaResultado & caracterActual
      Else
        cadenaResultado = cadenaResultado & sustituirPor
      End If
    Next
  End If
  
  limpiarCadenaNombreFichero = cadenaResultado
End Function

  Dim cadenaCaracteres As String

  cadenaCaracteres = InputBox("Introduce cadena de caracteres", _
      "Preparar para nombre fichero")
  
  cadenaCaracteres = _
      limpiarCadenaNombreFichero(cadenaCaracteres, "")
  
  MsgBox "El nombre correcto del fichero Windows será: " & _
      cadenaCaracteres

Publicado el: 2009-03-13