首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >一个ABAP程序,能够批量下载有道云笔记里包含的图片

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

作者头像
Jerry Wang
发布2020-05-06 00:02:40
3450
发布2020-05-06 00:02:40
举报

源代码:

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_table
    EXPORTING
      iv_json        = lv_content
    IMPORTING
      et_node        = lt_node
      ev_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'
      EXPORTING
        percentage = lv_index * 100 / lv_total
        text       = 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'
    IMPORTING
      ev_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.
本文参与 腾讯云自媒体分享计划,分享自作者个人站点/博客。
原始发表:2020-04-29 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档