请教关于脚本读取文本里的数据 - Project1

subject = [];
File.open(保存题目的TXT文件名, "r") do |fp|
subject = fp.readline;
end

复制代码

subject.each_index do |index|
subject[index] = subject[index].split("||");
end

复制代码

class Scene_Subject < Scene_Base
def initialize(subject_index)
@subject = [];
@index_subject = 0;
File.open("Subject#{subject_index}.txt","r") do |fp|
@subject = fp.readlines;
end
@subject.each_index do |index|
@subject[index].chomp!
@subject[index] = @subject[index].split("||");
end
@max_index = @subject.size; # 题目最大数量
@type = 0; # 抽题类型
@answer = []; # 答题卡
@title_index = []; # 剩下的题目序号
for i in 0..@max_index
@title_index << i;
end
@subject_subindex = rand( @subject.size); # 题号
end

复制代码

# 类似题库的作用
@subjects = [];
# 初始化题库
for i in [email protected]
@subjects << i;
end
# 题库里随机一个题目出来
index = rand(@subjects.size);
# 为了防止重复取一道题, 所以把取得的题目从题库里删掉
@subjects.delete_at(index);

复制代码

#==============================================================================
# ■ Scene_Subject
#------------------------------------------------------------------------------
# 　考试类。
#==============================================================================
class Scene_Subject < Scene_Base
def initialize(subject_index)
@subject = [];
@index_subject = 0;
File.open("Subject#{subject_index}.txt","r") do |fp|
@subject = fp.readlines;
end
@subject.each_index do |index|
@subject[index].chomp!
@subject[index] = @subject[index].split("||");
end
@max_index = @subject.size; # 题目最大数量
@type = 0; # 抽题类型
@answer = []; # 答题卡
@title_index = []; # 剩下的题目序号
for i in 0..@max_index
@title_index << i;
end
@subject_subindex = -1; # 题号
end
#--------------------------------------------------------------------------
# ● 开始处理
# Subject_index : 考题库
# type : 抽题类型, 0 按顺序, 1 随机
#--------------------------------------------------------------------------
def start
create_menu_background
next_subject
end
#--------------------------------------------------------------------------
# ● 更新
#--------------------------------------------------------------------------
def update
super
update_menu_background
update_subject_window
end
#--------------------------------------------------------------------------
# ● 更新考卷
#--------------------------------------------------------------------------
def update_subject_window
@subject_window.update
if Input.trigger?(Input::C)
@answer.pushAnswer(@subject_subindex, @subject_window.index); # 填写答题卡, [题目序号, 答案]
next_subject; # 下一题
end
end
#--------------------------------------------------------------------------
# ● 计算得分
#--------------------------------------------------------------------------
def hand_paper
code = 0; # 分数
@answer.each do |answers|
right_answer = @subject[answers[0]][1];
code += 1 if right_answer.to_i == answers[1] + 1;
end
$game_player.result = code == @answer.size ? 100.0 : code.to_f / @answer.size * 100
$scene = Scene_Map.new
end
#--------------------------------------------------------------------------
# ● 结束处理
#--------------------------------------------------------------------------
def terminate
super
dispose_menu_background
@subject_window.dispose;
end
#--------------------------------------------------------------------------
# ● 下一题
#--------------------------------------------------------------------------
def next_subject
@index_subject += 1;
if @index_subject < 2
case @type
when 0
@subject_subindex += 1;
end
@subject_window.dispose if @subject_window;
@subject_window = Window_Subject.new(@subject[@subject_subindex]);
else
hand_paper
end
end
end

复制代码

case @type
when 0
@subject_subindex += 1;
end

复制代码