[問題] 如何讀取以空白分隔的字串？
試過用這樣的程式讀取，
program strings
character*40 a(5)
open(1,file="t.txt",status='old')
read (1,'(5a)') (a(i),i=1,5)
do i=1,5
write (*,*) a(i)
end do
end
結果是 a(1) 就把五個字串讀光光，
剩下的 a(2) 到 a(5) 都讀到空字串。
難道真的要一個一個字元讀，再自己整理出字串來嗎？
應該有簡單一點的方法吧？
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.80.241
→
03/09 20:21, , 1F
03/09 20:21, 1F
→
03/09 22:41, , 2F
03/09 22:41, 2F
→
03/10 00:28, , 3F
03/10 00:28, 3F
→
03/10 00:29, , 4F
03/10 00:29, 4F
→
03/10 00:46, , 5F
03/10 00:46, 5F
→
03/10 11:13, , 6F
03/10 11:13, 6F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
