lua文件操作(2)----文件转换

最近有空空闲  整理点东西吧

 

 

1.单个文件的转换

function filetofile(infile, outfile)
	local readfile = io.open(infile,"r")	--读取文件
	assert(readfile)						--打开时验证是否出错
	local writefile = io.open(outfile,"w")	--写入文件(w覆盖)
	assert(writefile)						--打开时验证是否出错

	local i=1
	for rline in readfile:lines() do						--一行一行
		local tmp=string.gsub(rline, "^%s*(.-)%s*$", "%1")	--去除首尾空格
		if 0~=string.len(tmp) then							--不是空行
			if 1~=select(1, string.find(tmp, "#")) then		--以#号开头的为注释
				writefile:write(i, tmp.."\n")				--写入内容
				i=i+1
			end
		end
	end

	readfile:close()
	writefile:close()
end
-------------------------------------------------
filetofile("in.txt", "out.txt")

 

2.多个文件批量转换

以下几个函数是从网上修改的结果

 

--功能：获取路径下的文件路径名的集合
--输入：当前路径,存放当前路径下所有的文件路径名table
--输出：返回路径集合pathes(如：E:\Lua\module.lua 等)
function getpathes(rootpath, pathes)
    local pathes = pathes or {}
    for entry in lfs.dir(rootpath) do
        if entry ~= '.' and entry ~= '..' then
            local path = rootpath .. '\\' .. entry
            local attr = lfs.attributes(path)
            assert(type(attr) == 'table')
            if attr.mode == 'directory' then
                --getpathes(path, pathes)  --用于递归
            else
                table.insert(pathes, path)
            end
        end
    end
    return pathes
end
 

----------------------------------------------------------------------------------
--功能：获取文件名
--输入：路径名
--输出：返回文件名(包括文件名+后缀名)
function getfilename(pathname)
	if nil~=string.find(pathname, "%.") then	--查找是否有点号(.)
		return string.match(pathname, ".+\\([^\\]*%.%w+)$")
	end
end

 

--功能：获取txt文件的文件名的集合
--输入：路径名的集合
--输出：txt文件的文件名的集合
function gettxtname(pathes)
	local outfile={}
	for i, v in pairs(pathes) do
		if nil~=string.find(v, "%.") then						--查找是否有点号(.)
			local filename=getfilename(v)						--获取文件名
			if "txt"==getextension(filename) then				--获取扩展名为txt的文件名字
				table.insert(outfile, filename)
			end
		end
	end
	return outfile
end

 

----------------------------------------------
--功能：获取扩展名
--输入：文件名
--输出：返回文件扩展名(如：txt)
function getextension(filename)
	if nil~=string.find(filename, "%.") then	--查找是否有点号(.)
		return filename:match(".+%.(%w+)$")
	end
	return nil
end

注： 要包含   require "lfs"

function main()
	local s=lfs.currentdir() --获取当前路径
	local pathes={}		 --存放路径名的集合
	local outfile={}	 --输出的名字的集合

	getpathes(s, pathes)	    --获取路径下的文件路径名的集合
	outfile=gettxtname(pathes)  --获取txt文件的文件名的集合

	--对当前目录下所有的.txt文件进行操作
	for i,v in pairs(outfile) do
		readfile = io.open(v,"r")		--读取文件
		assert(readfile)			--打开时验证是否出错
		writefile = io.open("copy_"..v,"w")	--写入文件
		assert(writefile)			--打开时验证是否出错

		for rline in readfile:lines() do				--一行一行读取非字段名
			local tmp=string.gsub(rline, "^%s*(.-)%s*$", "%1")	--去除首尾空格
			if 0~=string.len(tmp) then				--不是空行
				if 1~=select(1, string.find(tmp, "#")) then	--以#号开头的为注释
					writefile:write(tmp.."\n")		--写入内容
				end
			end
		end

		readfile:close()	--调用结束后记得关闭
		writefile:close()	--调用结束后记得关闭
	end
end
-------------------------------------------------
main()