yhcfsr

#&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause&exit

#=================＝用户设置区===================
$src_file = '.\试题.txt';            #源文件
$out_file = '处理结果.txt';          #输出结果
#================================================

$text = [io.file]::ReadAllLines($src_file,[text.encoding]::Default);
[System.Collections.ArrayList] $retArr = @();
$count = $text.Count;
$line_answer = $null;
for($i = 0; $i -le $count; ++$i)
{
    if($i -eq $count){[void]$retArr.Add($line_answer);break;}

    $line = $text[$i];
    if($line -match '^\d+\..*\[(\w+)\]')
    {
        if($line_answer) {[void]$retArr.Add($line_answer);}
        $answer = $Matches[1];  
    }
    if($line -match -join($answer[0],'\..*'))
    {
        $line_answer = "答：$($answer[0])`r`n正确：$($line)"  
    }
    elseif($answer[1] -and $line -match -join($answer[1],'\..*'))
    {
        $line_answer += ' '+$line
    }

    [void]$retArr.Add($line)
}
[io.file]::WriteAllLines($out_file, $retArr,[text.encoding]::Default)
复制代码

用法：WIN10系统，设置用户文件，保存为bat执行
注意：WIN10以下系统可能无法正常执行，这不是VBS

yhcfsr

回复 5# zhangop9


    看我签名加QQ