[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. $a=New-Object Collections.Specialized.OrderedDictionary
  2. $h='/abc'
  3. if($s -match "(?s)(?<=$h\s+).+?(?=\s+#)"){$c=$matches[0]}
  4. $c -split '\n'|%{
  5.     if($_ -match '^(\S+)\s+:((\D+)(\d+))\s*;;\S*\s*([^\r\n]+)'){
  6.         $d=$matches
  7.         if($s -match "(?s)(?<=\r\n#$($d[2]) m ;;.*?\r\n).+?(?=\s*#bub Bub\d+ m ;;|\s*$)"){
  8.             $a[$d[1]]+=,@($d[3],$d[5],$matches[0],$d[4])
  9.         }else{$a[$d[1]]+=,@($d[3],$d[5],'我是新建的',$d[4])}
  10.     }
  11. }
  12. $a.Keys|%{
  13.     $e=$_
  14.     $a.$e|sort{[int]$_[3]}|%{
  15.         $j++
  16.         $f+=@("{0} :{1}{2} ;;{3} {4}" -f $e,$_[0],++$i,$j,$_[1])
  17.         $g+=@("#bub Bub$i m ;;$e`t$($_[1])`r`n$($_[2])")
  18.     }
  19.     $j=0
  20. }
  21. "$h`r`n$($f -join "`r`n")`r`n`r`n$($g -join "`r`n`r`n")"
复制代码

TOP

  1. $a=@{}
  2. $h='/abc'
  3. if($s -match "(?s)(?<=$h\s+).+?(?=\s+#)"){$c=$matches[0]}
  4. $c -split '\n'|%{
  5.     if($_ -match '^(\S+)\s+:((\D+)(\d+))\s*;;\S*\s*([^\r\n]+)'){
  6.         $d=$matches
  7.         if($s -match "(?s)(?<=\r\n#$($d[2]) m ;;.*?\r\n).+?(?=\s*#bub Bub\d+ m ;;|\s*$)"){
  8.             $a[$d[1]]+=,@($d[3],$d[5],$matches[0],$d[4])
  9.         }else{$a[$d[1]]+=,@($d[3],$d[5],'我是新建的',$d[4])}
  10.     }
  11. }
  12. $a.Keys|sort|%{
  13.     $e=$_
  14.     $a.$e|sort{[int]$_[3]}|%{
  15.         $j++
  16.         $f+=@("{0} :{1}{2} ;;{3} {4}" -f $e,$_[0],++$i,$j,$_[1])
  17.         $g+=@("#bub Bub$i m ;;$e`t$j $($_[1])`r`n$($_[2])")
  18.     }
  19.     $j=0
  20. }
  21. "$h`r`n$($f -join "`r`n")`r`n`r`n$($g -join "`r`n`r`n")"
复制代码
回复 5# meixi

TOP

回复 7# meixi


    2,3行改一下
  1. if($s -match "(?s)(?<=^(?<h>/.*)\s+).+?(?=\s+#)"){$c=$matches[0];$h=$matches.h}
复制代码
C#数组是什么不会呀

TOP

  1. $a=@{}
  2. if($s -match "(?s)(?<=^(?<h>/.*)\s+).+?(?=\s+#)"){$c=$matches[0];$h=$matches.h}
  3. $c -split '\n'|%{
  4.     if($_ -match '^(\S+)\s+:((\D+)(\d+))\s*;;\S*\s*([^\r\n]+)'){
  5.         $d=$matches
  6.         if($s -match "(?s)(?<=\r\n#$($d[2]) m ;;.*?\r\n).+?(?=\s*#bub Bub\d+ m ;;|\s*$)"){
  7.             $a[$d[1]]+=,@($d[3],$d[5],$matches[0],$d[4])
  8.         }else{$a[$d[1]]+=,@($d[3],$d[5],'我是新建的',$d[4])}
  9.     }
  10. }
  11. $f = New-Object System.Collections.ArrayList
  12. $g = New-Object System.Collections.ArrayList
  13. $null=$a.Keys|sort|%{
  14.     $e=$_
  15.     $a.$e|sort{[int]$_[3]}|%{
  16.         $j++
  17.         $f.add(("{0} :{1}{2} ;;{3} {4}" -f $e,$_[0],++$i,$j,$_[1]))
  18.         $g.add("#bub Bub$i m ;;$e`t$j $($_[1])`r`n$($_[2])")
  19.     }
  20.     $j=0
  21. }
  22. "$h`r`n$($f -join "`r`n")`r`n`r`n$($g -join "`r`n`r`n")"
复制代码
1

评分人数

    • meixi: 乐于助人技术 + 1

TOP

返回列表