求教个问题，对编程的人可能是小问题，对我就是大难题

dolphinmaz

拿到一个数据文件，是用fortran生成的，大概格式如下：
descriptive text
..... (说明文字）

主要数据是：
E0000508601584  0006.5  0000.3  0025.0  0000.7  0214.2  6244.0
0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00
0.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04
E0000719801632  0020.0  0002.5  0400.0  0029.5  0216.6  6356.9
1.018E-01 5.360E-03 8.282E-02 6.156E-02 7.273E+00 2.993E-06 0.000E+00 0.000E+00
0.000E+00 2.171E-06 5.886E-05 4.484E-06 1.215E-05 0.000E+00 0.000E+00 1.450E-01
E0000719801633  0020.0  0002.5  0400.0  0029.5  0216.6  6356.9
1.018E-01 5.360E-03 8.282E-02 6.156E-02 7.273E+00 2.993E-06 0.000E+00 0.000E+00
0.000E+00 2.171E-06 5.886E-05 4.484E-06 1.215E-05 0.000E+00 0.000E+00 1.450E-01
E0000720100151  0015.0  0000.2  0150.0  0000.3  0216.5  6360.0
2.762E-04 1.452E-05 4.007E-04 1.090E-06 6.922E-04 0.000E+00 0.000E+00 8.351E-06
0.000E+00 0.000E+00 3.002E-05 2.983E-07 0.000E+00 0.000E+00 0.000E+00 7.625E-04
E0000820101627  0053.0  0001.4  0129.0  0028.6  0217.3  6359.9
3.343E-01 1.759E-02 1.204E-01 4.000E-02 6.205E-01 2.361E-05 0.000E+00 0.000E+00
0.000E+00 1.713E-05 4.644E-04 3.538E-05 9.588E-05 0.000E+00 0.000E+00 2.108E-01

E开头的代表一个点的参数。现在我需要在E开头的这行下方的这16个数后再加一个数，是每个E下方的都要加，大概有几万个E点，怎么做？DOS下有希望弄吗，还是说一定要FORTRAN才可以？能给具体步骤吗？因为本人是IT小白，先谢了

gzrain

估计论坛很多人能做到，简单的csv处理而已，用script甚至excel应该也可以

你的数据源是文本（csv）？
要加的数的值是否变量？

kakei14

这么多E，具体哪16个数，你能只列出一行数据吗？

fiona_breadtree

第一，你的格式是csv还是普通的文本？
第二，是16个数相加之后得到结果再添加一行，还是说就是为了添加一个新行，里面是数字？

这个自己写个小程序也挺快的，比如python之类。

passos

楼主数据格式好乱 看不清

拿perl或python搞搞

dolphinmaz

gzrain 发表于 2015-5-29 18:45
估计论坛很多人能做到，简单的csv处理而已，用script甚至excel应该也可以

你的数据源是文本（csv）？

文件是政府部门给的，可以用文本notepad读，但后缀是.in的（是个模型的特定文件）

E0000508601584  0006.5  0000.3  0025.0  0000.7  0214.2  6244.0（这行，不需要改动，是点的参数）

0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00
0.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04（需要在这些数后加个0.000E+00， 以下每次遇到这16个数，就要加个0.000E+00) 我自己的理解是用循环，以这行为开始，每隔3行，加个数，可是我不懂得编程。。。。

不知道是否可行，谢谢

dolphinmaz

kakei14 发表于 2015-5-29 19:11
这么多E，具体哪16个数，你能只列出一行数据吗？

是每出现E的这行后，下面那2行（一共16个数，后再加个0。000E+00),请看第6楼，谢谢

dolphinmaz

passos 发表于 2015-5-29 22:46
楼主数据格式好乱 看不清

拿perl或python搞搞

不好意思，请看第6楼，多谢了

dolphinmaz

fiona_breadtree 发表于 2015-5-29 20:30
第一，你的格式是csv还是普通的文本？
第二，是16个数相加之后得到结果再添加一行，还是说就是为了添加一个 ...

