新人求助，在不同文件中查找对应编号的坐标
求教一个问题，我现在有一系列的数据，就是第一列是编号，第二，第三，第四是x，y，z的坐标信息，想要把它读取出来。然后又有一个数据文本，只知道编号，想把他的x，y，z坐标读取出来。OPEN (10,FILE='E:\finde node\out_node.DAT',STATUS='OLD')
call nodeinformation(i)
close(10)
OPEN (20,FILE='E:\finde node\in_node.DAT',STATUS='OLD')
call nodeinformation(i)
close(20)
nodeinformaition(i)
OPEN (5,FILE='E:\finde node\node.DAT',STATUS='OLD')
read(5,*)
n=n/4 ！
do i=1,n
read(5,*)node(i),x(i),y(i),z(i)
!!write(*,*)node(i),x(i),y(i),z(i)
end do
close(5)
你的表述很乱。
1.你的编号，XYZ文件是哪个？对应代码中的什么文件名？对应截图中的哪个？
2.又一个文件？是什么格式？对应代码中的什么？对应截图中的哪个？
3.你想要的输出是什么？ fcode 发表于 2017-2-27 13:31
你的表述很乱。
1.你的编号，XYZ文件是哪个？对应代码中的什么文件名？对应截图中的哪个？
第一张图的第一列的1代表的编号，第二列代表的x，第三列是y，第四列是z。文件名是csv格式。第二张图是第二个文件，格式也是csv格式，里面是只有编号，我想的是根据第二个文件里的编号从第一个的数据库的坐标信息中，找出对应的数据库！！这次不知道您听懂了没？？
本帖最后由 li913 于 2017-2-28 09:44 编辑
!假设第一个文件有M行，第二个有N个数据
integer,parameter::::m=10,n=3
real(4) a(3,m)
integer(4) b(n)
open(10,file='1.csv',status='old')
read(10,*) a
close(10)
open(20,file='2.csv',status='old')
read(20,*) b
close(20)
open(30,file='out.txt')
do i=1,n
write(30,*) a(:,b(i))
close(30)
end program li913 发表于 2017-2-27 17:37
!假设第一个文件有M行，第二个有N个数据
integer,parameter::::m=10,n=3
real(4 ...
我不知道你的第二次打开1.csv是为什么 ？？即第九行 .. hyy 发表于 2017-2-28 08:48
我不知道你的第二次打开1.csv是为什么 ？？即第九行 ..
写错，改过来了。
页:
[1]