關於字符串和数字的转换問題

max533

小弟我在編寫這個程式時，遇到關於一個bug，但小弟一直在，但卻百思不得其解。
有哪位大大可以幫助小弟，告訴小弟錯在哪，並如何修正嗎?!

這是用intel fortran遇到的問題：錯誤        1         error #6514: A substring must be of type CHARACTER.   [ZHD_MM]        39
        
下面是小弟的程式碼和一些測試檔案。

[Fortran] 纯文本查看 复制代码

program ZWD_gamit
implicit none

  integer :: stat,stat2,stat3,stat4,yr,dayofyear,hr
  character :: filename_ztd*12,filename_zhd*12,filename_zwd*12,first*1
  real :: time_all_ztd,time_all_zhd,ztd_m,zhd_mm,ztd_mm,zwd_mm

  open(11,file="list.txt")
  close(11,status="delete")
  open(22,file="list2.txt")
  close(22,status="delete")
  call system('for %f in (*_all.ztd) do echo %f >> list.txt')
  call system('for %f in (*_all.zhd) do echo %f >> list2.txt')
  open (11,file="list.txt")
  open (22,file="list2.txt")

  stat=0
  stat2=0
  do while (stat==0 .and. stat2==0)
    read (11,"(a12)",iostat=stat) filename_ztd
    read (22,"(a12)",iostat=stat2) filename_zhd
    if (stat/=0 .and. stat2/=0) exit
    open (33,file=filename_ztd)
    open (44,file=filename_zhd)
    filename_zwd=filename_ztd(1:8)//".zwd"
    open (55,file=filename_zwd)
    
    stat3=0
    do while (stat3==0)
      read (33,50,iostat=stat3) time_all_ztd,ztd_m,yr,dayofyear,hr
50    format (f12.7,4x,f6.1,3x,i4,3x,i3.3,3x,i2.2)
      if (stat3/=0) exit
      stat4=0
      do while (stat4==0)
        read (44,100,iostat=stat4) time_all_zhd,zhd_mm
100     format (f12.7,4x,f6.1)
        if (stat4/=0) exit          
        if (time_all_ztd==time_all_zhd) then
          read (zhd_mm(1:1),"(a1)") first
          if( first/="*") then
            ztd_mm = ztd_m*1000D0
            zwd_mm = ztd_mm - zhd_mm
            write (55,150) time_all_ztd,zwd_mm,yr,dayofyear,hr
150         format (f12.7,3x,f12.7,3x,i4,3x,i3.3,3x,i2.2)
          end if 
        end if
      end do
      rewind(44)
    end do
    close(33)
    close(44) 
    close(55)
  end do    
  close(11)
  close(22)
end program

楚香饭

确定一下 zhd_mm 应该是 real 类型，还是 character 类型？

你定义为 real 类型

但 read (zhd_mm(1:1),"(a1)") first 这种写法要求它是 character 类型

max533

是的，因為 zhd_mm的值，有些是有數值，有些沒有數值，有數值會以浮點數呈現，沒有數值會以*******呈現
所以我才會想說用read (zhd_mm(1:1),"(a1)") first 把 zhd_mm的第一個字元用first的來代替
可以用來判斷是否為有數值，若沒有數值就可以不必寫入55。

楚香饭

如果没有数值，是 **** 的话，那么 stat4 就不会是 0，就会 exit 了。

max533

楚香饭 发表于 2014-10-16 12:17
如果没有数值，是 **** 的话，那么 stat4 就不会是 0，就会 exit 了。

所以說我必須寫個程式把*****替代成別的符號，然後這個迴圈才能繼續下去嗎?!
還是說還有其他可行的方法也可達到我想要的目的呢?!

楚香饭

[Fortran] 纯文本查看 复制代码

character( len = 30 ) c_zhd_mm !// c_zhd_mm 定义为字符型
do while (stat4==0)
  read (44,*,iostat=stat4) time_all_zhd,c_zhd_mm !// 通常 * 就足够 read 了
  if (stat4/=0) exit         
  if (time_all_ztd==time_all_zhd) then
    !read (zhd_mm(1:1),"(a1)") first !//这句去掉
    if( c_zhd_mm(1:1) /= "*") then
      read( c_zhd_mm , * ) zhd_mm !// 如果有数值，再从 c_zhd_mm 中读取 zhd_mm
      ztd_mm = ztd_m*1000D0
      zwd_mm = ztd_mm - zhd_mm

max533

楚香饭 发表于 2014-10-16 17:56
[mw_shl_code=fortran,true]character( len = 30 ) c_zhd_mm !// c_zhd_mm 定义为字符型
do while (stat4== ...

所以說read他可以轉換變數類型，從character轉換成real(浮點數)，但卻沒辦法從real轉換成character，是這個意思嗎?

楚香饭

从 real 转换成 character 用 write 既可

write( character , * ) real

max533

楚香饭 发表于 2014-10-17 08:12
从 real 转换成 character 用 write 既可

write( character , * ) real

从 real 转换成 character 用 write 既可
write( character , * ) real

這個write是把character 轉換成 real 嗎?
可是我的問題是說，能不能使用read指令在程式中途，把資料由real類型轉換成character類型?
所以答案是不行的嗎!?
我不是很清楚這個解釋，能否再講詳細一點呢!?感謝您

楚香饭

read 只能把 character 转换为 real（或 integer 或 complex）
write 只能把 real（或 integer 或 complex）转换成 character

你要做什么转换，就用什么语句。不要强求 read 非要倒过来转换。

喝水用杯子，钉钉子用榔头，你非要问能不能用榔头来喝水，那只能说不行。