lua日志文件处理代码

技术  /  管理员 发布于 6年前   304

目前我找到的文件夹的搜索工具，最多可以完成把搜索到的单行的内容，进行输出出来，或者进行一些简单的处理，但是不够灵活。

因此就用lua自己写了个，可以完成自己定义搜索处理函数，进行一些数据的处理，省去了将搜索结果放到excel中再处理的过程。

-- 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

唯一不满意的地方貌似是搜索速度有点慢，以后有空再调整吧，现在这个暂时够用了，至少比原来方便多了~~