fortran 要讀取的檔案顯示它不存在

檢查檔案是否存在。

您可以使用 inquire 語句。

50 inquire（file=要找到的檔案的名稱，exist=alive）。

if( then !檔案存在。

要執行的語句。

goto 50

elsegoto 50

end if

活著是合乎邏輯的，而不是整數

所以判斷語句是：if（alive） then

unit = 10 是可選的，用於區分不同的檔案。

如果您的程式需要讀取和寫入多個檔案，請選擇不同的通道號（例如 10、11、12、55）來區分它們。

該檔案放置在專案所在的目錄或 exe 所在的目錄中。 這取決於您使用的編譯器和編譯環境。 根據生成環境，單擊“執行”按鈕後，可以將其他資料夾設定為當前活動路徑。

該檔案要麼與可執行檔案位於同一目錄中，要麼位於系統路徑中，或者您需要指定它;

如果您的 FORTRAN 可執行檔案不在桌面上，則需要指定桌面檔案所在的路徑; 桌面也是系統環境變數 %userprofile% desktop 中的乙個特殊資料夾（路徑）。 Fortran由getenv函式獲取。

演示程式：程式設計 Getenv 演示

character(len=255) :userprofile_path, desktop_path, file_name

logical ::does_file_exist

file_name = ''

call getenv("userprofile", userprofile_path)

desktop_path = userprofile_path(:len_trim(userprofile_path))//'\'//'desktop'

write(*,trim(desktop_path)

file_name = desktop_path(:len_trim(desktop_path))//'\'//file_name

write(*,trim(file_name)

inquire(file=trim(file_name), exist=does_file_exist)

if (does_file_exist) then

write(*,'file exists!'

elsewrite(*,'ooops,~'

end if

end program getenv_demo

執行：C：使用者當前登入使用者名稱桌面

c:\users\current_login_user_name\desktop\

file exists!

使用 read（12，*） 讀入

在大多數情況下，讀取可以使用 *。 在極少數情況下，需要格式化。

檢查您的是否是 ANSI 編碼的？ 難道是我不小心切換到了Unicode編碼嗎？

我想問你以後是怎麼解決的，謝謝