went

$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'
复制代码