[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. $a=@{}
  2. foreach($l in ($f=gc 1.txt)){
  3.     if($l -match '\d+'){
  4.         $m=$matches[0]
  5.         if([int]$m -gt $i){[int]$i=$m}
  6.         $a[[int]$m]=1
  7.     }elseif($l -match '^@'){
  8.         1..$i|%{if(!$a[$_]){$i=$_;break}}
  9.     }
  10. }
  11. $f -join "`r`n" -replace '(?s)(?<=^[^@]+?)\s+(?=@)',"`r`n我是要加的文本$i`r`n`r`n"
复制代码

TOP

回复 5# meixi
  1. $a=@{}
  2. foreach($l in ($f=gc 1.txt)){
  3.     if($l -match '\d+'){
  4.         $m=$matches[0]
  5.         if([int]$m -gt $i){[int]$i=$m}
  6.         $a[[int]$m]=1
  7.     }elseif($l -match '^@'){
  8.         1..$i|%{if(!$a[$_]){$i=$_;break}}
  9.         if($a.count -eq $i){$i++}
  10.         break
  11.     }
  12. }
  13. $f -join "`r`n" -replace '(?s)(?<=^[^@]+?)\s+(?=@)',"`r`n我是要加的文本$i`r`n`r`n"
复制代码
1

评分人数

    • meixi: 感谢分享技术 + 1

TOP

返回列表