Information générale
Catégorie:
Codage, syntaxe et commandes
** This seems to work
*SET SAFETY off
CLOSE ALL
CLEAR ALL
USE c:MyProject.pjx
COPY TO Watch
CLOSE ALL
ALTER TABLE watch ADD COLUMN num c(10)
ALTER TABLE watch ADD COLUMN file_name c(250)
ALTER TABLE watch ADD COLUMN ext c(10)
CLOSE ALL
USE watch
PACK
REPLACE ALL file_name WITH name
REPLACE ALL ext WITH SUBSTR(file_name, LEN(ALLTRIM(file_name)) - 3 , LEN(ALLTRIM(file_name)) )
SELECT * from watch INTO TABLE tt ORDER BY ext, file_name
REPLACE ALL ext WITH STRTRAN(ext,CHR(0),"")
REPLACE ALL file_name WITH STRTRAN(file_name,CHR(0),"")
REPLACE ALL num WITH ALLTRIM(STR(recno())) +" of "+ ALLTRIM(STR(reccount()))
GO top
BROWSE FIELDS num,file_name,ext WIDTH 40 && list of proj files
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement