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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Windows编程 » 请大神帮编个提取目标数据的小程序,感激不尽啊，急用啊！
北京石油化工学院2026年研究生招生接收调剂公告
112/2返回列表上一页12
查看: 1395  |  回复: 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
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料与化工专硕306分找合适调剂 +9 沧海轻舟e 2026-04-06 9/450 2026-04-07 08:52 by 晴空210210
[考研] 285求调剂 +8 AZMK 2026-04-05 13/650 2026-04-07 08:14 by xihu1109
[考研] 297分083200求助 +9 aekx 2026-04-05 9/450 2026-04-06 20:57 by flysky1234
[考研] 22408 331分求调剂 +4 y__1 2026-04-06 4/200 2026-04-06 17:26 by 土木硕士招生
[考研] 求调剂 +10 chenxrlkx 2026-04-05 10/500 2026-04-06 11:31 by 猪会飞
[考研] 301求调剂 +6 细胞相关蛋白 2026-04-02 10/500 2026-04-06 08:34 by jp9609
[考研] 材料与化工371求调剂 +14 陪琳看海 2026-04-04 15/750 2026-04-06 06:59 by houyaoxu
[考研] 材料调剂 +13 一样YWY 2026-04-03 14/700 2026-04-05 18:20 by 蓝云思雨
[考研] 08专硕275调剂 +5 AaAa7420 2026-04-05 5/250 2026-04-05 18:01 by jkddd
[考研] 323分（计算机视觉和大模型项目）能直接上手 +3 chaoxiicy 2026-04-01 3/150 2026-04-05 00:50 by chongya
[考研] 材料专硕322分 +11 哈哈哈吼吼吼哈 2026-04-02 11/550 2026-04-04 23:37 by 永字号
[考研] 材料调剂 +11 一样YWY 2026-04-02 13/650 2026-04-04 23:10 by 无际的草原
[考研] 一志愿0817化学工程与技术，求调剂 +24 我不是只因 2026-04-02 28/1400 2026-04-04 15:15 by dongzh2009
[考研] 0710生物学336分求调剂 +6 kiyy 2026-04-01 8/400 2026-04-04 10:10 by kiyy
[考研] 考研调剂 +3 Draa 2026-04-03 3/150 2026-04-03 17:37 by hgwz7468
[考研] 求调剂不挑专业 +3 xrh030412 2026-04-01 3/150 2026-04-03 14:40 by 氮气气气
[考研] 求调剂22408 288分 +5 new382 2026-04-02 5/250 2026-04-03 09:13 by 醉在风里
[考研] 272求调剂，接受跨专业调剂！ +4 闲鱼卢 2026-03-31 4/200 2026-04-02 11:18 by guyan1000
[考研] 复试调剂 +7 双马尾痞老板2 2026-03-31 7/350 2026-03-31 19:49 by Dyhoer
[考研] 考研调剂求助 +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
信息提示
关闭
请填处理意见
关闭