การใช้งาน String Last Index Of ในภาษา COBOL

การทำงานกับข้อมูลประเภท String เป็นเรื่องธรรมดาในหลาย ๆ ภาษาโปรแกรมมิ่ง แต่ก็สามารถทำได้ใน COBOL ซึ่งเป็นหนึ่งในภาษาที่เก่าแก่ที่สุดในโลกของการเขียนโปรแกรม แม้ว่ายุคปัจจุบันความนิยมของ COBOL อาจลดน้อยลง แต่โค้ดที่เขียนใน COBOL ยังมีการใช้งานกันในระบบต่าง ๆ อย่างแพร่หลาย โดยเฉพาะในองค์กรขนาดใหญ่และระบบที่มีความสำคัญสูง เช่น ธนาคารหรือบริษัทประกันภัย

ในบทความนี้เราจะมาพูดถึงการใช้งานฟังก์ชัน String Last Index Of ใน COBOL ซึ่งสามารถช่วยให้เราได้รับข้อมูลเกี่ยวกับตำแหน่งของการเกิดขึ้นครั้งสุดท้ายของตัวอักษรหรือคำใน String

การทำงานของ Last Index Of ใน COBOL

COBOL ไม่มีฟังก์ชันที่ชื่อว่า `LAST_INDEX_OF` เหมือนกับในภาษาโปรแกรมอื่น ซึ่งแปลว่าผู้ใช้งานอาจต้องใช้วิธีการที่แตกต่างออกไปในการหาตำแหน่งของตัวอักษรหรือคำที่ต้องการ ในการหา Last Index ให้เราทำการวนลูปไปตาม String จนกว่าจะเจอค่าที่เราต้องการ ดังนี้:

1. สร้างตัวแปรที่เก็บน้ำหนักของโครงสร้าง String

2. วนลูปเพื่อค้นหาตำแหน่งของตัวอักษรใน String

3. ถ้าพบตำแหน่งให้เก็บค่าและทำการค้นหาต่อไปจนกว่าจะถึงจุดจบของ String

ตัวอย่าง CODE

ต่อไปนี้คือรูปแบบของโค้ดใน COBOL สำหรับการหา Last Index ของตัวอักษร 'a' ใน String:

        IDENTIFICATION DIVISION.
       PROGRAM-ID. LastIndexOfExample.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  InputString    PIC X(100) VALUE 'This is an example string with a few letters a in it'.
       01  SearchChar     PIC X VALUE 'a'.
       01  LastIndex      PIC 9(3) VALUE 0.
       01  StringLength   PIC 9(3) VALUE 0.
       01  Index          PIC 9(3) VALUE 0.

       PROCEDURE DIVISION.
           COMPUTE StringLength = FUNCTION LENGTH(InputString)

           PERFORM VARYING Index FROM 1 BY 1 UNTIL Index > StringLength
               IF InputString(Index:1) = SearchChar
                   MOVE Index TO LastIndex
               END-IF
           END-PERFORM

           DISPLAY 'Last index of "' SearchChar '" in the string is: ' LastIndex
           STOP RUN.

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

เมื่อทำการคำนวณความยาวของ String เรียบร้อยแล้ว เราจะทำการวนลูปจากตัวอักษรแรกไปยังตัวอักษรสุดท้าย เมื่อพบว่าตัวอักษรที่เราให้ค้นหาตรงกัน ก็จะเก็บค่า Index นั้นไว้ใน LastIndex และสุดท้ายจะแสดงผลลัพธ์ออกมา

ตัวอย่าง Use Case ในโลกจริง

ลองนึกถึงกรณีในธุรกิจธนาคารที่มีระบบจัดการข้อมูลลูกค้า เช่น ระบบจะต้องแสดงรายชื่อของลูกค้าที่มีชื่อผู้ใช้หรือรหัสลูกค้าที่ประกอบด้วยตัวอักษรเฉพาะ ตัวอย่างเช่น ถ้าหนึ่งในรหัสสมาชิกเป็น ‘AB123A456’ ธนาคารอาจต้องการค้นหาตัวอักษร ‘A’ เพื่อทำการวิเคราะห์ข้อมูลลูกค้า โดยการใช้ Last Index สามารถช่วยให้เราสามารถหาตำแหน่งสุดท้ายของ ‘A’ ในรหัสสมาชิกนั้นได้อย่างง่ายดาย

นอกจากนี้ในการทำโปรเจ็คหรือการจัดการฐานข้อมูล เราอาจพบว่าเราต้องการแสดงข้อมูลที่มีตัวอักษรหรือคำที่ต้องการแบบเฉพาะเจาะจง จึงทำให้การใช้ Last Index กลายเป็นเครื่องมือที่มีประโยชน์อย่างมากในโปรแกรม COBOL

สรุป

การใช้งานฟังก์ชัน Last Index Of ใน COBOL ถึงแม้จะแตกต่างจากภาษาโปรแกรมอื่น ๆ แต่ด้วยเทคนิคที่กล่าวมา เราสามารถทำการค้นหาตำแหน่งของอักขระในข้อความได้อย่างมีประสิทธิภาพ หากคุณสนใจเรียนรู้เพิ่มเติมเกี่ยวกับภาษา COBOL และการเขียนโปรแกรมในรูปแบบต่าง ๆ สามารถเข้ามาศึกษาที่ EPT (Expert-Programming-Tutor) ซึ่งเรามีหลักสูตรการเรียนการสอนที่สามารถตอบโจทย์ความต้องการของผู้เรียนในทุกระดับ ตั้งแต่มือใหม่จนถึงระดับที่มีความชำนาญสูง!

เรียนรู้ COBOL อย่างไร? นั่นคือการเปิดประตูสู่โลกใหม่ ๆ ที่โค้ดของคุณสามารถทำงานได้ไม่มีที่สิ้นสุด!

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