程序将文件添加日期和时间戳复制到文件名。

2020-09-19 23:54发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


嗨朋友

我有一个要求来创建一个abap程序,该程序将文件从一个位置复制到另一位置,并将日期戳和时间戳添加到目标文件夹中的文件。 我已经开发了程序,它正在运行。 文件正在目标文件夹中复制,但没有时间戳和日期戳。 您能帮我解决一下文件名中的时间和日期戳吗?

目标位置应该是这样的-BPC_BACKUP/ARCHIVE/TEST_ 18052018_154400 .zip

请找到下面的代码段。

类型池:abap。

参数:p_file1如rlgrap文件名DEFAULT'C:\ Users \ ashutosh-sh \ Documents \ BPC_BACKUP \ TEST_ZIP \ New Microsoft Excel Worksheet.xlsx'是必填项,

p_file2,例如rlgrap文件名DEFAULT'C:\ Users \ ashutosh-sh \ Documents \ TEST1 \ BPC_BACKUP \ Archieve \ test1.xlsx'是必填项。

* CONCATENATE C:\ Users \ ashutosh-sh \ Documents \ TRONOX1 \ BPC_BACKUP \ Archieve \ test1 sy-datum sy-uzeit进入p_file2。
数据:l_ret类型abap_bool,

l_suc类型i。

数据:l_file1类型字符串,

l_file2类型字符串。

开始选择。

移动:p_file1到l_file1,

p_file2到l_file2。

调用方法cl_gui_frontend_services => file_exist

导出

文件= l_file1

接收

结果= l_ret

例外

cntl_error = 1

error_no_gui = 2

错误的参数= 3

not_supported_by_gui = 4

others = 5

if sy- subrc eq0。

调用方法cl_gui_frontend_services => file_copy

导出
source = l_file1

目标= l_file2

覆盖='X'

异常

cntl_error = 1

error_no_gui = 2

错误参数= 3
磁盘已满= 4

access_denied = 5
文件未找到= 6
> unknown_error = 8

未找到路径= 9

disk_write_protect = 10
not_ready = 11
by_gui = 12

其他= 13。

如果sy-subrc eq0。

写入:'File:',p_file1,'成功复制到:',

p_file2。

endif。

*尾号。

尾号。

谢谢

Ashutosh

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


嗨朋友

我有一个要求来创建一个abap程序,该程序将文件从一个位置复制到另一位置,并将日期戳和时间戳添加到目标文件夹中的文件。 我已经开发了程序,它正在运行。 文件正在目标文件夹中复制,但没有时间戳和日期戳。 您能帮我解决一下文件名中的时间和日期戳吗?

目标位置应该是这样的-BPC_BACKUP/ARCHIVE/TEST_ 18052018_154400 .zip

请找到下面的代码段。

类型池:abap。

参数:p_file1如rlgrap文件名DEFAULT'C:\ Users \ ashutosh-sh \ Documents \ BPC_BACKUP \ TEST_ZIP \ New Microsoft Excel Worksheet.xlsx'是必填项,

p_file2,例如rlgrap文件名DEFAULT'C:\ Users \ ashutosh-sh \ Documents \ TEST1 \ BPC_BACKUP \ Archieve \ test1.xlsx'是必填项。

* CONCATENATE C:\ Users \ ashutosh-sh \ Documents \ TRONOX1 \ BPC_BACKUP \ Archieve \ test1 sy-datum sy-uzeit进入p_file2。
数据:l_ret类型abap_bool,

l_suc类型i。

数据:l_file1类型字符串,

l_file2类型字符串。

开始选择。

移动:p_file1到l_file1,

p_file2到l_file2。

调用方法cl_gui_frontend_services => file_exist

导出

文件= l_file1

接收

结果= l_ret

例外

cntl_error = 1

error_no_gui = 2

错误的参数= 3

not_supported_by_gui = 4

others = 5

if sy- subrc eq0。

调用方法cl_gui_frontend_services => file_copy

导出
source = l_file1

目标= l_file2

覆盖='X'

异常

cntl_error = 1

error_no_gui = 2

错误参数= 3
磁盘已满= 4

access_denied = 5
文件未找到= 6
> unknown_error = 8

未找到路径= 9

disk_write_protect = 10
not_ready = 11
by_gui = 12

其他= 13。

如果sy-subrc eq0。

写入:'File:',p_file1,'成功复制到:',

p_file2。

endif。

*尾号。

尾号。

谢谢

Ashutosh

付费偷看设置
发送
2条回答
我是小鹏鹏啊
1楼-- · 2020-09-20 00:29

首先将文件路径分为文件名和文件扩展名。

在文件名中添加日期和时间,然后以文件扩展名重新连接。

致谢

Himanshu

三十六小时_GS
2楼-- · 2020-09-20 00:37

将C:\ Users \ ashutosh-sh \ Documents \ TRONOX1 \ BPC_BACKUP \ Archieve \ test1放在单引号'C:\ Users \ ashutosh-sh \ Documents \ TRONOX1 \ BPC_BACKUP \ Archieve \ test1'或先将其传递给变量。

lv_text ='C:\ Users \ ashutosh-sh \ Documents \ TRONOX1 \ BPC_BACKUP \ Archieve \ test1'。

将lv_text sy-datum sy-uzeit并入p_file2。

一周热门 更多>