如何读取一个TXT文档的内容、在哪有这种苏如法？

chd114 · 发表于 2012-6-30 18:07:22

本帖最后由 chd114 于 2012-6-30 20:00 编辑

就是在游戏中读取一个指定的TXT文档的指定内容，还有这种输入法是哪里的？

yanzheng868 · 发表于 2012-6-30 21:08:25

本帖最后由 yanzheng868 于 2012-6-30 21:09 编辑

#==============================================================================
# ◎ GPRA_TextStream
#------------------------------------------------------------------------------
# ◎ TXT文件读取流类
#------------------------------------------------------------------------------
# 制作者：绿梨子红苹果
# 个人主页：vbgm.9126.com
# E-Mail：[email protected]
# QQ：42378361
#------------------------------------------------------------------------------
# 附加说明：TXT文件需要是UTF-8编码(Windows自带记事本支持)，其它的好似会乱码
#==============================================================================
class TextStream
#--------------------------------------------------------------------------
# ● 初始化状态
#--------------------------------------------------------------------------
def initialize
@file_name = "" # 记录已经打开文件名称
@line_label = "" # 记录行号标签
@is_open = false # 用于记录文件是否打开
@txt_file = nil # 用于打开文件
@t = nil # 记录每行文字
@p = 0 #记录行号
end
#--------------------------------------------------------------------------
# ● 打开文件
#--------------------------------------------------------------------------
def open(file_name,line_label="",reload=false)
# 文件名改变的时候，或者文件没有打开的时候打开文件
if (file_name != @file_name) or !@is_open or reload
#文件已经打开的时候首先关闭文件
if @is_open
@txt_file.close
end
# 测试文本文件是否存在
if !FileTest.exist?("Text/" + file_name + ".txt")
# 初始化变量
@file_name = ""
@line_label = ""
@is_open = false
@txt_file = nil
@t = nil
@p = 0
# 返回错误值
return(false)
end
#如果通过了测试，说明文件存在，那么就打开它
@txt_file = File.open ("Text/" + file_name + ".txt")
#读取所有行的文字
@t=@txt_file.readlines
#把行“指针”设定为0
@p=0
#如果行号非空
if line_label != ""
#搜索到指定的行号，直到文件结尾才结束
for @p in [email protected]
#打开下一行文字
t=@t[@p]
#当此行是行号时（左右为匹配的方括号）
if t[0,1] == "[" and t[-2,1] == "]"
#判断是不是要找的行号
if t == "[" + line_label + "]\n"
#是的话说明找到了，停在下行，并退出循环
@p+=1
break
end
end
end
end
#设定变量
@file_name = file_name
@line_label = line_label
@is_open = true
end
#行号改变的时候重新搜索行号
if line_label != @line_label
#首先把指针移动到文件开头
@p=0
#如果行号非空
if line_label != "" and line_label != nil
#搜索到指定的行号，直到文件结尾才结束
for @p in [email protected]
#打开下一行文字
t=@t[@p]
#当此行是行号时（左右为匹配的方括号）
if t[0,1] == "[" and t[-2,1] == "]"
#判断是不是要找的行号
if t == "[" + line_label + "]\n"
#是的话说明找到了，停在下行，并退出循环
@p+=1
break
end
end
end
end
#设定变量
@line_label = line_label
@is_open = true
end
return(true)
end
#--------------------------------------------------------------------------
# ● 关闭文件
#--------------------------------------------------------------------------
def close
@txt_file.close
@is_open=false
end
#--------------------------------------------------------------------------
# ● 读入一行文字，文件已结束返回"[END]"
#--------------------------------------------------------------------------
def get_text(len=4)
t="" # 临时变量
s="" # 返回值
l=0 # 已打开的行数
#如果文件已经关闭，直接返回结束标志
if !@is_open
return("\\~\\/[END]")
end
#如果文件已经读到了末尾
if @p>[email protected]
#关闭文件
@txt_file.close
#设置标志变量
@is_open = false
#返回结束标志
return("\\~\\/[END]")
end
#打开一行文字
t=@t[@p]
#读入字符串，终止条件是文件结束、遇到行号或者已经打开需要行数的文字
while l<len
#否则的话就加入到字符串s末尾
s = s + t
#l自增
l += 1
#@p自增
@p += 1
#打开一行文字
t=@t[@p]
#当下行是行号(左右为匹配的方括号)或者已经结束时退出，否则就会进入下次循环
if t==nil or (t[0,1] == "[" and t[-2,1] == "]")
#加入"[END]"到字符串s末尾
s = s + "[END]"
#关闭文件
@txt_file.close
#设置标志变量
@is_open = false
#终止循环
break
end
end
if s.size > 0
#字符串非空的时候返回字符串
return s
else
#否则可能是文件结束了所以返回结束标志
return "\\~\\/[END]"
end
end
end

复制代码

输入法大概是搜狗？

Wind2010 · 发表于 2012-6-30 21:23:41

目测是夏娜输入法- -LZ搜索一下吧

chd114 · 发表于 2012-7-1 13:35:37

少点评一次不会死吧···你之前的问题有的想采纳你都不行结果浪费我200EXP···@hys111111另外，我说的是读取指定文档指定的内容 @yanzheng868 @Wind2010

Wind2010 · 发表于 2012-7-1 14:31:19

chd114 发表于 2012-7-1 13:35
少点评一次不会死吧···你之前的问题有的想采纳你都不行结果浪费我200EXP···@hys111111另外，我说的是 ...

把文档读取后自己提取不就行了？
file.open

chd114 · 发表于 2012-7-1 14:40:45

Wind2010 发表于 2012-7-1 14:31
把文档读取后自己提取不就行了？
file.open

file.open.split("注册码")[1].to_i？我要读取指定内容不是名字···

帐号		自动登录	找回密码
密码			注册会员

[已经过期] 如何读取一个TXT文档的内容、在哪有这种苏如法？

点评

点评

点评

开拓者