Вверх ↑
Ответов: 4631
Рейтинг: 749
#1: 2013-10-15 13:53:17 ЛС | профиль | цитата
SearchInFile
Хотя нет, есть ограничения на искомые данные.
------------ Дoбавленo в 13.53:
Вот так можно:

Add(Edit,2569219,329,196)
{
Left=10
Top=35
Width=360
Text="Test.bin"
}
Add(Label,686719,70,280)
{
Left=10
Top=15
Width=52
Height=17
Caption="File name:"
}
Add(Label,4099377,70,329)
{
Left=10
Top=70
Width=60
Height=17
Caption="Text to find:"
}
Add(Edit,2127360,504,189)
{
Left=10
Top=90
Width=360
Text="abcdef"
}
Add(Button,5573295,203,245)
{
Left=105
Top=125
Width=155
Height=30
Caption="Search"
link(onClick,15183183:doOpen,[])
}
Add(FileStream,15183183,329,245)
{
link(onLoad,13596021:doEvent1,[])
link(FileName,2569219:Text,[])
}
Add(Hub,13596021,399,245)
{
link(onEvent1,6440345:doConvert,[])
link(onEvent2,15183183:doClose,[(424,258)(424,300)(319,300)(319,258)])
}
Add(StreamConvertor,6440345,434,245)
{
Mode=6
link(onResult,4036626:doSearch,[])
link(Data,15183183:Stream,[(440,236)(378,236)(378,289)(335,289)])
}
Add(Position,4036626,497,245)
{
ZeroPos=0
link(onSearch,9264872:doCompare,[])
link(Target,2127360:Text,[])
}
Add(Message,8490310,679,245)
{
Caption="Found at position"
Icon=4
link(Message,4036626:Position,[(685,236)(554,236)(554,298)(503,298)])
}
Add(If_else,9264872,595,245)
{
Type=5
link(onTrue,8490310:doMessage,[])
link(onFalse,16259020:doMessage,[(669,258)(669,300)])
}
Add(Message,16259020,679,294)
{
Message="Not Found!"
Caption="Result"
Icon=3
}
карма: 26

0