Hola RICHARD ,,,
Con pequeñas modificaciones te puede servir la solución planteada por ... para un problema similar.
Te paso copia de la respuesta:
****************************************************
Autor: Victor Aguilar
[email protected]
Fecha: 09/10/2004 03:39:45
URL: http://hotsex1.com/
Asunto: ahi te va
recuerda que para mi NS=Número de serie (se me ocurrio para este ejercicio)
1.Crea una tabla llamada NS
con un campo llamado NS tico caracter de 50 de longitud
2. pon esto en un PRG llamado NS y escribe o copia lo siguiente:
**************
close all
set stat off
set talk off
set safe off
run dir *.x /p >ns.idx
use ns exclu
zap
append from ns.idx type sdf for '-'$ns
xns=subs(ns,at('-',ns)-4,9)
repl ns with xns
index on ns to ns.idx
brows noapp noedit nodele
close all
set stat on
set safe on
set talk on
****************
la ultima instruccion de indexar es para no dejar rastro de la obtencion del numero de serie... espero me escribas para que me platiques como te fue... saludos (Mexico, D.F.)
************************
Saludos (Encarnación, Py)
