批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖
  1. $str = Get-Content 'a.txt' | Out-String
  2. &{
  3.     #问题和答案汇到一行
  4.     $str -replace '\r\n(?=[ABCD])','' -split '\r\n' | foreach {
  5.         $arr = $_ -split '[ABCD]\.'                          #每个问题和答案分成单独的数组
  6.         $a = $arr[0].LastIndexOfAny(@('A','B','C','D'))      #找答案索引
  7.         if($a -ne -1){
  8.             $arr[0]                                          #输出问题
  9.             $ans = $arr[0].Substring($a,1)                   #根据答案索引取答案
  10.             $ans+'.'+$arr[[char]($ans)-[char]'A'+1]          #输出答案
  11.         }
  12.     }
  13. } | Out-File 'b.txt'
复制代码
2

评分人数

TOP

返回列表