read残缺值行数读取失败，望高手指点

longxiaozi1985

Fortran read TXT文本数据。中间某些行（不确定行数，随机出现）有残缺值。以第一行为例，需要读取的数据分别是1  2  3.0  4.0  5.01。示例中第六行和第七行是有残缺值的数据。

问题是在TXT数据读取过程中，当读到具有残缺值的行的时候，数据会自动保存为上一行数据。例如第六行有残缺值，处理之后的第六行数据会重复第五行的数据。

遇到的问题是：如何保存数据具有残缺的行的数据，并将有///或者////残缺值的数据用111或者1111替代。望高手指点。多谢！

例如：

第一行数据     1  2  10:58:58  3.0   4.0    5.01

第二行数据     1  3  10:58:59  3.2   4.5    5.07

第三行数据     1  4  10:59:00  3.1   4.6    5.88

第四行数据     1  5  10:59:01  3.7   4.8    5.59

第五行数据     1  6  10:59:02  3.5   4.2    5.75

第六行数据     1  7  10:59:03 ///   ///    ////

第七行数据     1  8  10:59:04  3.1  ///    5.66

第八行数据     1  9  10:59:05 ///   ///    5.57

第九行数据     1  10  10:59:06  3.2   4.1    5.81

冬日情愫+

用字符形式度数据，如果遇到 '/'用'1'代替

longxiaozi1985

冬日情愫+ 发表于 2014-2-12 15:38

                               
登录/注册后可看大图

用字符形式度数据，如果遇到 '/'用'1'代替

将变量换为字符型，由于残缺值的行的空格数与数据完整行不一致，采用无格式读取，此时，在读取过程中，在具有残缺值的行时，开始几个数据是正常的，当遇到////，数据全变成aaaaaaaaaa，这一行后面正常的数据也无法读取。如果下一行数据完整，那么可以正常读取。

冬日情愫+

longxiaozi1985 发表于 2014-2-12 17:06

                               
登录/注册后可看大图

将变量换为字符型，由于残缺值的行的空格数与数据完整行不一致，采用无格式读取，此时，在读取过程中，在 ...

应该不会遇到这种情况吧。真个数据都是用字符形式读，遇到 / 才会将其变成1 ，与数据行中空格没有关系吧，所以应该不会出现很多aaaa。。。这种情况吧。  假设你的数据行有60个长度，那么用 声明数据长度 character data*60 read(*,'(a)')data
然后判断这60个字符中是否有/，如果有则用 1  代替。

言深深

我试了一下，没有试出来，你的问题实际上转化为对斜杠的处理，建议阅读帖子：http://bbs.06climate.com/forum.php?mod=viewthread&tid=4585

看看能否有帮助。