**\[ChatLogAnalyzer\]**

(*
Author: coozplz
Date: 2013. 10. 30
Desc:
1. 압축파일 해제 방법
2. txt 파일을 읽어 특정 문자열이 포함된 라인만 추출
3. 추출한 결과를 출력 파일에 입력(append)
*)
program ChatLogAnalyzer;
uses
zipper, Classes, sysutils, frmChatLogAnalyzer;

{
procedure extractZipFiles
경로를 입력받아 해당 파일에 존재하는 모든압축 파일을 해제한다.
sourcePath: 압축파일 경로
destPath: 압축 해제 경로
suffix: 압축 파일 형식
}
procedure extractZipFiles(sourcePath : String; destPath: String; suffix: String);var
unzipper :TUnZipper;
fileInfo : TSearchRec;begin
unzipper := TUnZipper.Create;
SetCurrentDir(sourcePath);
try
if FindFirst(suffix, faAnyFile, fileInfo) = 0 then
begin
repeat
with fileInfo do
begin
// 파일 정보 출력
writeln(name:60, size:15);
unzipper.FileName := sourcePath+'\'+name;
unzipper.OutputPath := sourcePath;
unzipper.Examine;
unzipper.UnZipAllFiles;
end;
until FindNext(fileInfo) 0 ;
FindClose(fileInfo);
end;
finally
unzipper.Free;
end;
writeln('Done extract files');end;

{
method: main
}
var
path : String;
fileInfo : TSearchRec;
logFile : Text;
outputFile : Text;

readLine : string;
searchText : String;begin
path := 'C:\Users\Administrator\Desktop\IBK\20131030';
searchText:= 'ChatFileRelayWorker:269';
extractZipFiles(path, path, '*.zip');
SetCurrentDir(path);
if FindFirst('*.0', faAnyFile, fileinfo) = 0 then
begin
Assign(outputFile, path + '\result.out');
Rewrite(outputFile);
repeat
writeln(fileInfo.name: 60, fileInfo.size:15);
AssignFile(logFile, path + '\' + fileInfo.Name);
Reset(logFile); {파일은 처음부터 다시 읽도록 설정}
Append(outputFile); {출력 파일은 이전 내용에 붙여넣기를 한다.}
// Append(outputFile);
while not EOF(logFile) do
begin
ReadLn(logFile, readLine);
//writeln(Pos(searchText, readLine));
if Pos(searchText, readLine) > 0 then
begin
writeln(outputFile, readLine);
end;
end;
until FindNext(fileInfo) 0;
Close(logFile);
Close(outputFile);
end;
end.

**\[frmChatLogAnalyzer\]**

unit frmChatLogAnalyzer;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
StdCtrls, zipper, TLoggerUnit ;
type

{ TfrmChatLog }

TfrmChatLog = class(TForm)
btnOpenSelectDir: TButton;
btnOpenSaveDialog: TButton;
btnExecute: TButton;
lb_resultSave: TLabel;
SaveDialog1: TSaveDialog;
SelectDirectoryDialog1: TSelectDirectoryDialog;
txtSearchValue: TEdit;
lb_searchText: TLabel;
txtSourceDir: TEdit;
Label1: TLabel;
txtResultFilePath: TEdit;
procedure btnExecuteClick(Sender: TObject);
procedure btnOpenSaveDialogClick(Sender: TObject);
procedure btnOpenSelectDirClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
frmChatLog: TfrmChatLog;
sourcePath : String; {압축 파일 저장경로}
destPath: String; {결과 파일 저장 경로}
fileInfo : TSearchRec; {압축 파일 정보}
logFile : Text; {압축 해제 파일}
resultFile : Text; {파일 쓰기 정보}
readLine : string; {텍스트 1줄}
searchText : String; {검색어}

implementation
{$R *.lfm}
{ TfrmChatLog }
{
procedure extractZipFiles
경로를 입력받아 해당 파일에 존재하는 모든압축 파일을 해제한다.
sourcePath: 압축파일 경로
destPath: 압축 해제 경로
suffix: 압축 파일 형식
}
procedure extractZipFiles(sourcePath : String; suffix: String);var
unzipper :TUnZipper;
fileInfo : TSearchRec;begin
unzipper := TUnZipper.Create;
SetCurrentDir(sourcePath);
try
if FindFirst(suffix, faAnyFile, fileInfo) = 0 then
begin
repeat
with fileInfo do
begin
// 파일 정보 출력
writeln(name:60, size:15);
unzipper.FileName := sourcePath+'\'+name;
unzipper.OutputPath := sourcePath;
unzipper.Examine;
unzipper.UnZipAllFiles;
end;
until FindNext(fileInfo) 0 ;
FindClose(fileInfo);
end;
finally
unzipper.Free;
end;
writeln('Done extract files');end;
procedure TfrmChatLog.btnOpenSelectDirClick(Sender: TObject);begin
if SelectDirectoryDialog1.Execute then
begin
writeln('sourcePath: '+SelectDirectoryDialog1.FileName);
sourcePath:= SelectDirectoryDialog1.FileName;
txtSourceDir.Text:=sourcePath;
end;end;
procedure TfrmChatLog.btnOpenSaveDialogClick(Sender: TObject);begin
if SaveDialog1.Execute then
begin

writeln('savePath: '+SaveDialog1.FileName);
destPath:= SaveDialog1.FileName;
txtResultFilePath.Text:=destPath;
end;
end;

procedure TfrmChatLog.btnExecuteClick(Sender: TObject);begin
if txtSearchValue.Text = '' then
begin
ShowMessage('검색어는 필수 항목입니다.');
end;

searchText:= txtSearchValue.Text;
writeln('SearchText: '+ searchText);

extractZipFiles(sourcePath, '*.zip');
SetCurrentDir(sourcePath);
if FindFirst('*.0', faAnyFile, fileinfo) = 0 then
begin
AssignFile(resultFile, destPath);
Rewrite(resultFile);
repeat
writeln(fileInfo.name: 60, fileInfo.size:15);
AssignFile(logFile, sourcePath + '\' + fileInfo.Name);
Reset(logFile); {파일은 처음부터 다시 읽도록 설정}
Append(resultFile); {출력 파일은 이전 내용에 붙여넣기를 한다.}
// Append(outputFile);
while not EOF(logFile) do
begin
ReadLn(logFile, readLine);
//writeln(Pos(searchText, readLine));
if Pos(searchText, readLine) > 0 then
begin
writeln(resultFile, readLine);
end;
end;
until FindNext(fileInfo) 0;
CloseFile(logFile);
CloseFile(resultFile);
end;
ShowMessage('Finish Analyze');
Close;end;end.