Crear cuenta
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.
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)".
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)".