很多朋友反映源碼不全，我已經把所有源碼上傳到我的 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程序，能够批量下载有道云笔记里包含的图片的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。