lua日志文件处理代码

-- search_log.luatbResult = {};tbCmdResult = {};local szTmpFolderPath = os.getenv("temp");if not szTmpFolderPath then os.execute("md c://temp") szTmpFolderPath = "c://temp";endlocal tbSpecialWorld ={ ["("] = "%(", [")"] = "%)", ["."] = "%.", ["%"] = "%%", ["+"] = "%+", ["-"] = "%-", ["*"] = "%*", ["?"] = "%?", ["["] = "%[", ["]"] = "%]", ["^"] = "%^", ["$"] = "%$",};function FormatCmd(szCmd) return string.gsub(szCmd, ".", function(s) return tbSpecialWorld[s] or s; end)endfunction FormatPath(szPath) string.gsub(szPath, "[///]$", ""); return string.gsub(szPath, "/", "//");endfunction CheckFile(szFilePath) local file = io.open(szFilePath, "rb"); if not file then   return; end file:close(); return true;endfunction OpenFile(szFilePath) if not CheckFile(szFilePath) then   return; end local tbFile = {}; for line in io.lines(szFilePath) do   table.insert(tbFile, line); end return tbFile;endfunction SearchFile(szFilePath, szCmd, fnCmd2Line, fnFileName) local tbFile = OpenFile(szFilePath); if not tbFile then   return; end tbResult[szFilePath] = tbResult[szFilePath] or {}; local szCmdResult = ""; for nLine, szLine in ipairs(tbFile) do   if string.match(szLine, szCmd) then     szCmdResult = fnCmd2Line(szLine);     if szCmdResult and szCmdResult ~= "" then       table.insert(tbCmdResult, szCmdResult);     end     table.insert(tbResult[szFilePath], nLine .. ":" .. szLine);   end end return 1;endfunction Cmd2Line(szLine) return;endfunction CheckName(szFileName) return true;endfunction SearchDir(szFolderPath, szCmd, fnCmd2Line, fnCheckName, nIdx) if not szCmd or szCmd == "" then   return; end local fnCmd2Line = fnCmd2Line or Cmd2Line; local fnCheckName = fnCheckName or CheckName; local nIdx = nIdx or 0; local szTmpFileName = szTmpFolderPath .. "//SearchDirTemp" .. nIdx .. ".tmp"; os.execute("dir /b ".. szFolderPath .." >" .. szTmpFileName); local tbFile = OpenFile(szTmpFileName); if not tbFile or #tbFile == 0 then   return; end local szPath = ""; for _, szFileName in ipairs(tbFile) do   szPath = szFolderPath .. "//" .. szFileName;   if not CheckFile(szPath) then     SearchDir(szPath, szCmd, fnCmd2Line, nIdx + 1);    else      if CheckName(szFileName) then        SearchFile(szPath, szCmd, fnCmd2Line);      end    end  endendfunction Write2File(szInfo, szFilePath)  local file = io.open(szFilePath, "w");  if not file then    print(szInfo);    print("Write2File ERR ?? not file " .. szFilePath);    return;  end  file:write(szInfo);  file:close();endfunction DoSearchDir(szFolderPath, szCmd, tbParam)  if not szFolderPath or szFolderPath == "" or not szCmd or szCmd == "" then    return;  end   tbParam = tbParam or {};  szFolderPath = FormatPath(szFolderPath);  if tbParam.bIsMatch then    szCmd = FormatCmd(szCmd);  end  local nTime = os.time();  SearchDir(szFolderPath, szCmd, tbParam.fnCmd2Line or Cmd2Line, tbParam.fnCheckName or CheckName, 0);  nTime = os.time() - nTime;  print("搜索用时：" .. nTime);  local szResultPath = tbParam.szResultPath or (szTmpFolderPath .. "//result.tab.tmp");  local szResult = "";  for szFilePath, tbInfo in pairs(tbResult) do    szResult = szResult .. szFilePath .. "/n";    for _, szLine in pairs(tbInfo) do      szResult = szResult .. szLine .. "/n";    end  end  Write2File(szResult, szResultPath);  local szCmdResult = "";  for _, szLine in pairs(tbCmdResult) do    szCmdResult = szCmdResult .. szLine .. "/n";  end  Write2File(szCmdResult, tbParam.szCmdResultPath or (szTmpFolderPath .. "//cmd_result.tab.tmp"));end--tbParam =--{--  bIsMatch = false;  -- 是否使用正则方式搜索--  fnCmd2Line = function () end; -- 自定义搜索行内容处理函数--  fnCheckName = function () end; -- 文件名限定函数--  szResultPath = "e://result.tab"; -- 文件搜索内容输出路径--  szCmdResultPath = "e://cmd_result.tab"; -- 自定义处理函数返回内容储存路径--}

dofile("e://search_log.lua");tbTmpInfo = {};function CheckInfo(szLine) local szPlayerName, nPlayerId, nCount = string.match(szLine, "^.*szType = final/t[^/t]+/t%d+/t([^/t]+)/t(%d+)/t(%d+).*$"); nPlayerId = tonumber(nPlayerId); nCount = tonumber(nCount); if nCount > tbTmpInfo[nPlayerId] then   tbTmpInfo[nPlayerId] = nCount;    return "" .. nPlayerId .. "/t" .. nCount;  end  return;endtbParam ={  bIsMatch = false;  fnCmd2Line = CheckInfo;  fnCheckName = function () return true; end;  szResultPath = "e://result.tab";  szCmdResultPath = "e://cmd_result.tab";}DoSearchDir("d://logs", "szType = final", tbParam);for _, szInfo in pairs(tbTmpInfo) do  print(szInfo);end