如何输出与读取TXT文件内的数据？

暴风の龙

如何在工程中实现把变量或字符串输出到TXT文件中
并且如何在工程中读取数值进行操作？

TXT文件写入后的格式大概是
变量1
变量2
变量3
……（变量总数没有定量）
END

请问该如何逐行的读取这些数值？

---

版务信息：本贴由楼主自主结贴～

暴风の龙

如何在工程中实现把变量或字符串输出到TXT文件中
并且如何在工程中读取数值进行操作？

TXT文件写入后的格式大概是
变量1
变量2
变量3
……（变量总数没有定量）
END

请问该如何逐行的读取这些数值？

---

版务信息：本贴由楼主自主结贴～

kaze

1. 整个教学我基本上就是解释一下范例教学游戏，请大家先下载范例《WORDS_PAZZLE》
   
2. 
   
3. 文件结构：
   
4. 
   
5. 除了正常的文件结构之外，建立了文件夹WORDS，里面存放了几本单词。可以自己换txt文档。
   
6. 
   
7. 事件解释：
   
8. 
   
9. 1、读取文件：脚本：
   
10. 
    
11. f = File.open("WORDS/CET4.txt")
    
12. #——打开CET4.txt的书
    
13. 
    
14. ls=f.readlines;$q=[];$a=[]                 
    
15. #——ls这个变量纪录cet4.txt里面的每一行信息，$q , $a 是两个数组，在这里初始化，用来记录问题和答案。
    
16. 
    
17. for i in 0...ls.size  #——循环
    
18. if (ls[i].split(/\[/)[0] != nil) and (ls[i].split(/\[/)[1] != nil) #——如果ls当前行在"["这个符号左右都有文字的话
    
19. $q.push(ls[i].split(/\[/)[0]) #——把"["左边的东西记录到$q，也就是问题里面去
    
20. $a.push(ls[i+1]) #——把当前行下面一行的东西记录到$a，也就是答案里面去
    
21. end;end;
    
22. 
    
23. f.close
    
24. #——关闭文件
    
25. 
    
26. 完成以上内容，$q，$a对应储存了cet4.txt所有的问题和答案。至此，所有核心已经全部完成，剩下的就是小技巧了。
    
27. 
    
28. 2、选择书本章节
    
29. 
    
30. 其实就是设置出题范围而已，比如$q的大小是2000题，循环1-1000和1001-2000就是两个章节了
    
31. 
    
32. 3、设置选择项 + 判断选项是否正确
    
33. 
    
34. 参考这个教学：shownews.asp?id=185，然后看看本游戏设置就明白了。
    
35. 
    
36. 在设置选择项的时候，根据答案随便将1-3中某一个选项设置为正确答案，其他2个选项随便给出答案。正确选项记录在$right_answer里面，所以只要将3个选项全像游戏那样设置好条件分歧即可。
    
37. 
    
38. 4、设置对话
    
39. 
    
40. Window_Message里面定义了\q[数字]和\a[数字]，对于学习IO的各位，修改对话框这个应该是很基本的东西了。功能就是self.contents.draw_text(x,32*y,1000,32,$q[数字])，self.contents.draw_text(x,32*y,1000,32,$a[数字])，仅此而已。
    
41. 
    
42. 其他说明：
    
43. 
    
44. 注意，请将txt文件存为UTF-8比较好。使用windows的记事本，另存为，可以选择编码方法。
    

复制代码

---

系统信息：本贴由楼主认可为正确答案，66RPG感谢您的热情解答～

暴风の龙

谢谢楼上的了……我还真没注意到这个教程……
研究去

暴风の龙

看完，还有一个问题，这个有读取的格式，那写入的格式是什么呢？

kaze

还有个叫
WORDS_PAZZLE
的范例去主站上下

暴风の龙

以下引用simounF于2007-7-4 21:39:02的发言：

f = File.open(path, "wb")
f.write(变量.to_s + "\n")
f.close

问个，这个\n是做什么用的？
还有这个存取形式是水平的
如何一行行的放置数据？
还有读取时为什么老是有\n这个字符出现？