| 查看: 1285 | 回复: 4 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
astringent铜虫 (著名写手)
|
[交流]
【求助】如何提取TXT中某列的数据存入一个数组，再对数组做处理 已有4人参与
|
||
|
我的数据存在aaa.txt文件中。对于上面的数据，第二列是步数（step），第三列是每步的可能取值。我想将这些数据读入，并保存在数组H（io，istep）中。io可以取从1到30000但是只有当io取文件中第二列对应的值时H（io，istep）=1，取其他值均为0.也就是说当step=1时，io取15733，18193，20251时H的值为1，取其他值都为0，当step=2时，io取15733，20251时H的值为1，取其他值都为0。我应该怎样实现呢，我想了好久还是没想出来。请大家帮我想想办法，先谢谢了。 1 15733 1 18193 1 20251 2 15733 2 20251 3 20824 4 15733 4 16159 4 18193 4 20251 4 20824 5 16159 5 18193 5 20251 5 20824 6 15733 6 20251 6 20824 7 15733 7 20251 7 20824 8 15733 8 16159 8 18193 8 20251 9 18193 9 20251 10 9490 10 16159 10 20251 |
回复此楼» 猜你喜欢
321求调剂
已经有10人回复
-
东华理工大学化材专业26届硕士博士申请
已经有8人回复
-
288求调剂
已经有11人回复
-
【考研调剂】化学专业 281分，一志愿四川大学，诚心求调剂
已经有5人回复
-
能源材料化学课题组招收硕士研究生8-10名
已经有12人回复
-
0703化学调剂
已经有4人回复
-
招收调剂硕士
已经有10人回复
-
271材料工程求调剂
已经有6人回复
-
材料专硕274一志愿陕西师范大学求调剂
已经有8人回复
-
一志愿武汉理工材料工程专硕调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 使用PGI编译VASP中无法使用长数组
已经有5人回复
- 怎样将for循环的结果存入数组
已经有6人回复
- 请教一个应用read时出现数组越界的问题，谢谢
已经有7人回复
- 简单数组最值求解-谢谢
已经有4人回复
- 怎么把从键盘输入的多个字符串分别赋值给字符串数组的一个个元素？
已经有6人回复
- 三维数组换行输入到文件（intel fortran 编译器）
已经有6人回复
- 关于c语言的一个小问题 坐等回复啊 急啊 是关于建立数组的
已经有9人回复
- 从txt文件读数据到二维数组
已经有4人回复
- 【求助】请问一个数组问题
已经有3人回复
- 【求助】C# 中如何声明结构体数组并赋值
已经有13人回复
- 【求助】一个求数组绝对值的小问题
已经有7人回复
- 【求助】大家帮忙看看数组存值和引用
已经有5人回复
- 【求助】module里面能够让数组从外部接受一些数据吗？【已完结】
已经有8人回复
- 【求助】ANSYS定义数组时，如何从TXT文件中导入？
已经有7人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
4楼2010-12-02 10:05:39
2楼2010-12-02 07:19:18
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+3):谢谢参与应助！ 2010-12-06 15:18:15
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+3):谢谢参与应助！ 2010-12-06 15:18:15
|
program example implicit none integer,parameter :: max_step=10,max_data=10 integer :: test(max_data,max_step)=0,H(30000)=0,counter(max_step)=0 integer :: istep,idata open(unit=8,file="aaa.txt",status="old"  1 read(8,*,end=2) istep,idata ! write(*,*) istep,idata H(idata)=1 counter(istep)=counter(istep)+1 test(counter(istep),istep)=idata goto 1 2 close(8) end program example [ Last edited by piduil on 2010-12-2 at 09:41 ] |
3楼2010-12-02 09:37:27
astringent
铜虫 (著名写手)
- 应助: 16 (小学生)
- 金币: 2210.7
- 散金: 1233
- 红花: 4
- 帖子: 1180
- 在线: 354.8小时
- 虫号: 900839
- 注册: 2009-11-12
- 专业: 理论和计算化学
5楼2010-12-03 02:57:41
