标题: [问题求助] 题目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
- #&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
作者: 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 |