FoxPro/Visual FoxPro - Ayuda con Rutina...

Que tal amigos :

Necesito de su colaboracion. Estoy tratando de resolver una rutina pero algo le esta faltando...

Como haria para extraer del nombre de una carpeta o directorio el caracter "\" en estos momentos estoy algo cansado de varios dias rehaciendo unos programas que mi mente ya esta nublado por decirlo de alguna manera...

Aqui un Ejemplo :

Control\aplicacion
Sistemas\Agenda
Copseg\Red

Espero sus comentarios y/o sugerencias.

Saludos,

Gabriel

Hola Gabriel

La verdad no se si existira una funcion que haga eso ..pero te doy una idea (es lo primero que se me ocurrio.. tu lo mejoras) a ver si te sirve de algo:

nLog=LEN(ALLTRIM(Thisform.text1.Value))
Cadena1=ALLTRIM(Thisform.text1.Value)
Cadena2=""
letra=""
IF LEN(cadena1)<>0
FOR i=1 TO nLog
letra=SUBSTR(Cadena1,i,1)
IF letra<>"\"
Cadena2=Cadena2+letra
ENDIF

ENDFOR
ELSE
WAIT "Ingresa cadena" Wind
ENDIF

thisform.text2.Value=Cadena2

Saludos

Lanor

Algo mas simple:

eliminar='\'
cadena='Control\aplicacion'
cadena=CHRTRAN(cadena,eliminar,"")
?cadena

Puedes elegir cualquier caracter a eliminar.
Espero que te sirva
Saludos