如何复制和添加前缀到文件名？

如何解决如何复制和添加前缀到文件名？

我是 4GL 的新手。我使用以下查询，但不确定如何在复制到新目录之前为文件名添加前缀。它是文件中的单行查询，可以使用进度编译器进行编译。

注意 - 原始文件应与重命名、复制后相同。

define variable lvc_filename as character no-undo.
define variable lvc_newpath as character no-undo.

assign
    lvc_filename = '/mgeditmp/ast/wbxp.i'
    lvc_newpath  = '/mgeditmp/wbxp.i'
    .
unix silent value("cp -f " + lvc_filename + ' ' + lvc_newpath).

解决方法

您可以使用 num-entries、entry 语句和 entry 函数：

def var iparts as int  no-undo.
def var cold   as char no-undo initial '/dir/file'.
def var cnew   as char no-undo.

iparts = num-entries( cold,'/' ).
if iparts > 0 then
   assign 
      cnew = cold
      entry( iparts,cnew,'/' ) = 'prefix' + entry( iparts,'/' )
      .

,

看看 OS-COPY 命令。如果您在同一文件夹中，还有一个 OS-RENAME 命令。