一个ABAP程序，能够批量下载有道云笔记里包含的图片

很多朋友反映源码不全，我已经把所有源码上传到我的 github 上了。

源代码：

REPORT zactivate.PARAMETERS: purl TYPE char32 OBLIGATORY LOWER CASE,subfold TYPE string OBLIGATORY LOWER CASE.DATA: lv_content TYPE string,lt_node    TYPE zcl_jerry_tool=>tt_sorted_node,lv_number  TYPE int4,lv_size    TYPE int4,lv_total_size TYPE int8,lv_folder  TYPE string,lv_from    TYPE char32,lv_offset  TYPE int4,lv_index   TYPE int4 VALUE 1,lt_pic     TYPE string_table.
CONSTANTS: picture_name TYPE string value 'clipboard'.
CONSTANTS: folder  TYPE string VALUE 'C:\Users\i042416\Pictures\pic\',postfix TYPE string VALUE '></div><di'.INITIALIZATION.GET PARAMETER ID 'ZNOTE_ID' FIELD lv_from.IF lv_from IS NOT INITIAL.purl = lv_from.ENDIF.START-OF-SELECTION.DATA: lv_url TYPE string.lv_url = 'http://note.youdao.com/yws/public/note/' && purl && '?keyfrom=public'.SET PARAMETER ID 'ZNOTE_ID' FIELD purl.DATA(lv_post_len) = strlen( postfix ).lv_content = zcl_crm_cm_tool=>get_text_by_url( lv_url ).CALL METHOD zcl_jerry_tool=>parse_json_to_internal_tableEXPORTINGiv_json        = lv_contentIMPORTINGet_node        = lt_nodeev_node_number = lv_number.ASSERT lv_number = 1.READ TABLE lt_node ASSIGNING FIELD-SYMBOL(<title>) WITH KEY attribute = 'tl'.ASSERT sy-subrc = 0.READ TABLE lt_node ASSIGNING FIELD-SYMBOL(<node>) WITH KEY attribute = 'content'.ASSERT sy-subrc = 0.SPLIT <node>-value AT space INTO TABLE DATA(lt_result).LOOP AT lt_result ASSIGNING FIELD-SYMBOL(<entry>) WHERE table_line CS 'src='.lv_number = strlen( <entry> ) - 5. "src="DATA(url) = <entry>+5(lv_number).FIND FIRST OCCURRENCE OF `"` IN url match OFFSET lv_offset.IF sy-subrc = 0.url = url+0(lv_offset).APPEND url TO lt_pic.ENDIF.ENDLOOP.WRITE: / 'ok'.DATA(lv_total) = lines( lt_pic ).LOOP AT lt_pic ASSIGNING FIELD-SYMBOL(<pic>).lv_folder = folder && subfold && '\'.DATA(lv_name) = lv_folder && picture_name && lv_index && '.png'.DATA(lv_text) = 'Downloading file: ' && lv_name.DATA(lv_process) = lv_index * 100.DATA(lv_percent) = lv_process / lv_total.CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'EXPORTINGpercentage = lv_index * 100 / lv_totaltext       = lv_text.DATA(binary) = zcl_crm_cm_tool=>get_data_by_url( <pic> ).zcl_crm_cm_tool=>download_locally( iv_local_path = lv_name iv_binary = binary ).lv_total_size = lv_total_size + xstrlen( binary ).ADD 1 TO lv_index.ENDLOOP.WRITE: / 'totally ', lv_total, ' pictures downloaded successfully!' COLOR COL_NEGATIVE.DATA: ls_note TYPE crmd_prod_note.CALL FUNCTION 'GUID_CREATE'IMPORTINGev_guid_16 = ls_note-note_guid.ls_note-note_title = <title>-value.ls_note-pic_size = lv_total.ls_note-download_date = sy-datum.ls_note-download_time = sy-timlo.ls_note-total_size = lv_total_size / 1024.INSERT crmd_prod_note FROM ls_note.

一个ABAP程序，能够批量下载有道云笔记里包含的图片相关推荐

使用ABAP批量下载有道云笔记中的图片
Jerry喜欢用有道云笔记这款软件做自己的知识管理和知识体系的构建. 当您看到一篇好的有道云笔记分享时,可能会想将其精美的图片下载到本地.作为程序猿,我们不会去手动一张张下载.写个程序帮我们自动下载吧 ...
一个ABAP程序，能够下载指定的note到本地
关于这个程序的更详细用法,请参考Jerry的博客:Some more technical details about SAP note 源代码: *&--------------------- ...
关于有道云笔记md文档图片不显示的解决方案
关于有道云笔记md文档图片不显示的解决方案 1.存在问题将Typora写好的文章(包含图片)在有道云文档中做备份,发现图片(图床上的图片)无法加载 2.思路与解决方案将文章发表到CSDN或者掘金等 ...
小程序文件批量下载保存
小程序批量下载文件到本地用户文件夹由于小程序大小2M限制所以用到的音频图片啥的可以放到第三方平台百度网盘或小程序云储存,然后在用户首次使用时把资源下载到本地,以后启动时检查是否存在此文件不在就下载, ...
如何批量下载一些网站上的压缩包或者图片
因为项目需要,我们需要从网上下载很多图片来做为数据集测试项目,经过一些研究,实现了批量下载ImageNet上的图片的程序在这里分享一个批量下载ImageNet图片的经验,其实这个例子适用于很多你知道下 ...
有道笔记手机搜索_有道云笔记手机版下载-有道云笔记安卓版v7.0.2.2-PC6安卓网...
有道云笔记手机版,有道云笔记专为移动用户打造的终端.有道云笔记手机版为用户提供便捷的记事功能,结合云协作.云存储以及强大的同步工具,让其适用于企业用户.个人用户等各个方面的人员最新动态有道云笔记上 ...
手把手教您批量下载E宠商城多个商品图片并保存
E宠商城是全国最大的宠物电子商务在线门户,那么E宠商城上的商品图片如何一键批量下载到电脑上保存的呢?下面我们就用载图助手这款专业采集电商图片软件来给大家实例操作一下. 在电脑浏览器上搜索E宠商城,然后 ...
有道云笔记非会员MarkDown添加图片
我们知道在有道云笔记中,MarkDown要添加图片需要会员功能才可以复制粘贴,本文主要介绍了非会员使用MarkDown添加图片的方法,以及使用文本识别OCR的功能. 我自己的博客原文链接如下(PS:有 ...
PDF无法复制或图片文字时,用java开发一个小程序来解决,下载jar包直接使用
目录 1 申请百度AI账号 2 创建AipOcr客户端client对象 3 创建图片操作对象 4 创建OcrServiceApplication对象 5 打jar包方便以后使用不足之处: 最近在阅读 ...

一个ABAP程序，能够批量下载有道云笔记里包含的图片

一个ABAP程序，能够批量下载有道云笔记里包含的图片相关推荐

最新文章

热门文章