批处理之家 - Powered by Discuz! Board

1. 《二十四史》中篇幅最大的是哪部？ ( A )
A. 《宋史》 B. 《明史》 C. 《唐史》 D. 《资治通鉴》
2. 谁根据小仲马的《茶花女》改编了同名歌剧？(B)
A. 奥斯汀 B. 威尔第 C. 福楼拜
3. "生存还是死亡，这是一个问题。"出自莎士比亚的哪部作品？ (A)
A. 《哈姆雷特》 B. 《李尔王》 C. 《麦克白》
4. "侦探福尔摩斯"第一次出现是在下列哪部作品中: (A)
A. 《血字的研究》 B. 《东方快车谋杀案》 C. 《尼罗河上的惨案》 D. 《难逃一生》
5. 李清照词中名句"寻寻觅觅,冷冷清清,凄凄惨惨戚戚"的词牌名是: (D)
A. 醉花阴 B. 一剪梅 C. 如梦令 D. 声声慢
6. 泰戈尔获得诺贝尔文学奖的作品是: (A)
A. 《飞鸟集》 B. 《吉檀迦利》 C. 《草叶集》 D. 《瑭璜》
7. "破釜沉舟"讲的是历史上哪位名人的事迹(B )
A. 李煜 B. 项羽 C. 贾岛 D. 李世民
8. 樱花的花期一般有几天(C)
A. 5天 B. 6天 C. 7天 D. 8天
9. 在俄罗斯象征友谊的颜色是什么(A)
A. 蓝色 B. 红色 C. 绿色 D. 黄色
10. 旗袍起源于我国哪个少数民族的服装 ( D)
A. 傣族 B. 汉族 C. 维吾尔族 D. 满族
11. 夺得欧洲冠军杯最多的是下列哪只球队？( D)
A. 曼彻斯特联队 B. 拜仁慕尼黑队 C. AC米兰队 D. 皇家马德里队
12. 本次釜山亚运会上中国体育代表团共夺得多少枚金牌？( C)
A. 145枚 B. 150枚 C. 155枚 D. 160枚
13. 乒乓球是中国的国球。你知道世界上仅有的三名获得过"大满贯"的运动员的名字吗？( D)
A. 瓦尔德内尔，刘国梁，王励勤 B. 孔令辉，王励勤，金泽洙
C. 瓦尔德内尔，孔令辉，刘国正 D. 瓦尔德内尔，孔令辉，刘国梁
14. CBA联赛中获得最有价值球员称号最多的运动员是下列哪一位？(B )
A. 姚明 B. 王治郅 C. 刘玉栋 D. 胡卫东
15. "飞人"乔丹曾多少次获得NBA总冠军称号？(C )
A. 4次 B. 5次 C. 6次 D. 7次
16. 我国可以发展边境贸易最多的省(区)是?(C )
A. 内蒙古 B. 新疆 C. 云南 D. 西藏?
17. 下列平原中，由侵蚀作用形成的是(A )
A. 东欧平原 B. 亚马孙平原
C. 密西西比平原 D. 印度河--恒河平原
18. 世界上最大的区域性贸易集团是(A )
A. 欧洲联盟(UN) B. 世界贸易组织(WTO)
C. 石油输出国组织(OPEC) D. 东南亚国家联盟(ASEAN)
19. 大金塔、埃菲尔铁塔、比萨斜塔、吴哥窟依次位( C)
A. 法国、缅甸、意大利、柬埔寨 B. 柬埔寨、法国、意大利、缅甸
C. 缅甸、法国、意大利、柬埔寨 D. 缅甸、意大利、法国、柬埔寨
20. 位于云冈石窟附近的大型煤矿是( D)
A. 平顶山 B. 兖州 C. 淮北 D. 大同
21. 欧盟中央银行所在地法兰克福是德国( D)
A. 人口最多的城市 B. 最大的港口城市
C. 最大的航空枢纽城市 D. 最大的高新技术工业中心
22. 被称为"万园之园"的我国古典园林是(A )
A. 圆明园 B. 颐和园 C. 拙政园
23. 战国时期,主张人们不分贵贱等级、互爱互利，反对不义战争的思想家是(D )
A. 孔子 B. 孟子 C. 老子 D. 墨子
24. 战国时期,总结前人医疗经验归纳出的四诊法,是哪位名医?(D )
A. 李时珍 B. 华佗 C. 李冰 D. 扁鹊
25. 我国规模最大,内容最丰富的石窟群是:( A)
A. 敦煌莫高窟 B. 龙门石窟 C. 云港石窟

