1

我编写了下面的代码，它将提取目录名和文件名，我将对提取的文本使用清除命令。

$ sear VAXMANAGERS_ROOT:[PROC]TEMP.LIS LOG/out=VAXMANAGERS_ROOT:[DEV]FVLIM.TXT
$ OPEN IN VAXMANAGERS_ROOT:[DEV]FVLIM.TXT
$ LOOP:
$ READ/END_OF_FILE=ENDIT IN ABCD
$ GOTO LOOP
$ ENDIT:
$ close in
$ ERROR=F$EXTRACT(0,59,ABCD)
$ sh sym ERROR
$ purge/keep=1 'ERROR'

输出如下：

ERROR = "$1$DKC102:[PROD_LIVE.LOG]DP2017_TMP2.LIS;27392             "

这里的问题是 --- 每次目录长度变化时（长度可能是 59 或 40 或其他值，但在我的系统中目录和文件名长度不会超过 59 个字符）。所以在上面的输出中，系统也在获取那个文件号的版本号。所以我无法连同版本号一起清除文件。

%PURGE-E-PURGEVER, version numbers not permitted

任何建议 - 如何从输出中消除版本号？

我不能使用目录的确切长度，因为目录长度每次都不同.... :(

4

2 回答 2

2

虽然HABO解释了它，但更多的解释

假设我使用 f$search 来检查文件是否存在

a = f$search("sys$manager:net$server.log")

然后我发现我存在

wr sys$output a

节目

SYS$SYSROOT:[SYSMGR]NET$SERVER.LOG;9

在 f$parse 的帮助下，我得到了

help lex f$parse arg

节目，除其他外

`指定包含文件规范中字段名称的字符串。指定字段参数会导致 F$PARSE 函数返回文件规范的特定部分。

     Specify one of the following field names (do not abbreviate):

     NODE       Node name
     DEVICE     Device name
     DIRECTORY  Directory name
     NAME       File name
     TYPE       File type
     VERSION    File version number`

所以我可以

wr sys$output f$parse(a,,,"DEVICE")

这表明

SYS$SYSROOT:

并且

wr sys$output f$parse(a,,,"DIRECTORY")

所以我得到

[SYSMGR]

和

wr sys$output f$parse(a,,,"NAME")

节目

NET$SERVER

和

wr sys$output f$parse(a,,,"TYPE")

节目

.LOG

版本是

wr sys$output f$parse(a,,,"VERSION")

如图所示

;9

词法函数可以很方便，检查它使用

help lexical

表明

F$CONTEXT F$CSID F$CUNITS F$CVSI F$CVTIME F$CVUI F$DELTA_TIME F$DEVICE F$DIRECTORY F$EDIT F$ELEMENT F$ENVIRONMENT F$EXTRACT F$FAO F$FID_TO_NAME F$FILE_ATTRIBUTES F$GETDVI F$GETENV F$GETJPI F$GETQUI F$GETSYI F$IDENTIFIER F$INTEGER F$LENGTH F$LICENSE F$LOCATE F$MATCH_WILD F$MESSAGE F$MODE F$MULTIPATH F$PARSE F$PID F$PRIVILEGE F$PROCESS F$READLINK F$SEARCH F$SETPRV F$STRING F$SYMLINK_ATTRIBUTES F$TIME F$TRNLNM F$TYPE F$UNIQUE F$USER

于 2017-08-25T12:24:41.793 回答
2

经确认， F$ELEMENT( 0, ";", ABCD ) 的答案应该有效。我可能会编写这样的脚本：

 $ ERROR = F$PARSE(";",ERROR) ! will return $1$DKC102:[PROD_LIVE.LOG]DP2017_TMP2.LIS;
 $ ERROR = ERROR - ";"
 $ PURGE/KEEP=1 'ERROR'

不知道为什么你有读取循环。您将得到文件中的最后一行，但假设这是您想要的。

于 2017-10-05T21:53:38.203 回答