使用ABAP代码下载有道云笔记的内容-白红宇的个人博客

发布日期：2021-06-30 14:06:11 浏览次数：3 分类：技术文章

本文共 2251 字，大约阅读时间需要 7 分钟。

REPORT zactivate.PARAMETERS: purl TYPE char32 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_from    TYPE char32,      lv_index   TYPE int4 VALUE 1,      lt_pic     TYPE string_table.CONSTANTS: folder  TYPE string VALUE 'C:\Users\i042416\Pictures\pic\clipboard',           postfix TYPE string VALUE '>
   
    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(
    ) WITH KEY attribute = 'tl'.  ASSERT sy-subrc = 0.  READ TABLE lt_node ASSIGNING FIELD-SYMBOL(
    
     ) WITH KEY attribute = 'content'.  ASSERT sy-subrc = 0.  SPLIT 
     
      -value AT space INTO TABLE DATA(lt_result).  LOOP AT lt_result ASSIGNING FIELD-SYMBOL(
      
       ) WHERE table_line CS 'src='.    lv_number = strlen( 
       
         ) - 6.    DATA(url) = 
        
         +5(lv_number). REPLACE ALL OCCURRENCES OF `"` IN url WITH space. CONDENSE url. DATA(lv_url_len) = strlen( url ) - lv_post_len. url = url+0(lv_url_len). APPEND url TO lt_pic. ENDLOOP. WRITE: / 'ok'. DATA(lv_total) = lines( lt_pic ). LOOP AT lt_pic ASSIGNING FIELD-SYMBOL(
         
          ). DATA(lv_name) = folder && lv_index && '.png'. DATA(lv_text) = 'Downloading file: ' && lv_name. 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( 
          
            ). 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 = 
           -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.  INSERT crmd_prod_note FROM ls_note.

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/103979678 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！

上一篇：使用cl_crm_queryaui_run_btil触发SAP CRM One Order搜索

下一篇：显示ABAP Netweaver上登录的所有用户信息

发表评论

关于作者

喝酒易醉，品茶养心，人生如梦，品茶悟道，何以解忧？唯有杜康！

-- 愿君每日到此一游！

发表评论

最新留言

关于作者

推荐文章