【求助】有关读取有选择性的读取文件的问题，请高手帮帮忙！

lzm1980123

我有一个文件是要有选择的读取文件，比如我想将*element和以下的数据文件读出来。刚开始我用行数来读取，但是*element上面的数据每次生成的行数是不相等的，我搞不定了，请高手帮帮忙！

lzm1980123

我搞得好多天还没搞定,麻烦各位给看看，不盛感激！

freepu

按字符串读入每行，看有没有'*element'，如有就进行你所需要的读入。

iwtry

能否给出一点具体的关键程序？我也有同样的问题。谢谢先！
上回得到GBOY的程序，但是它是通过
  100 read(1,10,err=100) …………
实现的，但不能实现你所说的     “按字符串读入每行，看有没有'*element'，如有就进行你所需要的读入。 ”  的功能。还望请教！

lzm1980123

您好管理员：
      我也想那样，可我不能实现他，判断读入的字符是不是有'*element'，该用那个命令呢？是read(1,"(a8)") 读入每行吗？然后判断是不是字符*element'，可我不会判断，请管理员帮帮忙！谢谢您了！

lzm1980123

管理员您好：  
    我编了几行，不能实现功能，请你给指点指点，谢谢您了！
  
  program xue1
                implicit none
  character node*8  
  do
  open(1,file="1.txt",access='sequential',status='old')  
  read(1,"(a8)")
              if(node=="*ELEMEMT") then
  write(*,"(a8)"),node
  else
  print*,"wrong!"
  end if
  end do
    close(1)
  end program xue1

苍山负雪

2. program xue1  
3.   implicit none  
4.   character node*8   
5.   
6.   open(1,file="1.txt",access='sequential',status='old')
7.   do  
8.      read(1,"(a8)") node
9.      write(*,*) node
10.      if (node .eq. "*ELEMENT") then
11.         write(*,*) "done!"
12.         exit
13.      endif
14.   end do
15.   close(1)  
16. end program xue1
17.   

复制代码

lzm1980123

谢谢您了！加上node 就行了！太感谢您了！

lzm1980123

感谢管理员的热心帮助，在您们的帮助下，我编了一个读lsdyna的k文件的小程序，可以读*NODE,*ELEMENT_SOLID,*SET_NODE_LIST,*BOUNDARY_SPC_SET,
输入文件名是aaa.k,输出是lzm.k。因为我是用ansys作的k文件，所以只要节点，单元和边界条件就可以了！

lzm1980123

由于ansys生成的的aaa.k太大，我就没有附上来，若有兴趣，我可以发到他邮箱里去。

wu_lei

谢谢斑竹