FoxPro/Visual FoxPro - Ayuda con Rutina...

 
Vista:

Ayuda con Rutina...

Publicado por Gabriel (427 intervenciones) el 09/03/2010 19:34:06
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con Rutina...

Publicado por lanor (19 intervenciones) el 09/03/2010 23:58:09
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con Rutina...

Publicado por andy (228 intervenciones) el 10/03/2010 01:36:15
Algo mas simple:

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

Puedes elegir cualquier caracter a eliminar.
Espero que te sirva
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar