Board logo

标题: [已解决]50人民币求助txt文本进行分类 [打印本页]
作者: 309597483@qq.co    时间: 2019-5-23 07:41     标题: [已解决]50人民币求助txt文本进行分类

本帖最后由 309597483@qq.co 于 2019-5-23 08:40 编辑

具体报酬：50元人民币
支付方式：支付宝，微信转账
联系方式：QQ 309597483
有效期限：2019年5月25日之前
需求描述：
作者: 309597483@qq.co    时间: 2019-5-23 07:42

[张三]
语文=85
数学=90
英语=22
化学=65
[李四]
语文=82
数学=75
英语=68
化学=88
[小明]
语文=70
数学=58
英语=96
化学=100
[小李]
语文=58
数学=77
英语=63
化学=64

---------这个是一个【成绩表.txt】文本，数据很多，暂举出4个例子
求助怎么进行批量分类，并输出对应的txt文本


------------------输出结果 1---------------------
[张三]
语文=85
[李四]
语文=82
[小明]
语文=70
[小李]
语文=58
--------输出保存为【语文.txt】

------------------输出结果 2---------------------
[张三]
数学=90
[李四]
数学=75
[小明]
数学=58
[小李]
数学=77
--------输出保存为【数学.txt】

------------------输出结果 3---------------------
[张三]
英语=22
[李四]
英语=68
[小明]
英语=96
[小李]
英语=63
--------输出保存为【英语.txt】

------------------输出结果 4---------------------
[张三]
化学=65
[李四]
化学=88
[小明]
化学=100
[小李]
化学=64
--------输出保存为【化学.txt】
作者: zaqmlp    时间: 2019-5-23 08:15

  1. @echo off

  2. set info=互助互利,支付宝扫码头像,感谢赞助

  3. rem 有问题,可加QQ956535081及时沟通

  4. title %info%

  5. cd /d "%~dp0"

  6. set "file=成绩表.txt"

  7. for /f "skip=1 delims=" %%a in ('type "%file%"') do (

  8.     set "line1=%%a"

  9.     setlocal enabledelayedexpansion

  10.     if "!line1:~,1!" equ "[" goto end

  11.     endlocal

  12.     for /f "tokens=1* delims==" %%b in ("%%a") do (

  13.         echo;%%b

  14.         (for /f "delims=" %%e in ('type "%file%"') do (

  15.             set "line2=%%e"

  16.             setlocal enabledelayedexpansion

  17.             if "!line2:~,1!" equ "[" echo;%%e

  18.             for /f "tokens=1* delims==" %%g in ("!line2!") do (

  19.                 if "%%b" equ "%%g" echo;!line2!

  20.             )

  21.             endlocal

  22.         ))>"%%b.txt"

  23.     )

  24. )

  25. :end

  26. echo;%info%

  27. pause
复制代码
作者: 523066680    时间: 2019-5-23 12:06

早上处理的，题主实际资料要多一些，改动不大。
  1. use Encode;

  2. use File::Slurp;

  3. my @text = read_file("src.txt");

  4. 

  5. my %main;

  6. my $ref;

  7. my @order;

  8. my %item;

  9. for my $e ( @text )

  10. {

  11.     $e=~s/\r?\n$//;

  12.     if ( $e =~/^\[/ ) {

  13.         $main{$e} = {};

  14.         push @order, $e;

  15.         $ref = $main{$e};

  16.     } else {

  17.         if ($e =~ /^(.*)=/) {  # 可能有空白项

  18.             $item{$1} = 1;

  19.             $ref->{$1} = $e;

  20.         }

  21.     }

  22. }

  23. 

  24. # 按 item 处理

  25. for my $type ( keys %item ) {

  26.     my $fname = $type .".txt";

  27.     my $buff = "";

  28.     for my $name ( @order )

  29.     {

  30.         next unless (exists $main{$name}->{$type});

  31.         $buff .= $name ."\r\n". $main{$name}->{$type} ."\r\n";

  32.     }

  33.     write_file( $fname, {binmode=>":raw"}, $buff );

  34. }
复制代码
-------------------------------
已支持论坛 10 元 （支付宝）
流水号 20190523200040011100480062006406
作者: Batcher    时间: 2019-5-23 12:20

回复 4# 523066680


    确认收到。感谢你对论坛的支持！捐助分已添加。
作者: amwfjhh    时间: 2019-5-23 13:01

本帖最后由 amwfjhh 于 2019-5-23 13:45 编辑
zaqmlp 发表于 2019-5-23 08:15



    Great!!!
作者: ivor    时间: 2019-5-23 13:52

本帖最后由 ivor 于 2019-5-23 19:33 编辑 
  1. [regex]::Matches((Get-Content .\成绩表.txt -Raw -Encoding UTF8),'\[[\s\S]+?(?=\[|$)') | %{

  2.     $name = [regex]::Matches($_,"\[.*\]")

  3.     $score = [regex]::Matches($_,".*=.*")

  4.     foreach($s in $score){

  5.         $fileName = [regex]::Matches($s,".+(?==)")

  6.         Write-Output $name.Value >> $fileName".txt"

  7.         Write-Output $s.Value >>$fileName".txt"

  8.     }

  9. 

  10. }
复制代码
感谢amwfjhh:指正，已修复“最后一个人的数据”的问题



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2