[求助]把采集数据格式转换成文本文件

hkldd

有软件导出的数据文本(数据采集记录分类.txt)，里面有很多数据格式如下示例文档，文档中毎三行为一个数据记录，第一行是文件夹名称(条件06-05数据采集)，第二行与第三行是采集文本名称(39、25)，我需要把它们按毎三行转换成一个文本文件，如下是样本示例文件，谢谢大家！


数据采集记录分类.txt  (样本文件只给岀了4条采集记录)

条件06-05数据采集
39
25
条件06-sh10数据采集
17
11
条件06-sh11-21-数据采集
17
09
条件06-改良类-01数据采集
509
487
·
·
·

想把它转换成下面的样式；也就是毎个记录转成一个独立的文档

条件06-05数据采集.txt
del D:\条件06-05数据采集\39.txt
del D:\条件06-05数据采集\38.txt
del D:\条件06-05数据采集\37.txt
del D:\条件06-05数据采集\36.txt
del D:\条件06-05数据采集\35.txt
del D:\条件06-05数据采集\34.txt
del D:\条件06-05数据采集\33.txt
del D:\条件06-05数据采集\32.txt
del D:\条件06-05数据采集\31.txt
del D:\条件06-05数据采集\30.txt
del D:\条件06-05数据采集\29.txt
del D:\条件06-05数据采集\28.txt
del D:\条件06-05数据采集\27.txt
del D:\条件06-05数据采集\26.txt
del D:\条件06-05数据采集\25.txt

条件06-sh10数据采集.txt
del D:\条件06-sh10数据采集\17.txt
del D:\条件06-sh10数据采集\16.txt
del D:\条件06-sh10数据采集\15.txt
del D:\条件06-sh10数据采集\14.txt
del D:\条件06-sh10数据采集\13.txt
del D:\条件06-sh10数据采集\12.txt
del D:\条件06-sh10数据采集\11.txt

条件06-sh11-21-数据采集.txt
del D:\条件06-sh11-21-数据采集\17.txt
del D:\条件06-sh11-21-数据采集\16.txt
del D:\条件06-sh11-21-数据采集\15.txt
del D:\条件06-sh11-21-数据采集\14.txt
del D:\条件06-sh11-21-数据采集\13.txt
del D:\条件06-sh11-21-数据采集\12.txt
del D:\条件06-sh11-21-数据采集\11.txt
del D:\条件06-sh11-21-数据采集\10.txt
del D:\条件06-sh11-21-数据采集\09.txt

条件06-改良类-01数据采集.txt
del D:\条件06-改良类-01数据采集\509.txt
del D:\条件06-改良类-01数据采集\508.txt
del D:\条件06-改良类-01数据采集\507.txt
del D:\条件06-改良类-01数据采集\506.txt
del D:\条件06-改良类-01数据采集\505.txt
del D:\条件06-改良类-01数据采集\504.txt
del D:\条件06-改良类-01数据采集\503.txt
del D:\条件06-改良类-01数据采集\502.txt
del D:\条件06-改良类-01数据采集\501.txt
del D:\条件06-改良类-01数据采集\500.txt
del D:\条件06-改良类-01数据采集\499.txt
del D:\条件06-改良类-01数据采集\498.txt
del D:\条件06-改良类-01数据采集\497.txt
del D:\条件06-改良类-01数据采集\496.txt
del D:\条件06-改良类-01数据采集\495.txt
del D:\条件06-改良类-01数据采集\494.txt
del D:\条件06-改良类-01数据采集\493.txt
del D:\条件06-改良类-01数据采集\492.txt
del D:\条件06-改良类-01数据采集\491.txt
del D:\条件06-改良类-01数据采集\490.txt
del D:\条件06-改良类-01数据采集\489.txt
del D:\条件06-改良类-01数据采集\488.txt
del D:\条件06-改良类-01数据采集\487.txt

我现在转换是用excel下手工转，太多太麻烦还出差，想请大家看看能否用perl解决，谢谢！

pony2001mx

以下脚本希望可以。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($i, $j, $k, $l);
   
6. while (<>) {
   
7.         chomp;
   
8.         if (! $i) {
   
9.                 ($j = $_) =~ s/(.+)/$1.txt/;
   
10.                 print "\n$j\n";
    
11.                 $i = 1;
    
12.         } else {
    
13.                 $k = $_;
    
14.                 $l = <>;
    
15.                 chomp $l;
    
16.                 for (-$k..-$l) {
    
17.                         print "del D:\\$j\\", -$_, ".txt\n";
    
18.                         $i = 0;
    
19.                 }
    
20.         }
    
21. }

复制代码

songyc_2015

回复 1# hkldd

1. #!/usr/bin/env perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($line, $name, $start, $end);
   
6. while (<>)
   
7. {
   
8.         ++$line;
   
9.         chomp;
   
10.         $name = $_.".txt" if ($line % 3 == 1);
    
11.         $end = $_ if ($line % 3 == 2);
    
12.         $start = $_ if ($line % 3 == 0);
    
13. 
    
14.         if ($line % 3 == 0)
    
15.         {
    
16.                 open(FH, ">$name") or die("open file[$name]error:$!\n");
    
17.                 $name =~ s/.txt$//;
    
18.                 for (my $i=$end; $i>=$start; $i--)
    
19.                 {
    
20.                         printf(FH "del D:\\%s\\%02d.txt\n", $name, $i);
    
21.                 }
    
22.                 close FH;
    
23.         }
    
24. }

复制代码

sunzhiguolu

1. perl -nle '{if(/\A\D/){push(@{$a[++$n]},$_);next}push(@{$a[$n]},$_)}END{foreach $e (splice(@a,1)){print("del D:\\$e->[0]\\$e->[$_]\.txt") for(1..$#$e)}}' f

复制代码

del D:\条件06-05数据采集\39.txt
del D:\条件06-05数据采集\25.txt
del D:\条件06-sh10数据采集\17.txt
del D:\条件06-sh10数据采集\11.txt
del D:\条件06-sh11-21-数据采集\17.txt
del D:\条件06-sh11-21-数据采集\09.txt
del D:\条件06-改良类-01数据采集\509.txt
del D:\条件06-改良类-01数据采集\487.txt

moperyblue

1. awk '/-/{s=$0;print (!f++?"":RS) s".txt";getline;a=$1;getline;b=$1;for(i=a;i>=b;i--)print "del D:\\"s"\\"i".txt"}' file

复制代码