能具体说说吗？数据是存成.in的后缀，我能用记事本打开。是一个模型的输入文件。现在我需要加个参数：在这个16个数据后，再加个0.000E+00,变成17个数

参数设置的需要，原始文件是政府给的，已经问过了，但那个参数他们没有考虑，可是我的项目需要考虑，变成只能自己加，可是这个不是我的专业，好头痛啊

上班ing

有些文本编辑软件，是可以录制、重复用户操作的。
不需要编程。
比如 Notepad++
楼主可以试试

dolphinmaz

上班ing 发表于 2015-5-29 23:07
有些文本编辑软件，是可以录制、重复用户操作的。
不需要编程。
比如 Notepad++

这个能指定从哪行开始，每隔几行写一个吗？

ericlgq

dolphinmaz 发表于 2015-5-29 23:09
这个能指定从哪行开始，每隔几行写一个吗？

只要能全部用键盘操作，我觉得应该就可以。
免费软件，下载一个来试试。

gzrain

你文件有多大？如果没有sensitive information，可以email给我帮你处理

商务车

要求：0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+000.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04（需要在这些数后加个0.000E+00， 以下每次遇到这16个数，就要加个0.000E+00)

notepad 或者word打开这个文件，ctrl+H替换
搜索内容： 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+000.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04
替换为： 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+000.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04 0.000E+00

商务车

lz你的描述太不清楚了，弄得所有人都在猜你到底想干嘛，一会什么“e的下方”，一会什么下面“每次遇到这16个数”，如果真像你描述的。。。好像都不是你本来的意思，弄得大家都在猜。

商务车

如果按照你说的“每次遇到这16个数””，那么我14楼的搜索替换就能解决你的问题，但是我非常怀疑这不是你真实 的目的。

我怀疑这个你所谓的“每次遇到这16个数”，并不是相同的每次都能遇到，就是说16个数是不同的，对吗？

fiona_breadtree

商务车 发表于 2015-5-29 23:34
要求：0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+000.000E+00 0.000 ...

我推测是每16个数都要加上一个参数，不是特指这一组。。
我的想法跟楼上的gzrain一样。。。不是敏感信息的话，拿来看看。

当然了，如果你有很多文件，都需要处理的话，可能有个小程序就更方便了。

商务车

fiona_breadtree 发表于 2015-5-29 23:41
我推测是每16个数都要加上一个参数，不是特指这一组。。
我的想法跟楼上的gzrain一样。。。不是敏感信息 ...

每次16个数组不同也可以用查找替换解决，用word就可以。


算了，太晚了，不猜了，lz自己弄吧。

陈叁

既然都是文本文件，就很简单的，用EXCEL都可以搞定的。

先按照空格划分COLUMN，然后三行合并为一行，每行以E那个字段开头，然后在每行末尾添加一个COLUMN，就是楼主要加的数字，然后再拆为三行。

mzbac

读完所有行 然后遍历 发现E开头的行index+2 后面加你要加的..

gzrain

an OO approach with ruby,
usage : process.rb <data_source_file>

============= source code ===========

1. #! /usr/bin/ruby
   
2. ## Usage :
   
3. ## process_data.rb <source_file> <target_file>
   
4. ## note: if target file empty, will use 'new_<source_file>' as target file
   
5. 
   
6. class Processor
   
7.   def initialize(src, tar)
   
8.     @source = src
   
9.     @target = tar || "new_#{src}"
   
10.   end
    
11. 
    
12.   def call
    
13.     puts "Processing #{@source} to #{@target}."
    
14.     raise 'File not found' unless source_file
    
15.     process_source_file
    
16.   ensure
    
17.     source_file.close
    
18.     target_file.close
    
19.   end
    
20. 
    
21.   protected
    
22. 
    
23.   def process_source_file
    
24.     source_file.each_line do |line|
    
25.       process_line(line)
    
