24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

canny

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 170
帖子: 13
在线: 5.3小时
虫号: 1212088
注册: 2011-02-24

[求助] 请大侠们帮帮忙

Printing Grid -- 1 Values -- Undef = -1e+34
279.5335

Printing Grid -- 1 Values -- Undef = -1e+34
284.0481

Printing Grid -- 1 Values -- Undef = -1e+34
283.8166

Printing Grid -- 1 Values -- Undef = -1e+34
281.3546

Printing Grid -- 1 Values -- Undef = -1e+34
287.3319

Printing Grid -- 1 Values -- Undef = -1e+34
286.8791

Printing Grid -- 1 Values -- Undef = -1e+34
286.9857

Printing Grid -- 1 Values -- Undef = -1e+34
284.7398

Printing Grid -- 1 Values -- Undef = -1e+34
286.6243

Printing Grid -- 1 Values -- Undef = -1e+34
283.8115

Printing Grid -- 1 Values -- Undef = -1e+34
289.2303
...
怎么编写一个程序生成txt文本只要原始数据里面的数字，且每一行一个数字，类似于
279.5335
284.0481
......

回复此楼

» 猜你喜欢

博士读完未来一定会好吗已经有27人回复
投稿精细化工已经有4人回复
高职单位投计算机相关的北核或SCI四区期刊推荐，求支招！已经有4人回复
导师想让我从独立一作变成了共一第一已经有9人回复
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有11人回复
读博已经有4人回复
JMPT 期刊投稿流程已经有4人回复
心脉受损已经有5人回复
Springer期刊投稿求助已经有4人回复
小论文投稿已经有3人回复

» 本主题相关价值贴推荐，对您同样有帮助:

请问这个提示什么意思？已经有3人回复
微生物大侠们帮帮忙啊! 做对细菌的抑菌性，需要哪些安全措施已经有12人回复
求助‘留学回国人员科研启动基金’标书已经有4人回复
请问中小型私企怎么做科研？已经有48人回复
CASTEP几何优化计算中断，大侠们帮帮忙啊！已经有5人回复
[求助] 急求，做过bayer-villiger氧化的大侠请来帮帮忙已经有9人回复
有关于羧酸+DCC+NHS反应制备酰胺，请大侠们进来帮帮忙！已经有7人回复
【求助】DSC曲线分析求解！已经有6人回复
大侠们帮我看看 editor invited 是啥意思啊已经有17人回复
【求助】有没有在加拿大联培的前辈呀，请教，非常着急已经有7人回复
【请教】氧化铁六角片的有哪些性能应用？已经有5人回复
【求助】大侠们帮帮忙已经有6人回复
【求助】要做个关于先进陶瓷材料的新进展及成果(限2009-2010)的PPT，请大家帮帮忙，给已经有3人回复
【求助】关于用pdc氧化向大侠们请教！已经有26人回复
【求助】请教：ansys里这种轴向相向位移怎么加载？已经有6人回复
【求助】学过SYBYL6.9的大侠们帮帮忙已经有4人回复

1楼2012-02-19 19:38:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

感谢参与，应助指数 +1

大概这个样子就可以了，当然，细节还需要自己修改，我这里没有环境可以测试，所以错误在所难免：

CODE:

program test

character(len=256) :: line

real :: data

do

   read(*,'(a)') line

   if (index('Printing Grid',line)  /= 0) then

      read(*,*) data

      write(*,*) data

   end if

end do

end program test