** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Cadenas. Nombres de Archivo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Cadenas. Nombres de Archivo

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: VBA: Cadenas. Nombres de Archivo
    Enviado: 21/Agosto/2013 a las 15:55
Esta función sirve para crear nombres de archivo, eliminando de las cadenas caracteres que resultan "extraños" para dicho fin.

'---------------------------------------------------------------------------------------------------------------------------------------
' Nombre:      ToFileName
' Propósito:   Elimina caracteres no alfanuméricos de una cadena. Util para nombres de archivo.
' Autor:       Diego F.Pereira-Perdomo
' Fecha:       Jul-03-2012
'---------------------------------------------------------------------------------------------------------------------------------------
Public Function ToFileName(strChar As String)

On Error GoTo ErrorHandler

    Dim l      As Integer
    Dim i      As Integer
    Dim Char   As String
    Dim strAN  As String
    Dim strStr As String
    
    strAN = "0123456789abcdefghijklmnopqrstuvwxyz"
    
    l = Len(strChar)
    
    For i = 1 To l
       Char = Mid(strChar, i, 1)
       If InStr(strAN, Char) Then
           strStr = strStr & Char
       End If
    Next i
    
    ToFileName = strStr
    
ErrorHandler:
    Select Case Err.Number
       Case 0
       Case Else
           MsgBox Err.Number & ": " & Err.Description
    End Select
 
End Function
"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable