应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Windows编程 » 请大神帮编个提取目标数据的小程序,感激不尽啊，急用啊！
112/2返回列表上一页12
查看: 1472  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

7152075

铁杆木虫 (著名写手)

解决问题的方法比遇到的问题多

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
lisu555: 金币+20, ★★★★★最佳答案, 好，谢谢，我试一试，太感谢了!好人啊!! 2016-12-26 00:24:17
引用回帖:
9楼: Originally posted by lisu555 at 2016-12-25 19:58:13
什么语言都可以，只要在win下 或linux下能运行就行。...

program Obtain_data
    implicit none
    integer i,j,k,ii,ierr
    integer,allocatable::num( : ) !//序号
    real*8,allocatable::voltage( : ) !//电压
    character( len=64 ) str,file_name

    open( 11,file='wenjian.txt' )
    open( 12,file='result.txt' )
    !******读取文件总共有多少行********
    i=0
    read( 11,* )
    do
        read( 11,*,iostat=ierr ) str
        if( ierr/=0 ) exit
        i=i+1
    end do
    allocate( num( i ) )
    allocate( voltage ( i ) )
    rewind( 11 )
    !********将序号和电压存储在数组中********
    read( 11,* )
    do j=1,i
        read( 11," ( a64 )" ) str
        read( str,* ) num( j ),voltage( j )
    end do
    !********找连续序号并提取出第一个和最后一个电压值********
    ii=1 !//记录连续序号有多少个
    do k=1,i
        if( ( k+1 )/=i ) then !//序号不是最后一个
            if( num( k+1 )==num( k )+1 ) then
                ii=ii+1
            else
                write( 12,"( 2 ( f8.4,2x ) )" ) voltage( k+1-ii ),voltage( k )
                ii=1
            end if
        else !//序号是最后一个的情况
            if( num( k+1 )==num( k )+1 ) then
                write( 12,"( 2( f8.4,2x ) )" ) voltage( k+1-ii ),voltage( k+1 )
                exit
            else
                write( 12,"( 2 ( f8.4,2x ) )" ) voltage( k+1-ii ),voltage( k )
                exit
            end if
        end if
    end do

    deallocate( num )
    deallocate( voltage )
    close( 11 )
    close( 12 )
    write( *,* ) 'OK'
    read( *,* )
    end program Obtain_data
这个程序是用Fortran书写的。输入文件叫wenjian.txt，输出文件叫result.txt，不知道你给的格式是什么样的，所以按照你给你自己做的，如有需要请自行修改其形式，包括输入文件样式等等。我自己做的输入文件上传了，不知道做的对不对。亲测在windows和Linux系统下编译都好使。
输入文件为
记录序号        电压/V
244        3.9803
245        3.9602
246        3.9438
2131        3.9648
2132        3.9447
2133        3.9388
4026        3.9590
4027        3.9388
4028        3.9335
5913        3.9565
5914        3.9363
5915        3.9298
7798        3.9537
7799        3.9335
7800        3.9261
9690        3.9534
9691        3.9329
9692        3.9199
11573        3.9534
11574        3.9332
11575        3.9137
13462        3.9524
13463        3.9323
13464        3.9121
13465        3.9081
15350        3.9506
15351        3.9298
15352        3.9097
15353        3.9013
17241        3.9484
17242        3.9283
17243        3.9081
然后你改成wenjian.txt。PS：小木虫今天传东西一直是error。
赞一下 回复此楼
Chemistry
11楼2016-12-25 22:47:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lisu555 的主题更新
112/2返回列表上一页12
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 x0mp7owy2b 2026-05-15 4/200 2026-05-16 17:45 by j6b2pdz07o
[基金申请] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 v9tggjlwd0 2026-05-15 3/150 2026-05-16 17:37 by j6b2pdz07o
[论文投稿] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 v9tggjlwd0 2026-05-15 3/150 2026-05-16 17:30 by j6b2pdz07o
[考博] 光量子物理方向 博士招生 1人（2026.09） +3 sandyworld 2026-05-15 3/150 2026-05-16 17:11 by zznnnj
[公派出国] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 l7k6xnh0yc 2026-05-14 5/250 2026-05-16 16:35 by x28q7dxf75
[有机交流] 如何实现卤原子转化 10+3 BT20230424 2026-05-15 5/250 2026-05-16 16:20 by czyzsu
[考研] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 6/300 2026-05-16 11:29 by h3oerqvkv9
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
[文学芳草园] 裁员滚滚，退居二线 +4 J_wei 2026-05-10 4/200 2026-05-16 10:52 by zh10246
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 5/250 2026-05-16 04:29 by k37jurhrau
[找工作] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 l7k6xnh0yc 2026-05-14 3/150 2026-05-16 01:49 by k37jurhrau
[考博] 西南大学考核制博士 +4 lijunjie84 2026-05-11 7/350 2026-05-15 23:20 by 同仁堂教主
[论文投稿] 有带发论文的吗 +4 山楂之术 2026-05-09 4/200 2026-05-15 15:40 by 妹子不好惹
[基金申请] 精华III:  评审感受-评审感受-评审感受 +14 ferrarichen 2026-05-11 18/900 2026-05-15 11:12 by cmhchen
[基金申请] 重磅！青年科学基金项目（C类）资助增幅预计超过50% +5 水和泥不是水泥 2026-05-13 7/350 2026-05-14 20:57 by 水和泥不是水泥
[高分子] 本人最近太闲了，谁有问题可以提，每天会统一回复 +8 一切都是空工 2026-05-12 19/950 2026-05-14 20:03 by 一切都是空工
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
[基金申请] 请问大佬b0816评完了吗 +3 市民华南虎 2026-05-12 7/350 2026-05-14 07:41 by 市民华南虎
[论文投稿] 求助大佬sci投稿哪个好中 +3 江沅188 2026-05-12 4/200 2026-05-13 14:35 by 江沅188
[考博] 现在不知道怎么办，感觉很痛苦 +4 qweww 2026-05-11 5/250 2026-05-11 20:23 by Oversize
信息提示
关闭
请填处理意见
关闭