Вверх ↑
Разработчик
Ответов: 26164
Рейтинг: 2127
#1: 2012-11-24 12:42:13 ЛС | профиль | цитата
Pro_X7_Gaming писал(а):
Вот так сойдет?

А вот так



Add(MainForm,2953706,63,140)
{
Width=423
Height=94
}
Add(StrList,15424801,721,273)
{
FileName="20121123_events.txt"
Point(doSort)
}
Add(Button,11584877,63,182)
{
Left=180
Top=30
TabOrder=-1
Caption="Filtered"
link(onClick,10378579:doEvent1,[])
}
Add(BlockFind,4059547,378,182)
{
StartBlock="PlayerKilled"
EndBlock="]"
link(onSearch,2288523:doReplace,[])
}
Add(Charset,6235083,329,182)
{
Type=9
link(onCharset,4059547:doSearch,[])
}
Add(FileStream,10959428,231,182)
{
FileName="20121123_events.log"
link(onLoad,14499661:doConvert,[])
}
Add(StreamConvertor,14499661,280,182)
{
Mode=6
link(onResult,6235083:doCharset,[])
}
Add(Hub,10378579,119,182)
{
OutCount=6
link(onEvent1,10959428:doOpen,[])
link(onEvent2,10959428:doClose,[])
link(onEvent3,4766785:doCount,[(216,202)(216,265)])
link(onEvent4,15424801:doSort,[(208,209)(208,321)])
link(onEvent5,15424801:doSave,[(200,216)(200,314)])
link(onEvent6,1158065:doMessage,[(192,223)(192,342)])
}
Add(Replace,2288523,427,182)
{
SubStr="PlayerKilled9"
link(onReplace,16660670:doSearch,[])
}
Add(StrList,4414373,525,189)
{
}
Add(ArrayCountRepeats,4766785,539,259)
{
link(onCount,14185035:doStr,[])
link(Array,4414373:Array,[])
}
Add(BlockFind,16660670,476,182)
{
IncludeBlock=1
Delete=0
StartBlock=" "
EndBlock="["
link(onEndSearch,4414373:doAdd,[])
}
Add(MT_String,14185035,588,259)
{
Delimeter=" "
link(onResult,3424103:doEvent1,[])
}
Add(Message,1158065,210,336)
{
Message="End of Filtered"
}
Add(Edit,3612959,721,189)
{
Left=5
Top=5
Width=395
Cursor=1
Text=""
}
Add(Hub,3424103,637,259)
{
OutCount=3
link(onEvent1,3612959:doText,[(679,265)(679,195)])
link(onEvent2,7177860:doProcessMessages,[(686,272)(686,237)])
link(onEvent3,15424801:doAdd,[])
}
Add(Application,7177860,721,231)
{
Wait=1
}


А вот так с файловым диалогом и просмотром результата в Memo


Add(MainForm,2953706,63,140)
{
Width=542
Height=375
Caption="Log_Filtered"
Position=1
}
Add(StrList,15424801,847,273)
{
Point(doSort)
link(FileName,7805996:Var2,[])
}
Add(Button,11584877,63,182)
{
Left=235
Top=310
Width=60
TabOrder=-1
Caption="Filtered"
link(onClick,10378579:doEvent1,[])
}
Add(BlockFind,4059547,462,182)
{
StartBlock="PlayerKilled"
EndBlock="]"
link(onSearch,2288523:doReplace,[])
}
Add(Charset,6235083,413,182)
{
Type=9
link(onCharset,4059547:doSearch,[])
}
Add(FileStream,10959428,315,182)
{
FileName="20121123_events.log"
link(onLoad,14499661:doConvert,[])
}
Add(StreamConvertor,14499661,364,182)
{
Mode=6
link(onResult,6235083:doCharset,[])
}
Add(Hub,10378579,119,182)
{
OutCount=7
link(onEvent1,2828444:doExecute,[(161,188)(161,139)])
link(onEvent2,10959428:doClose,[])
link(onEvent3,4766785:doCount,[(216,202)(216,265)])
link(onEvent4,15424801:doSort,[(208,209)(208,321)])
link(onEvent5,15424801:doSave,[(200,216)(200,314)])
link(onEvent6,1158065:doMessage,[(192,223)(192,342)])
link(onEvent7,5443624:doLoad,[(184,230)(184,412)])
}
Add(Replace,2288523,511,182)
{
SubStr="PlayerKilled9"
link(onReplace,16660670:doSearch,[])
}
Add(StrList,4414373,609,189)
{
}
Add(ArrayCountRepeats,4766785,623,259)
{
link(onCount,14185035:doStr,[])
link(Array,4414373:Array,[])
}
Add(BlockFind,16660670,560,182)
{
IncludeBlock=1
Delete=0
StartBlock=" "
EndBlock="["
link(onEndSearch,4414373:doAdd,[])
}
Add(MT_String,14185035,672,259)
{
Delimeter=" "
link(onResult,3424103:doEvent1,[])
}
Add(Message,1158065,210,336)
{
Message="End of Filtered"
}
Add(Edit,3612959,805,189)
{
Left=5
Top=285
Width=515
Cursor=1
Text=""
}
Add(Hub,3424103,721,259)
{
OutCount=3
link(onEvent1,3612959:doText,[(763,265)(763,195)])
link(onEvent2,7177860:doProcessMessages,[(770,272)(770,237)])
link(onEvent3,15424801:doAdd,[])
}
Add(Application,7177860,805,231)
{
Wait=1
}
Add(ODialog,2828444,182,133)
{
Filter="*.log|*.log"
link(onExecute,5741477:doEvent1,[])
}
Add(Hub,5741477,238,133)
{
link(onEvent1,5196492:doSplit,[])
link(onEvent2,10959428:doOpen,[(284,146)(284,188)])
}
Add(StrCat,6925969,854,133)
{
Str2=".txt"
}
Add(MultiStrPart,5196492,315,133)
{
Char="."
Count=1
Direct=1
link(onSplit,6925969:doStrCat,[])
}
Add(Memo,5443624,245,378)
{
Left=5
Top=5
Width=515
Height=275
Font=[Courier New,10,1,0,204]
ScrollBars=3
link(FileName,7805996:Var1,[(258,229)])
}
Add(GetDataEx,7805996,854,224)
{
link(Data,6925969:Result,[])
}

карма: 22

0