這是我的data長樣:
2012/xx/xx abcdefgxxxxxxxxxxx(表示有問字敘述)
abcdefgxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
12 1234 4567
55 4321 7654
.. .... ....
.. .... ....
.. .... ....
^^^ ^^ ^^
檔案中"^"表示有空白的存在
目前已經試過下列方法:
open(unit=10, file='filename.txt')
100 format(2/,5X,I6)
200 format(I6)
read(10,100) a
write(*,200) a
程式碼中黃色的2字可以成功跳過2012/xx/xx以及文字敘述那兩列
但因為某些需求黃色文字的部分想要用一個變數取代
就像是
E=12
100 format(E/,5X,I6)
但執行結果他都要求我必須以一個constant or general expreesion
來表示我大寫E的部分
請求解...............QQ
PS:我有試過另一個方法用open(access='direct',recl=?)
問號的部分我不知道到底要用甚麼長度分才正確..........

1.write(fmtstr,*) E,'/,5X,I6' & read(10,fmtstr) a或2.迴圈跳行 do i=1,E & read(10,"(A)") linestr & end do

h大的第一種方法是說用write(字串格式,*) E,'/,5X,I6' 來拼湊出一個字串然後寫入100 format() 裡面嗎? 我一值嘗試不成功在寫出write(字串格式,*) E,'/,5X,I6' 這部分出問題.解決了~~~ 謝謝~~~~