26.     end
    
27.     process_last_block
    
28.   end
    
29. 
    
30.   def process_line(line)
    
31.     init_block(line)
    
32.     @block << line
    
33.   end
    
34. 
    
35.   def init_block(line)
    
36.     if new_block?(line)
    
37.       process_last_block if write_block?
    
38.       @block = []
    
39.     else
    
40.       @block ||= []
    
41.     end
    
42.   end
    
43. 
    
44.   def new_block?(line)
    
45.     !!line.match(/^E\d+/)
    
46.   end
    
47.   
    
48.   def write_block?
    
49.     @block && @block.length > 1
    
50.   end
    
51. 
    
52.   def process_last_block
    
53.     add_new_item
    
54.     write_file
    
55.   end
    
56.   
    
57.   def add_new_item
    
58.     @block.last.strip! << delimiter << new_item << "\n"
    
59.   end
    
60. 
    
61.   def delimiter
    
62.     ' '
    
63.   end
    
64. 
    
65.   def new_item
    
66.     '0.000E+00'
    
67.   end
    
68. 
    
69.   def write_file
    
70.     @block.each do |line|
    
71.       target_file.write(line)
    
72.     end
    
73.   end
    
74. 
    
75.   def target_file
    
76.     @target_file ||= File.open(@target, 'w')
    
77.   end
    
78. 
    
79.   def source_file
    
80.     @source_file ||= File.open(@source, 'r')
    
81.   end
    
82. 
    
83. end
    
84. 
    
85. Processor.new(ARGV[0], ARGV[1]).call
    

复制代码

============= source code ===========


==Input file: ===

1. E0000508601584  0006.5  0000.3  0025.0  0000.7  0214.2  6244.0
   
2. 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00
   
3. 0.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04
   
4. E0000719801632  0020.0  0002.5  0400.0  0029.5  0216.6  6356.9
   
5. 1.018E-01 5.360E-03 8.282E-02 6.156E-02 7.273E+00 2.993E-06 0.000E+00 0.000E+00
   
6. 0.000E+00 2.171E-06 5.886E-05 4.484E-06 1.215E-05 0.000E+00 0.000E+00 1.450E-01
   
7. E0000719801633  0020.0  0002.5  0400.0  0029.5  0216.6  6356.9
   
8. 1.018E-01 5.360E-03 8.282E-02 6.156E-02 7.273E+00 2.993E-06 0.000E+00 0.000E+00
   
9. 0.000E+00 2.171E-06 5.886E-05 4.484E-06 1.215E-05 0.000E+00 0.000E+00 1.450E-01
   
10. E0000720100151  0015.0  0000.2  0150.0  0000.3  0216.5  6360.0
    
11. 2.762E-04 1.452E-05 4.007E-04 1.090E-06 6.922E-04 0.000E+00 0.000E+00 8.351E-06
    
12. 0.000E+00 0.000E+00 3.002E-05 2.983E-07 0.000E+00 0.000E+00 0.000E+00 7.625E-04
    
13. E0000820101627  0053.0  0001.4  0129.0  0028.6  0217.3  6359.9
    
14. 3.343E-01 1.759E-02 1.204E-01 4.000E-02 6.205E-01 2.361E-05 0.000E+00 0.000E+00
    
15. 0.000E+00 1.713E-05 4.644E-04 3.538E-05 9.588E-05 0.000E+00 0.000E+00 2.108E-01

复制代码

==output file: ==

1. E0000508601584  0006.5  0000.3  0025.0  0000.7  0214.2  6244.0
   
2. 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00 0.000E+00
   
3. 0.000E+00 0.000E+00 1.139E-03 1.757E-05 3.795E-05 2.239E-05 1.468E-06 1.417E-04 0.000E+00
   
4. E0000719801632  0020.0  0002.5  0400.0  0029.5  0216.6  6356.9
   
5. 1.018E-01 5.360E-03 8.282E-02 6.156E-02 7.273E+00 2.993E-06 0.000E+00 0.000E+00
   
