Progress - cortar cadena de atras para adelante

 
Vista:
sin imagen de perfil
Val: 70
Plata
Ha mantenido su posición en Progress (en relación al último mes)
Gráfica de Progress

cortar cadena de atras para adelante

Publicado por federico (26 intervenciones) el 13/06/2019 14:38:00
Hola quisiera saber si progress cuenta con alguna función para cortar una cadena de atrás para adelante?
(o sea que comience cortando desde el ultimo caracter hacia el primero)
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

cortar cadena de atras para adelante

Publicado por mariob (47 intervenciones) el 14/06/2019 04:27:59
no. Pero puedes usar SUBSTRING.
Si das mas informacion sobre lo que quieres hacer.
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
sin imagen de perfil
Val: 70
Plata
Ha mantenido su posición en Progress (en relación al último mes)
Gráfica de Progress

cortar cadena de atras para adelante

Publicado por federico (26 intervenciones) el 14/06/2019 14:36:42
tengo que ir poniendo archivos en una variable e ir sacando la extencion del archivo (ejemplos C:\Mis documentos\archivo1.doc o C:\Mis documentos\imagenes\archivo2.jpeg), y copiar solo el nombre del archivo en otra variable (de modo que solo quede archivo1 y archivo2 y asi)
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

cortar cadena de atras para adelante

Publicado por Ricardo Castillo (1 intervención) el 27/09/2019 17:49:57
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DEFINE VARIABLE vcArchivo   AS CHARACTER NO-UNDO INITIAL "c:\Imagenes\logo.jpg".
DEFINE VARIABLE vcNombre    AS CHARACTER NO-UNDO.
DEFINE VARIABLE vcExtension AS CHARACTER NO-UNDO.
 
IF NUM-ENTRIES(vcExtension, ".") = 2 THEN
    ASSIGN
        vcNombre    = ENTRY(1, vcArchivo , ".")
        vcExtension = ENTRY(2, vcArchivo , ".").
ELSE
    vcNombre = vcArchivo.
MESSAGE
    vcNombre SKIP
    vcExtension
    VIEW-AS ALERT-BOX.
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
Imágen de perfil de Alejandro
Val: 141
Oro
Ha mantenido su posición en Progress (en relación al último mes)
Gráfica de Progress

cortar cadena de atras para adelante

Publicado por Alejandro (116 intervenciones) el 28/09/2019 03:44:12
Facil.

1
2
3
4
def var varchivo as char init "c:\temp\archivo.txt".
def var archivo_solo as char.
archivo_solo = substring(varchivo,1,length(trim(varchivo))- 4).
DISPLAY  archivo_solo format "X(50)".


SIn más por el momento, solo dame las gracias para efectos de calidad y estadistica en el portal.
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

cortar cadena de atras para adelante

Publicado por mariob (47 intervenciones) el 28/09/2019 05:39:45
1
2
3
DEF VAR archivo AS CHAR INIT "C:~\Mis documentos~\archivo1.doc" NO-UNDO.
archivo = ENTRY(1,SUBSTRING(archivo,R-INDEX(archivo,"~\") + 1),".").
DISPLAY archivo FORMAT "X(20)".
Resultado: archivo1
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