回 帖 发 新 帖 刷新版面

主题:如何删除文本文件中的重复行??

初学fortran,有一事相求。我的文本文件中有一些重复行,我想把让这些重复行只输出一次,该如何操作啊?请大家帮帮忙。
我的数据是:
 820  -38.208827972412109       -19.916282653808594       -21.833311080932617         820  -38.208827972412109       -19.916282653808594       -21.833311080932617     
 820  -38.208827972412109       -19.916282653808594       -21.833311080932617       883  -23.923450469970703       -52.054363250732422       -53.736301422119141         1048  -18.068826675415039       -47.927806854248047       -43.957603454589844       1126  -42.303085327148438       -28.146203994750977       -16.566274642944336       1192  -41.314952850341797       -31.519393920898438       -47.647663116455078     
1201  -22.678596496582031       -37.613601684570313       -41.853523254394531     
1333  -38.131767272949219       -31.827587127685547       -55.348121643066406     
 1333  -38.131767272949219       -31.827587127685547       -55.348121643066406     
 1522  -30.504835128784180       -17.426969528198242       -23.815391540527344     
 1522  -30.504835128784180       -17.426969528198242       -23.815391540527344     
 1600  -32.088603973388672       -26.124670028686523       -49.242805480957031     
 1600  -32.088603973388672       -26.124670028686523       -49.242805480957031     
1600  -32.088603973388672       -26.124670028686523       -49.242805480957031

回复列表 (共1个回复)

沙发

最简单的办法就是把所有数据都读取到数组中. 然后建立一个逻辑类型数组通过比较认为是相同的行就标记为.false. 如果不是重复行就标记了.true.
最后再通过这个标记输出数组.

我来回复

您尚未登录,请登录后再回复。点此登录或注册