题目4个选项，VBS如何把正确的选项找出来？

zhangop9

1.(单选题)佝松狮花木成畦手自栽[B]。
A.直接
B.请求
C.偷偷
D.将二
2.(单选题)佝松狮花木成畦手自栽[A]。
A.属于大
B.属于从
C.属于硅酸
D.应当
/////////////////////////////////////
处理后得到这样的文本。
////////////////////////////////////
1.(单选题)佝松狮花木成畦手自栽[B]。
A.直接
B.请求
C.偷偷
D.将二
答：B
正确：B.请求
2.(单选题)佝松狮花木成畦手自栽[A]。
A.属于大
B.属于从
C.属于硅酸
D.应当
答：A
正确：A.属于大

zhangop9

2.(多选题)佝松狮花木成畦手自栽[AD]。
A.属于大
B.属于从
C.属于硅酸
D.应当
答：AD
正确：A.属于大 D.应当

yhcfsr

1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause&exit
   
2. 
   
3. #=================＝用户设置区===================
   
4. $src_file = '.\试题.txt';            #源文件
   
5. $out_file = '处理结果.txt';          #输出结果
   
6. #================================================
   
7. 
   
8. $text = [io.file]::ReadAllLines($src_file,[text.encoding]::Default);
   
9. [System.Collections.ArrayList] $retArr = @();
   
10. $count = $text.Count;
    
11. $line_answer = $null;
    
12. for($i = 0; $i -le $count; ++$i)
    
13. {
    
14.     if($i -eq $count){[void]$retArr.Add($line_answer);break;}
    
15. 
    
16.     $line = $text[$i];
    
17.     if($line -match '^\d+\..*\[(\w+)\]')
    
18.     {
    
19.         if($line_answer) {[void]$retArr.Add($line_answer);}
    
20.         $answer = $Matches[1];  
    
21.     }
    
22.     if($line -match -join($answer[0],'\..*'))
    
23.     {
    
24.         $line_answer = "答：$($answer[0])`r`n正确：$($line)"  
    
25.     }
    
26.     elseif($answer[1] -and $line -match -join($answer[1],'\..*'))
    
27.     {
    
28.         $line_answer += ' '+$line
    
29.     }
    
30. 
    
31.     [void]$retArr.Add($line)
    
32. }
    
33. [io.file]::WriteAllLines($out_file, $retArr,[text.encoding]::Default)
    

复制代码

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

zhangop9

测试了，
使用“2”个参数调用“ReadAllLines”时发生异常:“路径中具有非法字符。”
所在位置 行:7 字符: 1
+ $text = [io.file]::ReadAllLines($src_file,[text.encoding]:efault);
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: ( [], MethodInvocationException
    + FullyQualifiedErrorId : ArgumentException

zhangop9

无法对 Null 数组进行索引。
所在位置 行:21 字符: 8
+     if($line -match -join($answer[0],'\..*'))
+        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : InvalidOperation: ( []，RuntimeException
    + FullyQualifiedErrorId : NullArray

yhcfsr

回复 5# zhangop9


    看我签名加QQ