用文本存储时,你在文本里要规定格式。
如,规定使用 vbtab 作为分隔符,那么这个 词库的格式例如下面的
----------------
a
一个
I
我
----------------
可以从 excel 中复制到记事本里去生成最初的词库。
程序里定义:在模块中。
public type 词库结构
En as string
'英文
Cn as string
'中文
end type
redim 词库() as 词库结构
读取时,使用二遍读取法,或者整体读取法。
1、二遍读取法:
第一遍,一行一行的读,计数,然后重定义词库数组大小,
第二遍,一行一行的读,读出每行,然后分解后放到对应的数组元素中去。
2、整体读取法。
一次性读入内存,然后按 vbcrlf 分解,得出行数,重定义数组大小,然后再每行按 vbtab 分解,放入每个元素中去。
词库维护:
先定义一个临时数组,如 50个大小 ,凡新增的单词,就先保存到临时数组中,并且记录最后的记录号。
当:添加新词,达到50个时,保存词库及新增单词,然后重读词库,重新初始化临时数组。
当:修改单词时,单词总数=词库+临时数组,修改对应的 数组元素。
当:结束维护时,保存 词库及新增单词,然后重读词库。
出题时:
1、随机在词库总数内随机产生一个数字。
2、根据出中文,还是英文的要求,显示 中文或者英文。
3、输入后,根据根据出中文,还是英文的要求,与另一个元素进行比较。并且同时计数。
………………