read(10, '(A, X, A)') str, data
read(data,*) your, datas

program test

   character(len=20) :: a, b
   character*1 creturn ! code::
   
   a = '100 30%'
   b = '200 31%'
   creturn = achar(13) ! generate carriage return
   
   write( * , '(a,a)' , advance='no' ) creturn , a
   write( * , '(a,a)' , advance='no' ) creturn , b
   
end program test

Originally posted by snoopyzhao at 2011-05-07 18:12:15:
第一个问题你没有说清楚，所以不知道你要干什么，至少应该给出数据，及你想要的结果……

第二个问题，可以试一下下面的代码：

[code]
program test

   character(len=20) :: a, b
   character*1 cret ...

Originally posted by shixha at 2011-05-07 22:15:47:
试了下，成功了，为什么用ascii的回车，这样就可以使指针回到屏幕行头嘛？不是很理解。


第一个问题是这样的，我想从文件中导入数据，到数组中。文件的结构如下，5列，前面两个是integer的，后面三个是rea ...