การใช้งานไฟล์ในภาษา 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