用ABAP操作zip文件
发布日期:2021-06-30 14:06:37
浏览次数:3
分类:技术文章
本文共 1684 字,大约阅读时间需要 5 分钟。
REPORT zbm_tst_zip.DATA: lo_zip TYPE REF TO cl_abap_zip.CREATE OBJECT lo_zip.DATA: l_file_path TYPE string.DATA: lt_xml_rawtable TYPE dcxmllines.DATA: lv_xstring TYPE xstring.DATA: lv_upload_xstring TYPE xstring.DATA: lv_upload_string TYPE string.TRY. CALL METHOD cl_salv_test_data=>select_file IMPORTING filename = l_file_path. CATCH cx_root.ENDTRY.CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = l_file_path filetype = 'BIN' CHANGING data_tab = lt_xml_rawtable EXCEPTIONS OTHERS = 1.LOOP AT lt_xml_rawtable INTO lv_xstring. CONCATENATE lv_upload_xstring lv_xstring INTO lv_upload_xstring IN BYTE MODE.ENDLOOP.DATA: lo_conv_in TYPE REF TO cl_abap_conv_in_ce.TRY. lo_conv_in = cl_abap_conv_in_ce=>create( input = lv_upload_xstring ). lo_conv_in->read( IMPORTING data = lv_upload_string ). CATCH cx_root .ENDTRY.DATA: l_filename TYPE string VALUE 'T005'.lo_zip->add( name = l_filename content = lv_upload_xstring ).DATA: l_file TYPE xstring.l_file = lo_zip->save( ).WRITE: l_file.WRITE: lv_upload_string.*DATA: lt_xml_stream TYPE etxml_xline_tabtype.DATA: lv_length TYPE i.TRY.CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = l_file IMPORTING output_length = lv_length TABLES binary_tab = lt_xml_stream.CALL METHOD cl_gui_frontend_services=>gui_download EXPORTING bin_filesize = lv_length filetype = 'BIN' filename = 'C:\Documents and Settings\I031791\Desktop\A1F 2 A1F\T002.zip' CHANGING data_tab = lt_xml_stream EXCEPTIONS OTHERS = 0.CATCH cx_root. ENDTRY.WRITE:/ 'END'.
要获取更多Jerry的原创文章,请关注公众号"汪子熙":
转载地址:https://jerry.blog.csdn.net/article/details/104033713 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
感谢大佬
[***.8.128.20]2024年05月05日 22时36分57秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
深度学习第一课——神经网络
2021-07-04
高斯混合模型
2021-07-04
(5)CMake入门笔记--CMake官网教程
2019-05-01
(6)CMake入门笔记--CMake官网教程
2019-05-01
(7)CMake入门笔记--CMake官网教程
2019-05-01
(8)CMake入门笔记--CMake语法
2019-05-01
(9)CMake入门笔记--同时生成动态库与静态库
2019-05-01
beyond compare 4 的30天试用期已过-解决方法
2019-05-01
面试海量数据问题
2019-05-01
TensorFlow图优化(一)-CSE(公共子表达式消除)
2019-05-01
TensorFlow图优化(二)-Remapper,layout
2019-05-01
TensorFlow btc allocator
2019-05-01
3D点云图实验
2019-05-01
linux设备驱动的实现与理解
2019-05-01
python遇到‘\u’开头的unicode编码
2019-05-01
RedHat Linux网络配置
2019-05-01
Linux下如何退出图形界面?
2019-05-01
关于C语言中的结构体对齐
2019-05-01
数据恢复过程中需要注意的一些问题
2019-05-01
const int *p,const * int p,int const *p
2019-05-01