Fortran 字符串轉整型，實數轉字符串

最簡單的方法是用內部文件，即用字符變量作爲文件。

下面程序段讀取系統時間，存入字符變量now，再將now的時分秒轉換爲整數值讀出。

program TimeNow
   character*8 :: now
   integer     :: hh,mm,ss

   call time (now)     ! 讀系統時間
   write(*,*) now      ! 寫出時間字符串

   ! 用字符變量now作爲內部文件，從中將時、分、秒作爲整數讀出
   read(now,"(I2,1x,I2,1x,I2)") hh,mm,ss      ! 字符轉換爲
   write(*,*) hh,mm,ss          ! 寫出時、分、秒的整數值

   stop
end program TimeNow

以此類推，將整型轉換字符串爲

      write(now,"(2I1,1H:,2I1,1H:,2I1)") 0,1,3,5,0,5

其中，2I1表示0,1兩個整數，1H:表示字符串":"。

屏幕輸出例：

 

將實數轉換爲字符串如下！

character(len=8) :: string
write(string,'(f7.4)') 54.34
write(*,*) string