Tema: Extraer un texto
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 15/12/2009, 12:34
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 20 años
Puntos: 29
Respuesta: Extraer un texto
Otra opción:

Código vb: 
Ver original
  1. Function ExtraeNombre(Fichero As String) As String
  2.   If InStrRev(Fichero, "\") Then
  3.     ExtraeNombre = Mid$(Fichero, InStrRev(Fichero, "\") + 1)
  4.   ElseIf InStr(1, Fichero, ":") Then
  5.     ExtraeNombre = Mid$(Fichero, InStr(1, Fichero, ":") + 1)
  6.   Else
  7.     ExtraeNombre = Fichero
  8.   End If
  9. End Function
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!