Path Relativo

Estado
Cerrado para nuevas respuestas.

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Bueno, vengo a pedir que alguien sea el voluntario y colabore con esto. Yo tengo una solucion fea pero quiero ver otras, antes que nada explicare lo que es el Path Relativo con ejemplos:

A) C:\JUANCHO\CARLA
B) C:\

Path Relativo: A) ..\JUANCHO\CARLA
B) C:\ (No existe Path Relativo)

C) C:\QUIJOTE\CRISTINA
D) C:\QUIJOTE\CARLA\JUAN

Path Relativo: C) ..\..\CRISTINA
D) ..\..\CARLA\JUAN

Bueno, manos a la obra!
TIP: Si se dam cuenta los "..\" son por los directorios que se repiten de izquierda a derecha.

Nada mas!
Saludos!
 

Shura

Dragón Ancestral Lvl 2
explica mejor ¬¬ o ya empezastes a darle al porro para ser hilander va por ahi te quema las neuronas y terminas siendo gilander
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Una cosa, hay que postearlo como funcion que se llama:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> FunctionGivePathRelativo<span style="color: #66cc66;">(</span>ByVal Path1 <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal Path2 <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li></ol></div>[/vb]

Sigo esperando la respuesta, cuando este posteare la mia ;)

Sirve para saber el Path Relativo para usar comadnos del DOS.
 

Pocho

Oráculo Lvl 3
bueno me parece que acabo de entender


A) C:\JUANCHO\CARLA
B) C:\

Path Relativo:
A) ..\JUANCHO\CARLA
B) C:\ (No existe Path Relativo)



por ejemlo, en el A , meparece que tendria que ser ..\..\CARLA

no?


C) C:\QUIJOTE\CRISTINA
D) C:\QUIJOTE\CARLA\JUAN

Path Relativo:
C) ..\..\CRISTINA
D) ..\..\CARLA\JUAN


me parece que ya entendi lo que quiere hacer,, es buscar todos los directorios dentro de un directorio, es decir, poner ANTES DEL QUIJOTE, TODOS ...

no?
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Re: la verdad

darkbad dijo:
La verdad no entiendo tu manera de expresarte me podrias explicar un poco mejor?

Es facil, la idea es hacer una funcion que devuelva el Path Relativo (Pero escribirlo como funcion, no tirar codigo suelto)
 

Pocho

Oráculo Lvl 3
Re: la verdad

Tavo dijo:
darkbad dijo:
La verdad no entiendo tu manera de expresarte me podrias explicar un poco mejor?

Es facil, la idea es hacer una funcion que devuelva el Path Relativo (Pero escribirlo como funcion, no tirar codigo suelto)
:S , nose para que lo queres si sabes hacerlo, bueno no se q es el path relativo , pero con el codigo del otro pibe ya esta ..

edit: porque siempre ocultsa todo ^^ especifica un poco


edit2:

en un modulo
Public Function Sumar(Valor1 As Integer) As Integer
Dim Valor2 As Integer
Sumar = Valor1 + 2
End Function


y desde un boton
talcosa = sumar(numero)

si tratamos de usar elc odigo del compañero podemos poner

Public FunctionGivePathRelativo(Path As String) As String
'Darkbad
For m = 1 To Len(Path)
GetChr0 = Right(Path, m)
GetChr1 = Left(GetChr0, 1)
If GetChr1 = "" Or GetChr1 = "/" Then
c = c + 1
End If
Next m
For m = 1 To Len(Path)
GetChr0 = Left(Path, m)
GetChr1 = Right(GetChr0, 1)
j = j + 1
If GetChr1 = "" Or GetChr1 = "/" Then
j = 0
s = s + 1
If s = c Then
FunctionGivePathRelativo = Right(GetChr0, m-j)
'OutputPath.Text = Right(GetChr0, m - j)
Exit Sub
End If
End If
Next m
end function


y desde un boton o algo
textPathFinal.text = FunctionGivePathRelativo(TextPathInicial.Text)
 
Estado
Cerrado para nuevas respuestas.
Arriba