15/12/2009, 12:34
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses Puntos: 29 | |
| Respuesta: Extraer un texto
Otra opción:
Código vb:
Ver originalFunction ExtraeNombre(Fichero As String) As String If InStrRev(Fichero, "\") Then ExtraeNombre = Mid$(Fichero, InStrRev(Fichero, "\") + 1) ElseIf InStr(1, Fichero, ":") Then ExtraeNombre = Mid$(Fichero, InStr(1, Fichero, ":") + 1) Else ExtraeNombre = Fichero End If End Function
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |