24小时热门版块排行榜    

查看: 2746  |  回复: 21

markh

银虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
用两个小时写一个奔腾程序有点大才小用, 作为学习mathematica不成气候的小弟, 用半个小时写几句话献一鲜丑,

批量导入文件:
data=Import[#,"Table"]&/@(("Poplar 1feet-C heart HYH_CP_1_0"<>#<>".xls"&/@(Range[10]/.{x_/;x<10:>"0"~~ToString[x],y_/;y>9:>ToString[y]}));

数据处理:
dataM=data/.{x_Integer,y_Real,z_Real}->z/.{x2___,0//N,y2___}->{x2};

得到最后结果
Plus@@@dataM

{873.528, 827.698, 919.821, 910.602, 917.758, 903.376, 901.633, 791.658, 672.641, 647.04}

» 本帖已获得的红花(最新10朵)

yeah, 终于升级成为淫虫。
11楼2012-05-11 05:17:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuhaoke

新虫 (初入文坛)

送鲜花一朵
引用回帖:
7楼: Originally posted by lijie169 at 2012-05-10 09:15:18:
好吧 使用matlab求解

fuction f=doallfile()
order=64;
for i=1:10
     order=order+1;
     inputfile=strcat('name',num2str(i),'.txt');//处理的是name1.txt文件
     doone(inputfile,num2str(order ...

没接触过Matlab,有点儿困难。
12楼2012-05-11 17:35:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuhaoke

新虫 (初入文坛)

liuhaoke: 回帖置顶 2012-05-11 20:53:57
问题补充如何批量提取多个文件中第三列的部分数据并求和输出?
原数据文件示例如下:
0        499.9999762513        9.5940904617
1        489.2751434373        24.5906963348
2        478.7804767553        41.1885032654
3        468.5109480770        56.9292373657
4        458.4616978220         0.0000000000
5        448.6279761522         0.0000000000   
6        439.0052317148        84.3167266846
7        429.5888334459        85.2317657471
8        420.3744361850         0.0000000000
我要找到文件中从第三列第一行数据开始到非0行结束,接着对这第三列的几行(行数未知)数据求和,并把结果命名为T1输出;
然后接着往下找,还是到非0行结束(每个文件数据0的位置不一样),接着对这次找到的几行数据(第三列)求和,把结果命名为T2输出;
……
以此类推(T的个数不定,有的文件可能到T20;没有的数据为空),直到第三列数据处理完为止。
这是每个文件的,这样的文件有几百个,希望批量处理,并把文件名加上。处理结果需要样式示例如下:
文件名    T1    T2     T3     T4     T5     T6  ……
文件1     100   70   
文件2
文件3

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 数据.rar
  • 2012-05-11 20:50:34, 68.39 K
13楼2012-05-11 20:53:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuhaoke

新虫 (初入文坛)

送鲜花一朵
引用回帖:
9楼: Originally posted by wangybcn at 2012-05-10 22:37:38:
做出来了
是使用python写的
你下载python2.6,安装,就可以运行原程序a.py
在D盘新建个目录叫excelfile,把a.py放进去,把所有的Poplar 1feet-C heart HYH_CP_1_**.xls也放进去。
双击a.py执行。就得到out.cs ...

利用你的方法处理的结果只有T1和T2,且T2好像不对。可能我没表述清楚,我又补充了一下问题,新附件最终表格样式中列出了4个文件的结果示例,麻烦你再看一下吧
14楼2012-05-11 21:00:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuhaoke

新虫 (初入文坛)

送鲜花一朵
引用回帖:
11楼: Originally posted by markh at 2012-05-11 05:17:47:
用两个小时写一个奔腾程序有点大才小用, 作为学习mathematica不成气候的小弟, 用半个小时写几句话献一鲜丑,

批量导入文件:
data=Import&/@(("Poplar 1feet-C heart HYH_CP_1_0"<>#&l ...

同7楼回复的Matlab一样,我这个新手不会Matlab、mathematica这类软件的操作,要有详解就好了!
15楼2012-05-11 21:10:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wpacer

铁虫 (正式写手)

用正则表达式实现,很简单的。
朗月茶馆董事馆长
16楼2012-07-26 09:57:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ywmseo

新虫 (初入文坛)


学习了哈
17楼2013-08-09 15:59:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

me_yu

木虫 (正式写手)

引用回帖:
9楼: Originally posted by wangybcn at 2012-05-10 22:37:38
做出来了
是使用python写的
你下载python2.6,安装,就可以运行原程序a.py
在D盘新建个目录叫excelfile,把a.py放进去,把所有的Poplar 1feet-C heart HYH_CP_1_**.xls也放进去。
双击a.py执行。就得到out.csv, ...

你代碼中好像沒能自動生成 Tn 值,借鉴了你的代码也做了一个
还有结果跟要求结果有异

附件中 脚本用 python 3.3 写

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : xx.zip
  • 2014-04-29 15:45:19, 64.05 K
听,寂静的夜里,田野里蛙声和虫鸣,好不欢快!
18楼2014-04-29 15:55:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

me_yu

木虫 (正式写手)

引用回帖:
18楼: Originally posted by me_yu at 2014-04-29 15:55:55
你代碼中好像沒能自動生成 Tn 值,借鉴了你的代码也做了一个
还有结果跟要求结果有异

附件中 脚本用 python 3.3 写...

修正

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : xx.zip
  • 2014-04-29 17:05:30, 64.02 K
听,寂静的夜里,田野里蛙声和虫鸣,好不欢快!
19楼2014-04-29 17:05:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yangxingkong

铁虫 (正式写手)

引用回帖:
9楼: Originally posted by wangybcn at 2012-05-10 22:37:38
做出来了
是使用python写的
你下载python2.6,安装,就可以运行原程序a.py
在D盘新建个目录叫excelfile,把a.py放进去,把所有的Poplar 1feet-C heart HYH_CP_1_**.xls也放进去。
双击a.py执行。就得到out.csv, ...

能简单解释一下你的脚本吗
20楼2014-05-29 09:29:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 liuhaoke 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +6 LwdutQ8HoqWP 2026-09-13 6/300 2026-09-16 15:24 by i3KBRD19ERkG
[考博] 上海工程技术大学激光智能制造课题组|2027级博士研究生招生公告 +7 水士口 2026-09-16 8/400 2026-09-16 13:47 by kkklens
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +8 两三岁ss 2026-09-14 8/400 2026-09-16 09:46 by 水士口
[硕博家园] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-16 05:27 by LH5NkK5Ud4bh
[找工作] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-16 05:15 by LH5NkK5Ud4bh
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 6F5UbRU2I5hL 2026-09-14 5/250 2026-09-16 05:11 by LH5NkK5Ud4bh
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 6F5UbRU2I5hL 2026-09-14 5/250 2026-09-16 04:51 by LH5NkK5Ud4bh
[公派出国] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 s3fFTmArrBt6 2026-09-13 6/300 2026-09-16 03:35 by DgNGHc3h5tPl
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 s3fFTmArrBt6 2026-09-13 7/350 2026-09-16 03:26 by DgNGHc3h5tPl
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 LwdutQ8HoqWP 2026-09-13 4/200 2026-09-16 03:23 by DgNGHc3h5tPl
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-16 03:02 by DgNGHc3h5tPl
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +5 3n8v2C8RimXI 2026-09-13 5/250 2026-09-16 02:50 by DgNGHc3h5tPl
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +7 QUjhNVAcOSff 2026-09-13 8/400 2026-09-16 02:23 by DgNGHc3h5tPl
[考博] 申博发邮件 +4 Lmengk 2026-09-15 4/200 2026-09-16 00:05 by 木心想继续深造
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 Aj1rhIDL5ixY 2026-09-14 3/150 2026-09-15 20:59 by zNcEhTcH7ihq
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-15 15:14 by CgyNCDVNhGVg
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 3n8v2C8RimXI 2026-09-13 5/250 2026-09-15 14:58 by CgyNCDVNhGVg
[考博] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 07:58 by C79jjtjAKjEn
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 LwdutQ8HoqWP 2026-09-13 6/300 2026-09-14 22:37 by vZfe6xYu34yj
[教师之家] 浙江师范大学是怎么坑我的 +10 recruit123 2026-09-09 15/750 2026-09-13 10:45 by seaskyy
信息提示
请填处理意见