6. 0.000E+00 2.171E-06 5.886E-05 4.484E-06 1.215E-05 0.000E+00 0.000E+00 1.450E-01 0.000E+00
   
7. E0000719801633  0020.0  0002.5  0400.0  0029.5  0216.6  6356.9
   
8. 1.018E-01 5.360E-03 8.282E-02 6.156E-02 7.273E+00 2.993E-06 0.000E+00 0.000E+00
   
9. 0.000E+00 2.171E-06 5.886E-05 4.484E-06 1.215E-05 0.000E+00 0.000E+00 1.450E-01 0.000E+00
   
10. E0000720100151  0015.0  0000.2  0150.0  0000.3  0216.5  6360.0
    
11. 2.762E-04 1.452E-05 4.007E-04 1.090E-06 6.922E-04 0.000E+00 0.000E+00 8.351E-06
    
12. 0.000E+00 0.000E+00 3.002E-05 2.983E-07 0.000E+00 0.000E+00 0.000E+00 7.625E-04 0.000E+00
    
13. E0000820101627  0053.0  0001.4  0129.0  0028.6  0217.3  6359.9
    
14. 3.343E-01 1.759E-02 1.204E-01 4.000E-02 6.205E-01 2.361E-05 0.000E+00 0.000E+00
    
15. 0.000E+00 1.713E-05 4.644E-04 3.538E-05 9.588E-05 0.000E+00 0.000E+00 2.108E-01 0.000E+00

复制代码

dack

word用宏

iami_THE

循环，拆字， casting, ++--,return出来

dolphinmaz

不好意思来晚了，先谢谢各位了。 我的文件有3个，加起来一共有300多mb，用email估计很难传送。 对于大家没有看懂，可能是我自己没有表达清楚。这些数据不是对于每个点都一样的，（每个点有自己相对应的16个数）所以不是简单的查找替换可以解决的

dolphinmaz

gzrain 发表于 2015-5-30 00:30
an OO approach with ruby,
usage : process.rb

这些代码是只能在python下运行吗？

gamalot

dolphinmaz 发表于 2015-5-30 15:51
这些代码是只能在python下运行吗？

他用的不是python，是另外一种语言ruby

他的思路很简单，就是用RE找到E后面跟一串数字的地方，在前面插入你要添加的第17个数字

kakei14

要求：每隔一行会有一组16个数字，需要在16个数字那行后增加一个数字。

我觉得也不用编程语言，只用excel应该可以（稍微麻烦点复制拷贝工作量比较大）。

大概思路是：

所有数字以空格分隔的话，直接在excel中导入文本数据文件，以空格分隔。（注意单元格格式选择文本）

另开一个sheet，在一列中输入 0.000E+00，空一行，再输入0.000E+00，如此拷贝复制数万行（但始终只有一列）。

然后把做好的这一整列数据拷贝复制到前面倒入文本数据文件生成的sheet的第17列。

再保存或者导出成空格分隔的文本文件就可以了。

gamalot

kakei14 发表于 2015-5-30 17:43
要求：每隔一行会有一组16个数字，需要在16个数字那行后增加一个数字。

我觉得也不用编程语言，只用excel ...

感觉应该是用UltraEdit的Regular Express查找替换最简单

dolphinmaz

gamalot 发表于 2015-5-30 17:31
他用的不是python，是另外一种语言ruby  

他的思路很简单，就是用RE找到E后面跟一串数字的 ...

我想知道具体怎么做，需要装这个RUBY吗？还是说可以存成类似.DAT的小程序，然后执行一下就可以了？谢谢

dolphinmaz

gamalot 发表于 2015-5-30 18:08
感觉应该是用UltraEdit的Regular Express查找替换最简单

下了个NOTEPAD++,然后用了录制功能+替代，可是点回放，可以准确添加这个第17个数，但如果用循环运行，还是会出错。。。。