Board logo

标题: [问题求助] 题目4个选项,VBS如何把正确的选项找出来? [打印本页]

作者: zhangop9    时间: 2020-11-4 14:22     标题: 题目4个选项,VBS如何把正确的选项找出来?

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    时间: 2020-11-4 14:25

2.(多选题)佝松狮花木成畦手自栽[AD]。
A.属于大
B.属于从
C.属于硅酸
D.应当
答:AD
正确:A.属于大 D.应当
作者: yhcfsr    时间: 2020-11-4 18:07

  1. #&cls&@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause&exit
  2. #==================用户设置区===================
  3. $src_file = '.\试题.txt';            #源文件
  4. $out_file = '处理结果.txt';          #输出结果
  5. #================================================
  6. $text = [io.file]::ReadAllLines($src_file,[text.encoding]::Default);
  7. [System.Collections.ArrayList] $retArr = @();
  8. $count = $text.Count;
  9. $line_answer = $null;
  10. for($i = 0; $i -le $count; ++$i)
  11. {
  12.     if($i -eq $count){[void]$retArr.Add($line_answer);break;}
  13.     $line = $text[$i];
  14.     if($line -match '^\d+\..*\[(\w+)\]')
  15.     {
  16.         if($line_answer) {[void]$retArr.Add($line_answer);}
  17.         $answer = $Matches[1];  
  18.     }
  19.     if($line -match -join($answer[0],'\..*'))
  20.     {
  21.         $line_answer = "答:$($answer[0])`r`n正确:$($line)"  
  22.     }
  23.     elseif($answer[1] -and $line -match -join($answer[1],'\..*'))
  24.     {
  25.         $line_answer += ' '+$line
  26.     }
  27.     [void]$retArr.Add($line)
  28. }
  29. [io.file]::WriteAllLines($out_file, $retArr,[text.encoding]::Default)
复制代码
用法:WIN10系统,设置用户文件,保存为bat执行
注意:WIN10以下系统可能无法正常执行,这不是VBS

作者: zhangop9    时间: 2020-11-4 20:39

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

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

回复 5# zhangop9


    看我签名加QQ




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2