复制代码

$src = "ANSI.txt"
$dst = "$src.log"
$answers = 'ABCD'
$reQuestion = [regex]"^\d+.*$\s*([$answers])\s*$\s*$"
$stack = 0
Get-Content -Path $src | ForEach-Object {
if ($stack -eq 0) {
$match = $reQuestion.Match($_)
if ($match.Success) {
$answer = $match.Groups[1].Value
$nextc = $answers[$answers.IndexOf($answer) + 1]
if ($null -eq $nextc) {
$reAnswer = "$answer.*?$"
} else {
$reAnswer = "$answer.*?(?=$nextc\.|$)"
}
$_
$stack = 1
}
} elseif ($stack -eq 1) {
if ($_ -match $reAnswer) {
$Matches[0]
$stack = 0
}
}
} | Set-Content -Path $dst

复制代码

$questions=(gc a.txt) -match "^\d"
$answers=(gc a.txt) -match "^A."
#将题目和选项分开存储，但是abcd四选项分成两行的处理不了。
for($l=0;$l -lt $questions.count;$l++){
$right=$questions[$l].split("()",[StringSplitOptions]::RemoveEmptyEntries)[-1].trim() #获取正确答案
$answer=$answers[$l].split("ABCD.",[StringSplitOptions]::RemoveEmptyEntries).trim() #四个选项分割开
$questions[$l]
$answer["ABCD".indexof($right)]
#显示题目和唯一答案
}
$null=[console]::readkey()

复制代码

$arr = gc a.txt -ReadCount 0;
$count = $arr.Count;
$out = [Collections.ArrayList]@();
for ( $i = 0; $i -lt $count; $i++ ){
$m = [regex]::match($arr[$i], '^\d+\..*$\s*([A-Z])\s*$$'); #匹配开头为数字+"."，结尾为"([A-Z])"的行
if ( $m.Success ) {
$Queston = $arr[$i]; #整行赋值给变量 Queston
$Alph = $m.Groups[1].Value; #字母A-Z赋值给 Alph
} elseIf ( Test-Path Variable:Alph ) { #如果变量 Alph 已定义
$m = $arr[$i] -match $Alph + '\.(?:(?![A-Z]\.).)*'; #匹配答案
if ( $m ) {
$Answer = $matches[0]; #答案赋值给 Answer
[void]$out.Add( $Queston + "`r`n" + $Answer ); #问题和答案加入数组 out
}
}
}
sc b.txt -Value $out; #输出

复制代码

$src = "ANSI.txt"
$dst = "$src.log"
$answers = 'ABCD' #四个选项
$reQuestion = [regex]"^\d+.*$\s*([$answers])\s*$\s*$" #正则表达式，精确匹配题目行
$stack = 0 #标记，确定当前为题目行还是选项答案行
Get-Content -Path $src | ForEach-Object { #文本每行循环
if ($stack -eq 0) { #题目行
$match = $reQuestion.Match($_) #匹配
if ($match.Success) { #匹配
$answer = $match.Groups[1].Value #找出ABCD中的答案字母
$nextc = $answers[$answers.IndexOf($answer) + 1] #确定正确字母后面一个字母
if ($null -eq $nextc) { #答案为D
$reAnswer = "$answer.*?$" #匹配字母D.到行尾
} else { #答案不为D
$reAnswer = "$answer.*?(?=$nextc\.|$)" #匹配正确字母到后面一个字母之间
}
$_
$stack = 1 #标记，题目行结束
}
} elseif ($stack -eq 1) { #选项答案行
if ($_ -match $reAnswer) {
$Matches[0] #匹配出正确选项
$stack = 0 #标记，选项行结束
}
} #再次感谢，读懂之后觉得太严谨了，代码也可以这么美
} | Set-Content -Path $dst

复制代码

$str = Get-Content 'a.txt' | Out-String
&{
#问题和答案汇到一行
$str -replace '\r\n(?=[ABCD])','' -split '\r\n' | foreach {
$arr = $_ -split '[ABCD]\.' #每个问题和答案分成单独的数组
$a = $arr[0].LastIndexOfAny(@('A','B','C','D')) #找答案索引
if($a -ne -1){
$arr[0] #输出问题
$ans = $arr[0].Substring($a,1) #根据答案索引取答案
$ans+'.'+$arr[[char]($ans)-[char]'A'+1] #输出答案
}
}
} | Out-File 'b.txt'

复制代码