[已解决]批处理怎样随机提取单词？

尘丶 · 发表于 2015-9-2 20:01:53

本帖最后由尘丶于 2015-9-4 16:56 编辑

我想做个单词小程序，帮助自己记下单词，我打算把课本单元的单词打进一个TXT里面，但是不知道怎么随机抽取单词好。
文本如下;
Unit 1
a art. 一个
ability n. 能力;才能
able adj. 能够;有能力的
be able to do sth. 有能力做某事
about adv. 大约;到处
prep. 关于;在各处
above prep. 在···上面
adj. 上面的
adv. 在···之上
abroad adv. 到(在)国外
go abroad 出国
absent adj. 缺席,不在
be absent from 缺席
absolutely adv. 完全地,绝对地
accept v. 接受
accident n. 事故,意外的事
by accident 偶然地
account n. 账目;描述
account for 说明;解释
accountant n. 会计,会计师
accurate adj. 准确的,确切的
ache vi.&n. 痛,疼痛
achieve v. 达到,取得
achievement n. 成就
across prep.横过,穿过
act n. 法令,条例
v.扮演(角色),演出(戏)
act as 充当,担任
active adj. 积极的,活跃的
activity n. 活动
actor n. 演员
actress n. 女演员
actual adj. 实际的;现实的
add v. 添加,增加
addition n.加;增加物
in addition 除此之外,并且
address n. 地址
adjust v. 调整;校准
administration n. 管理;行政
admire v. 钦佩;羡慕
admit vt. 承认,准许(入场,入学等)
adopt v. 采用,采纳
adult n. 成年人
advance v. 推进,促进;前进
advantage n. 优点;好处
adventure n. 冒险;奇遇
advertisement n. 广告
advice n. 忠告,建议
advise vt. 忠告,劝告,建议
affair n. 事,事情
affect vt. 影响
afford vt. 负担得起(···的费用)
afraid adj. 害怕的;担心
be afraid of 担心,害怕
after adv. 以后;后来;向后
prep. 在···之后;在···后面
conj. 在···以后
after all 毕竟
afternoon n. 下午,午后
again adv. 再一次;再,又
against prep. 对着,反对
age n. 年龄;时代
at the age of 在···的年龄
agency n. 代理(处),经办(处);机构
ago adv. 以前
agree v. 同意;应允
agree to do sth. 同意做某事
agree with sb. 同意某人的看法
agreement n. 同意,一致;协定
agriculture n. 农业
像这样的20课
我想随机抽取里面的单词比如随机抽取50个单词,第一个是到(在)国外
输入单词英文
对的话显示yes，错的话输出no,
然后都显示单词的全部信息
abroad adv. 到(在)国外
go abroad 出国
有些单词后面还跟着一些的在开头部分我都用Tab开头了
谁能告诉我用什么随机抽取那些中文意思就可以了思路也可以

回家路上 · 发表于 2015-9-2 21:08:51

本帖最后由回家路上于 2015-9-2 23:35 编辑

回复 1# 尘丶

（1）编号
（2）随机

补上混编代码

@if(0)==(0) echo off & setlocal enabledelayedexpansion
:main
for /f "tokens=1,2 delims= " %%i in ('type 1.txt^|findstr /b "[a-z]"^|cscript -nologo -e:jscript "%~f0"') do (
set /p c=%%j ^<---对应---^>
if "!c!" equ "%%i" (echo;正确) else echo;错误，应为--%%i
)
echo;按任意键，再来50个单词。
pause>nul
goto :main
pause & exit /b
@end
var content = WScript.StdIn.ReadAll();
var ce = [], i=0;
content.replace(/(\w+) +.* +([^\r\n]+)/g,function($0,$1,$2){
ce[i++] = $1+" "+$2;
});
ce.sort(function(){return 0.5-Math.random();});
for (var i=0; i< 50; i++) {
WSH.Echo(ce[i]);
}

复制代码

pcl_test · 发表于 2015-9-3 00:01:38

本帖最后由 pcl_test 于 2015-9-10 22:08 编辑

@echo off
:loop
cls
setlocal enabledelayedexpansion
set "dic=词表.txt"
set/a n=true=false=null=0
for /f "tokens=1,2* delims=: " %%a in ('findstr /n "^[a-Z]" "%dic%"') do set "#!random:~-2!!random:~-2!%%b=%%a^|%%b %%c"
for /f "tokens=1,2 delims==|" %%a in ('set #') do (
set/a n+=1,m=%%b-1
if !m! equ 0 (set t=) else (set "t=skip=!m!")
call :read !t!
if !n! equ 50 goto :break
)
:break
echo;对%true%，错%false%，未答%null%
echo;按任意键，再来一次&pause>nul
endlocal
goto loop
:read
for /f "%* usebackq delims=" %%i in ("%dic%") do (
set "str=%%i"
set "t=%%i"
if not defined def (
for %%x in (a b c d e f g h i j k l m n o p q r s t u v w x y z . ^&) do set t=!t:%%x=!
for /f "tokens=*" %%y in ("!t!") do echo;!n! 中文词义：%%y
set answer=
set /p answer=请输入相应的英文单词并按回车键：
if defined answer (
echo;"%%i"|findstr /rc:"\<!answer!\>" >nul&&(
set/a true+=1&echo;^>^>True)||(set/a false+=1&echo;^>^>False)
) else set/a null+=1
echo;--------------------------------------------
)
if defined def if "!str:~,1!" neq " " (goto :end)
echo;%%i&set def=1
)
:end
echo;&set def=&goto :eof

复制代码

WHY · 发表于 2015-9-3 13:18:47

我也来个

@if(0)==(0) echo off
setlocal enabledelayedexpansion
for /f "tokens=1*delims=/" %%i in ('cscript -nologo -e:jscript "%~f0"^<1.txt') do (
set /p "c=%%j <--对应-->"
if "!c!"=="%%i" (echo 正确) else (echo 错误应为 %%i)
)
pause & exit/b
@end
var str = WScript.StdIn.ReadAll() + '\r\n',arr = [];
str.replace(
/^([a-z]+)((\s+\S+\.\s*.+\n)+)/mg,
function(a,b,c){
c = c.replace(/\s+\S+\.\s*(.+?)\r?\n/g, '/$1')
arr.push(b + c);
}
).replace(
/^\s+(.+)\s+([^\x00-\xff].+)$/mg,
function(a,b,c){arr.push(b + '/' + c)}
)
arr = arr.sort(function(){return(0.5-Math.random())}).slice(0,50);
WScript.Echo(arr.join('\n'))

复制代码

尘丶 · 发表于 2015-9-3 15:19:04

最好都是纯批~~~别的我不会（看不懂）~~

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]批处理怎样随机提取单词？

评分

评分

评分