การใช้งานไฟล์ในภาษา Fortran ถือเป็นพื้นฐานที่สำคัญในการพัฒนาโปรแกรมในหลากหลายสาขาวิชาและการประยุกต์ในโลกจริง—ไม่ว่าจะเป็นการจัดการข้อมูลทางวิทยาศาสตร์, การคำนวณวิศวกรรม หรือแม้แต่การวิเคราะห์ทางการเงิน—Fortran ให้ความสำคัญอย่างยิ่งกับการจัดการไฟล์โดยมีคำสั่งและฟังก์ชันที่จำเพาะเจาะจงสำหรับงานนี้
ในบทความนี้ เราจะอธิบายการใช้งานไฟล์ในภาษา Fortran ผ่านตัวอย่างโค้ดที่ง่ายและเข้าใจได้ และยกอุปกรณ์การใช้งานในโลกจริงเพื่อให้เห็นถึงความสามารถในการประยุกต์ใช้
สมมติว่าเรามีไฟล์ข้อความ `data.txt` ที่มีข้อมูลแบบสายข้อความ (string) ทีละบรรทัด ดังนี้:
line 1
line 2
line 3
...
ตัวอย่างโค้ด Fortran ในการเปิดและอ่านข้อมูลจากไฟล์ดังกล่าว:
program read_file_example
  implicit none
  character(len=100) :: line
  integer :: unit, io_status
  ! กำหนดหมายเลขสำหรับไฟล์
  unit = 10
  ! เปิดไฟล์
  open(unit=file='data.txt', status='old', action='read', iostat=io_status)
  ! ตรวจสอบว่ามีข้อผิดพลาดในการเปิดไฟล์หรือไม่
  if (io_status /= 0) then
    print *, 'Error opening file!'
    stop
  end if
  ! อ่านข้อมูลจนถึงสิ้นสุดไฟล์
  do
    read(unit, *, iostat=io_status) line
    if (io_status /= 0) exit
    ! แสดงข้อมูลที่อ่านได้
    print *, line
  end do
  ! ปิดไฟล์
  close(unit)
end program read_file_example
สมมติว่าเราต้องการเขียนข้อมูลที่เก็บอยู่ในอะเรย์ลงในไฟล์ `output.txt`.
program write_file_example
  implicit none
  integer, dimension(5) :: data = [1, 2, 3, 4, 5]
  integer :: unit, i
  ! กำหนดหมายเลขสำหรับไฟล์
  unit = 11
  ! เปิดไฟล์เพื่อเขียนข้อมูลลงไป
  open(unit=file='output.txt', status='replace', action='write')
  ! เขียนข้อมูลจากอะเรย์ลงในไฟล์
  do i = 1, size(data)
    write(unit, *) data(i)
  end do
  ! ปิดไฟล์
  close(unit)
end program write_file_example
การแก้ไขไฟล์ต้องทำอย่างระมัดระวังเพราะเราอาจจะเขียนทับข้อมูลที่สำคัญได้.
หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง
Tag ที่น่าสนใจ: fortran file_usage read_file write_file edit_file file_handling programming_language code_examples real-world_use_case file_management
หากมีข้อผิดพลาด/ต้องการพูดคุยเพิ่มเติมเกี่ยวกับบทความนี้ กรุณาแจ้งที่ http://m.me/Expert.Programming.Tutor
085-350-7540 (DTAC) 
    084-88-00-255 (AIS) 
    026-111-618 
    หรือทาง EMAIL:  NTPRINTF@GMAIL.COM
 
    
 
            Copyright (c) 2013 expert-programming-tutor.com. All rights reserved. | 085-350-7540 | 084-88-00-255 | ntprintf@gmail.com
 
		
	