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 ...

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


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

Originally posted by snoopyzhao at 2011-05-07 22:27:38:
既然小数点位数可能不一样，如何格式化读取呢？如果你的数据不是按特定格式的话，就不可能格式化读取。

通常采用的办法就是用字符串和内部文件结合在一起处理，这样可能比较快一些……

其实 read(10,*)  ...

Originally posted by shixha at 2011-05-08 00:25:14:
我是用格式化和read（10，*）交替读取的，感觉太冗长了，因为周期性出现字符串的，非常感谢！！！

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

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


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

Originally posted by holmescn at 2011-05-08 08:51:16:
我想是不是可以这样

CODE:

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