-- search_log.lua
tbResult = {};
tbCmdResult = {};
local szTmpFolderPath = os.getenv("temp");
if not szTmpFolderPath then
 os.execute("md c:\\temp")
 szTmpFolderPath = "c:\\temp";
end
local tbSpecialWorld =
{
 ["("] = "%(", [")"] = "%)", ["."] = "%.", ["%"] = "%%",
 ["+"] = "%+", ["-"] = "%-", ["*"] = "%*", ["?"] = "%?",
 ["["] = "%[", ["]"] = "%]", ["^"] = "%^", ["$"] = "%$",
};
function FormatCmd(szCmd)
 return string.gsub(szCmd, ".", function(s) return tbSpecialWorld[s] or s; end)
end
function FormatPath(szPath)
 string.gsub(szPath, "[\\/]$", "");
 return string.gsub(szPath, "/", "\\");
end
function CheckFile(szFilePath)
 local file = io.open(szFilePath, "rb");
 if not file then
return;
 end
 file:close();
 return true;
end
function 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;
end
function 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;
end
function Cmd2Line(szLine)
 return;
end
function CheckName(szFileName)
 return true;
end
function 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
  end
end
function 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();
end
function 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; -- 自定義搜索行內容處理函數(shù)
--  fnCheckName = function () end; -- 文件名限定函數(shù)
--  szResultPath = "e:\\result.tab"; -- 文件搜索內容輸出路徑
--  szCmdResultPath = "e:\\cmd_result.tab"; -- 自定義處理函數(shù)返回內容儲存路徑
--}

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;
end
tbParam =
{
  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