- #&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 | 
发表于 2020-11-4 14:22
| 
[]，RuntimeException
efault);