Вверх ↑
Разработчик
Ответов: 26170
Рейтинг: 2127
#1: 2009-10-28 17:39:25 ЛС | профиль | цитата
zbot писал(а):
Но мне больше интерестно как организовать поиск внутри фаила..

Как-то, вот так



Add(MainForm,12140628,154,119)
{
Width=518
Height=350
Font=[Courier New,12,1,0,204]
Caption="myAC Log Parser"
DragForm=0
Position=1
link(onCreate,5952026:doEvent1,[])
}
Add(FileSearch,12701374,364,203)
{
Ext="*.log"
SubDir=1
FullName=1
link(onSearch,9248766:doEvent1,[])
link(Dir,15551542:Text,[])
}
Add(Ini,14242193,448,133)
{
FileName="settings.ini"
Section="main"
Key="LogPath"
Type=1
}
Add(Browse,13526288,315,140)
{
Title="Укажите папку с логами myAC"
NewDirButton=1
link(onBrowse,15551542:doText,[])
}
Add(Edit,15551542,371,140)
{
Left=5
Top=25
Width=195
Height=25
Text="Укажите путь до папки с логами"
link(onChange,14242193:doWrite,[])
}
Add(Button,1229834,266,140)
{
Left=205
Top=25
Height=25
Caption="Выбрать"
Data=String()
link(onClick,13526288:doBrowse,[])
}
Add(Label,8827408,154,77)
{
Left=5
Top=60
Width=299
Height=25
Font=[Courier New,10,1,0,204]
Caption="теперь укажите тип поисковых данных"
}
Add(RadioButton,15683344,350,406)
{
Left=10
Top=95
Width=95
Caption="FILE_N_R"
link(onSelect,16043851:doEvent1,[])
}
Add(Button,10700695,266,196)
{
Left=270
Top=30
Caption="Искать!"
link(onClick,11658767:doEvent1,[])
}
Add(FileStream,15063075,448,203)
{
link(onLoad,14014708:doWork1,[(521,209)(521,243)(417,243)])
}
Add(BlockFind,9080930,560,266)
{
EndBlock=":"
Point(doStartBlock)
Point(onNotFind)
link(onSearch,11330439:doEvent1,[])
link(onNotFind,11888998:doWork1,[(613,286)])
}
Add(Ini,9120168,329,462)
{
FileName="settings.ini"
Section="search"
Key="FILE_N_R"
link(onResult,15683344:doSelect,[(377,468)(377,501)(305,501)(305,412)])
link(Value,15683344:Selected,[])
}
Add(Hub,16043851,392,406)
{
link(onEvent1,9120168:doWrite,[(420,412)(420,387)(317,387)(317,475)])
link(onEvent2,7613677:doData,[])
}
Add(Hub,9248766,413,203)
{
link(onEvent1,15063075:doOpen,[])
link(onEvent2,15063075:doClose,[])
}
Add(Hub,5952026,217,133)
{
link(onEvent1,14242193:doRead,[])
link(onEvent2,9120168:doRead,[(250,146)(250,468)])
}
Add(DataToFile,5698391,448,266)
{
Type=7
Point(Position)
link(onGet,15846377:doValue,[])
link(Stream,15063075:Stream,[])
}
Add(DoData,7613677,441,413)
{
Data=String(FILE_N_R)
link(onEventData,9080930:doStartBlock,[(545,419)(545,279)])
}
Add(HubEx,14014708,413,273)
{
link(onEvent,5698391:doGet,[])
}
Add(Hub,11330439,616,266)
{
link(onEvent1,5433190:doAdd,[])
link(onEvent2,11888998:doWork2,[(642,279)(642,383)])
}
Add(Memory,15846377,497,266)
{
link(onData,9080930:doSearch,[])
}
Add(ListBox,5433190,679,266)
{
Left=10
Top=125
Width=485
Height=180
link(Str,15846377:Value,[(685,251)(553,251)(553,310)(503,310)])
}
Add(If_else,1739219,455,336)
{
Type=4
link(onFalse,14014708:doWork3,[(499,349)(499,315)(417,315)])
link(Op1,5698391:Position,[])
link(Op2,15063075:Size,[(468,286)(461,286)])
}
Add(HubEx,11888998,609,377)
{
Angle=2
link(onEvent,1739219:doCompare,[(439,383)(439,342)])
}
Add(Hub,11658767,315,196)
{
link(onEvent1,5433190:doClear,[(661,202)(661,279)])
link(onEvent2,12701374:doSearch,[])
}


Поиск в подпапках я отключил, чтобы не шерстить все папки
карма: 22

1
Голосовали:zbot