การใช้งาน Parse JSON to Object ในภาษา ABAP แบบง่ายๆ พร้อมตัวอย่าง CODE และอธิบายการทำงาน

ในยุคดิจิทัลที่ข้อมูลถูกสร้างขึ้นมากมาย การจัดการข้อมูลในรูปแบบ JSON (JavaScript Object Notation) ได้กลายเป็นสิ่งที่สำคัญและหลีกเลี่ยงไม่ได้ โดยเฉพาะในโลกของธุรกิจที่ต้องมีการแลกเปลี่ยนข้อมูลระหว่างระบบและบริการออนไลน์ ซึ่งภาษา ABAP (Advanced Business Application Programming) ก็ไม่เป็นข้อยกเว้น ในบทความนี้เราจะมาพูดถึงการแปลงข้อมูล JSON ให้เป็น Object ในภาษา ABAP กันอย่างละเอียดเลย

JSON คืออะไร?

JSON เป็นรูปแบบการแลกเปลี่ยนข้อมูลที่ใช้กันอย่างแพร่หลาย เนื่องจากมันอ่านและเขียนได้ง่ายทั้งสำหรับมนุษย์และเครื่องจักร ข้อมูลในแบบ JSON มีลักษณะคล้ายกับการเก็บข้อมูลในรูปแบบ Key-Value pairs ซึ่งมีโครงสร้างที่ทำให้ง่ายต่อการจัดการข้อมูลในระบบต่าง ๆ

การติดตั้งและตรวจสอบ JSON Parser ใน ABAP

ก่อนที่เราจะเริ่มการเขียนโค้ดในการแปลง JSON เป็น Object ใน ABAP เราควรตรวจสอบให้แน่ใจว่าเราได้ติดตั้งส่วนประกอบที่จำเป็นเพื่อให้สามารถทำการอ่านและเขียน JSON ได้ นี่เป็นคำแนะนำสำหรับการติดตั้ง:

1. ใช้ Transaction Code SE80 เพื่อเข้าสู่ Object Navigator

2. สร้างหรือเปิดโปรแกรมที่คุณต้องการทำการ Parse JSON

3. ตรวจสอบว่ามี Class ที่ชื่อ `cl_sxml_document` หนึ่งในคลาสต่างๆ ที่เราใช้ในการอ่าน JSON

การ Parse JSON เป็น ABAP Object

ในการแปลงข้อมูลจาก JSON เป็น ABAP Object เราจำเป็นต้องใช้คลาส `cl_sxml_document` เพื่อทำการสร้าง Document ใหม่จาก JSON และปรับข้อมูลในรูปแบบ ABAP เรียบร้อยแล้ว

ตัวอย่าง CODE

ในตัวอย่างนี้เราจะทำการ Parse ข้อมูล JSON ที่เป็นข้อมูลพื้นฐานของลูกค้า ซึ่งเก็บข้อมูลในรูปแบบ JSON ว่าเป็นชื่อ ที่อยู่ และอายุ

 DATA: lv_json TYPE string,
      lo_document TYPE REF TO cl_sxml_document,
      lt_data TYPE TABLE OF your_structure,  " your_structure ควรจะถูกกำหนดไว้ก่อนแล้ว
      lv_result TYPE string.

" สมมุติว่าเรามี JSON ดังนี้
lv_json = '{"customers":[{"name":"John Doe","address":"1234 Elm St","age":30},{"name":"Jane Smith","address":"5678 Oak St","age":25}]}'.

TRY.
    " สร้าง Document ใหม่
    CREATE OBJECT lo_document.

    " โหลด JSON เข้าไปใน Document
    lo_document->load_json( iv_json = lv_json ).

    " ดึงข้อมูลมาในรูปแบบของ Table
    lv_result = lo_document->get_root( )->get_customer( ).

    " ทำการ Loop ข้อมูลและแสดงผล
    LOOP AT lv_result INTO DATA(ls_customer).
        WRITE: / 'Name: ', ls_customer-name,
                 'Address: ', ls_customer-address,
                 'Age: ', ls_customer-age.
    ENDLOOP.

CATCH cx_sxml_parse_error INTO DATA(lx_error).
    WRITE: / 'Error parsing JSON: ', lx_error->get_text( ).
ENDTRY.

อธิบายการทำงาน

1. เราเริ่มจากการกำหนด `lv_json` ซึ่งเก็บ JSON String ของลูกค้า

2. จากนั้นเราสร้าง Object ของ `cl_sxml_document` เพื่อใช้เป็น Document Parser

3. เราโหลด JSON เข้าไปใน Document ผ่าน method `load_json`

4. ใช้ `get_root` เพื่อดึงข้อมูลที่อยู่ใน JSON ออกมาในรูปแบบ ABAP

5. สุดท้ายคือการ Loop ข้อมูลที่ได้มาเพื่อนำไปแสดงผล

Use case ในโลกจริง

การใช้งานการ Parse JSON ในภาษา ABAP ไม่ได้มีไว้เพื่อแค่ใช้แปลงข้อมูลทั่วไป แต่สามารถนำไปใช้ในหลายบริบท เช่น:

สรุป

การ Parse JSON to Object ในภาษา ABAP นั้นเป็นกระบวนการที่ค่อนข้างง่ายและมีความสำคัญต่อการพัฒนาระบบในยุคดิจิทัล หากคุณเป็นคนที่สนใจด้านการพัฒนาซอฟต์แวร์และต้องการเรียนรู้เพิ่มเติมเกี่ยวกับการเขียนโปรแกรม ABAP หรือการใช้เทคโนโลยีอื่น ๆ สามารถเข้ามาศึกษาที่ EPT (Expert-Programming-Tutor) ซึ่งเป็นสถาบันการศึกษาที่เชี่ยวชาญในด้านการสอนทักษะการเขียนโปรแกรม เปิดสอนหลักสูตรหลากหลายที่ตอบโจทย์ตามความต้องการของคุณ

พร้อมที่จะก้าวเข้าสู่โลกของการเขียนโปรแกรมแล้วหรือยัง? มาเริ่มต้นการเรียนรู้ที่ EPT กันเถอะ!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง