Autor Tema: Separar path de fichero sin instrrev (Leído 5612 veces)

J-Ant · « **en:** Miércoles 1 de Diciembre de 2010, 14:14 »

Buenas tardes.
Tengo un problema con un proyecto realizado en vb4, el cual no puedo migrar a vb6 o .net, ya que tiene controles personalizados externos.

Bueno, el caso no es ese. En dicho proyecto estoy intentando recoger el path y nombre de fichero desde un commondialog, y separar el path del nombre de fichero. Al estar en vb4, no tengo acceso a la funcion InstrRev, con lo que creo que deberia recorrer el filename hasta encontrar el último caracter "", y guardar hasta ahi en el path. El caso es que no se como recorrer para buscar la ultima instancia de un caracter.

Agradecido por cualquier ayuda que me puedan prestar

m0skit0

StrReverse e InStr

EDITO: InStrRev hace lo mismo que las anteriores combinadas.

PD: por favor, consulta la documentación de VB antes de preguntar, normalmente ahi tienes la respuesta a la mayoría de estas preguntas simples

J-Ant

Hola,
Antes de preguntar, he de decir que ya consulte manuales, pero no me percaté de StrReverse... porque se incluia en Visual Basic 2005, no en vb4, pero gracias igualmente por el aporte

.

Nebire

Puedes usar el 'filesystemobject' contiene clases que permiten manipular ficheros...

un ejemplo de código:

Código: Visual Basic

 
Dim fso As New FileSystemObject
Dim Dr As Drive
Dim Fi As File
Dim Fo As Folder
 
Private Sub Command1_Click()
    Dim ruta As String
    
    ruta = "C:autoexec.bat"
    Set Fi = fso.GetFile(ruta)
    
    If Not (Fi  Is Nothing) Then
        MsgBox "Ruta completa : " & Fi.Path & vbCrLf & _
         " en la carpeta: " & Fi.ParentFolder & vbCrLf & _
         " de nombre: " & Fi.Name
    Else
        MsgBox "error, ocurrió un error con el fichero " & ruta
    End If
End Sub
 
 
 

F_Tanori

Alternativas hay muchas que tal si la reversa se la aplicas en un ciclo por ejemplo FOR:

Código: Visual Basic

Function ObtenerNombreArchivo(Ruta As String)
    Dim Final As Integer, C As Integer
    Dim Caracter As String, Cadena As String
    Final = Len(Ruta)
    
    For C = Final To 1 Step -1
        Caracter = Mid(Ruta, C, 1)
        If Caracter = "" Then
            Exit For
        Else
            Cadena = Caracter & Cadena
        End If
    Next C
    ObtenerNombreArchivo= Cadena
End Function
 

Código: Visual Basic

 
   NombreArchivo = ObtenerNombreArchivo("C:DocumentosOtrosArchivo.doc")

O en cualquier otro ciclo, claro que siempre es mejor utilizar funciones ya hechas para no tener que estar reinventando las cosas, salvo cuando son sistemas heredados , que hay que desarrollar otras soluciones. pero si no se planea la actualizacion tarde o temprano se tendran problemas mas graves

Saludos

J-Ant

Efectivamente, F_Tanori, lo solventé recorriendo en orden inverso con un for, tal que asi

Código: Visual Basic

 
for I= len(trim(cadena)) to 1 step -1
    If Mid(Trim(cadena), I, 1) = "" then Exit For
Next I
Path =Mid(cadena, 1, I-1)
Archivo= Mid(cadena, I + 1)
 
 

Gracias a todos por vuestra aportación.

m0skit0

Eso probablemente sea mucho más lento que usar StrRev e InStr, pero vamos, tú mismo

F_Tanori

En esta pagina viene como 'simular ' esas funciones en una version de VB inferior a 6

http://support.microsoft.com/kb/188007/es

si no estan disponibles (Legacy) ...

y como veras segun la recomendacion de MS ... StrReverse es un ciclo for en reversa

Saludos

m0skit0

Como siempre no deja de asombrarme la cutrez de MS

Mira que usar Mid() y no hacerlo con código más rápido usando C/C++ por ejemplo.

F_Tanori

Cita de: "m0skit0"

Como siempre no deja de asombrarme la cutrez de MS Mira que usar Mid() y no hacerlo con código más rápido usando C/C++ por ejemplo.

Claro, internamente yo supongo cuando las funciones estan incluidas en el lenguaje, como lo es en VB6 ya vienen en un codigo optimizado, mejor elaborado, y eficiente, pero estas funciones son simulaciones de las funciones que en una version anterior no estan disponibles, para que puedan estarlo.

Pero claro en lo que dices tienes razon pero esto es solo para solventar estas caracteristeicas pare este sistema heredado

Saludos

SoloCodigo

Autor Tema: Separar path de fichero sin instrrev (Leído 5612 veces)

J-Ant

Separar path de fichero sin instrrev

m0skit0

Re: Separar path de fichero sin instrrev

J-Ant

Re: Separar path de fichero sin instrrev

Nebire

Re: Separar path de fichero sin instrrev

F_Tanori

Re: Separar path de fichero sin instrrev

J-Ant

Re: Separar path de fichero sin instrrev

m0skit0

Re: Separar path de fichero sin instrrev

F_Tanori

Re: Separar path de fichero sin instrrev

m0skit0

Re: Separar path de fichero sin instrrev

F_Tanori

Re: Separar path de fichero sin instrrev