[问题求助] 【已解决】PowerShell根据选择题正确答案保留题目中唯一正确选项

$src = "ANSI.txt"
$dst = "$src.log"

$answers = 'ABCD'
$reQuestion = [regex]"^\d+.*\(\s*([$answers])\s*\)\s*$"
$stack = 0
Get-Content -Path $src | ForEach-Object {
  if ($stack -eq 0) {
    $match = $reQuestion.Match($_)
    if ($match.Success) {
      $answer = $match.Groups[1].Value
      $nextc = $answers[$answers.IndexOf($answer) + 1]
      if ($null -eq $nextc) {
        $reAnswer = "$answer.*?$"
      } else {
        $reAnswer = "$answer.*?(?=$nextc\.|$)"
      }
      $_
      $stack = 1
    }
  } elseif ($stack -eq 1) {
    if ($_ -match $reAnswer) {
      $Matches[0]
      $stack = 0
    }
  }
} | Set-Content -Path $dst
复制代码

$questions=(gc a.txt) -match "^\d"
$answers=(gc a.txt) -match "^A."
#将题目和选项分开存储，但是abcd四选项分成两行的处理不了。
for($l=0;$l -lt $questions.count;$l++){
$right=$questions[$l].split("()",[StringSplitOptions]::RemoveEmptyEntries)[-1].trim() #获取正确答案
$answer=$answers[$l].split("ABCD.",[StringSplitOptions]::RemoveEmptyEntries).trim() #四个选项分割开
$questions[$l]
$answer["ABCD".indexof($right)]
#显示题目和唯一答案
}
$null=[console]::readkey()
复制代码

$answer=$answers[$l].split(@('A.','B.','C.','D.'),[StringSplitOptions]::RemoveEmptyEntries).trim() #四个选项分割开
复制代码

$arr = gc a.txt -ReadCount 0;
$count = $arr.Count;
$out = [Collections.ArrayList]@();

for ( $i = 0; $i -lt $count; $i++ ){
    $m = [regex]::match($arr[$i], '^\d+\..*\(\s*([A-Z])\s*\)$');  #匹配开头为数字+"."，结尾为"([A-Z])"的行
    if ( $m.Success ) {
        $Queston = $arr[$i];                                      #整行赋值给变量 Queston
        $Alph    = $m.Groups[1].Value;                            #字母A-Z赋值给 Alph
    } elseIf ( Test-Path Variable:Alph ) {                        #如果变量 Alph 已定义
        $m = $arr[$i] -match $Alph + '\.(?:(?![A-Z]\.).)*';       #匹配答案
        if ( $m ) {
            $Answer = $matches[0];                                #答案赋值给 Answer
            [void]$out.Add( $Queston + "`r`n" + $Answer );        #问题和答案加入数组 out
        }
    }
}

sc b.txt -Value $out;    #输出
复制代码

   $src = "ANSI.txt"
$dst = "$src.log"

$answers = 'ABCD'					#四个选项
$reQuestion = [regex]"^\d+.*\(\s*([$answers])\s*\)\s*$"	#正则表达式，精确匹配题目行
$stack = 0					#标记，确定当前为题目行还是选项答案行
Get-Content -Path $src | ForEach-Object {		#文本每行循环
  if ($stack -eq 0) {					#题目行
    $match = $reQuestion.Match($_)			#匹配
    if ($match.Success) {				#匹配
      $answer = $match.Groups[1].Value			#找出ABCD中的答案字母
      $nextc = $answers[$answers.IndexOf($answer) + 1]	#确定正确字母后面一个字母
      if ($null -eq $nextc) {				#答案为D
        $reAnswer = "$answer.*?$"			#匹配字母D.到行尾
      } else {					#答案不为D
        $reAnswer = "$answer.*?(?=$nextc\.|$)"		#匹配正确字母到后面一个字母之间
      }
      $_
      $stack = 1					#标记，题目行结束
    }
  } elseif ($stack -eq 1) {				#选项答案行
    if ($_ -match $reAnswer) {				
      $Matches[0]					#匹配出正确选项
      $stack = 0					#标记，选项行结束
    }
  }						#再次感谢，读懂之后觉得太严谨了，代码也可以这么美
} | Set-Content -Path $dst
复制代码

$str = Get-Content 'a.txt' | Out-String
&{
    #问题和答案汇到一行
    $str -replace '\r\n(?=[ABCD])','' -split '\r\n' | foreach {
        $arr = $_ -split '[ABCD]\.'                          #每个问题和答案分成单独的数组
        $a = $arr[0].LastIndexOfAny(@('A','B','C','D'))      #找答案索引
        if($a -ne -1){
            $arr[0]                                          #输出问题
            $ans = $arr[0].Substring($a,1)                   #根据答案索引取答案
            $ans+'.'+$arr[[char]($ans)-[char]'A'+1]          #输出答案
        }
    }
} | Out-File 'b.txt'
复制代码