请教有关整型、字符型组合的不规则数组的读法

qxjy123

要读个txt文件，里面有整型变量，也有字符型变量，而且行列还不是规则的。
我试着定义成字符型数组，但里面的字符“/”、“=”却读不出来。悲剧了。。。。
难道由于他们是运算字符？
另外还由于有的行是6列，有的是7列，不规则数组。所以读的时候总报错。
怎么解决呢？

txt如下：

19999 69911 999// 333XX 9999 =
19999 999// 333XX 9999 =  
19999 69901 999// 333XX 9999 20235 =
19999 69901 999// 333XX 9999 =
19999 60191 999// 333XX 9999 20251 =
19999 69971 999// 333XX 9999 20244 =
19999 60401 999// 333XX 9999 =
19999 60021 999// 333XX 9999 =
19999 60391 999// 333XX 9999 20242 =
19999 999// 333XX 9999 20240 =
19999 60071 999// 333XX 9999 20230 =
19999 60141 999// 333XX 9999 20230 =
19999 69901 999// 333XX 9999 =
19999 60091 999// 333XX 9999 =

zira127

应该可以读出来的：

program a

implicit none
character (len=100) :: cha(14)
integer             :: i

open (10,file='a.txt',form='formatted')
  do i=1,14
    read(10,'(a)') cha(i)
    print*,cha(i)
  enddo
close(10)

end program a

执行后：
$ a.out
19999 69911 999// 333XX 9999 =                                                
                     
19999 999// 333XX 9999 =                                                      
                     
19999 69901 999// 333XX 9999 20235 =                                          
  。。。。。

言深深

可以按照楼上的做法read出来，但是比较郁闷的是仍然没有办法对这些数据进行处理，不知道楼主希望如何处理哪些数据，对于缺少的数据希望做如何处理。这些必要信息确定之后再考虑read吧。

qxjy123

感谢zira127  跟 深深  回复
确实能读出来了。编辑的话还不能。
我是想弄成二维字符数组。一个字符一个字符的读。
这样的话也好编辑。就是想把“/”"=""X"都弄成0

但是我在zira127的基础上修改成二维数组时。却显示读错误。
哪位大大能否在帮忙一下呢。

program a

implicit none
character (len=700) :: cha(14,47)
integer             :: i,j

open (10,file='a.txt',form='formatted')
  do i=1,14
    read(10,'(a)') (cha(i,j),j=1,47)
              if (cha(i,j).eq."/") then
      cha(i,j)=0         
        endif
        if (cha(i,j).eq."=") then
      cha(i,j)=0  
              endif
        if (cha(i,j).eq."X") then
        cha(i,j)=0                  
        endif
print*,cha(i,j)

  enddo
close(10)

end program a

qxjy123

zira127 发表于 2013-8-4 00:44

                               
登录/注册后可看大图

应该可以读出来的：

program a

感谢回复。可以在帮忙看看写成字符二维数组么？就是一个字符的读。以便修改

qxjy123

言深深 发表于 2013-8-4 08:25

                               
登录/注册后可看大图

可以按照楼上的做法read出来，但是比较郁闷的是仍然没有办法对这些数据进行处理，不知道楼主希望如何处理哪 ...

我是想弄成二维字符数组。一个字符一个字符的读。
这样的话也好编辑。就是想把“/”"=""X"都弄成0

言深深

qxjy123 发表于 2013-8-4 16:20

                               
登录/注册后可看大图

我是想弄成二维字符数组。一个字符一个字符的读。
这样的话也好编辑。就是想把“/”"=""X"都弄成0

可以的，论坛有一个帖子关于不同列的读法···自己搜索一下就ok了···