Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2017-07-17 20:10:28 ЛС | профиль | цитата
wvlas, можно и через файл, и через ListBox. Пример поиска в файле 10 шт символов (экспериментировал с файлом License.txt из HiAsm)
пример поиска


Add(Button,5150873,98,63)
{
Left=20
Top=15
Caption="Открыть"
link(onClick,5446505:doExecute,[])
}
Add(ODialog,5446505,154,63)
{
Filter="TXT|*.txt"
link(onExecute,4306220:doEvent1,[])
}
Add(FileStream,9377437,315,63)
{
Point(doPosition)
}
Add(DataToFile,2033716,315,133)
{
Point(Position)
Point(doPosition)
link(onGet,6708181:doConvert,[])
link(Stream,11321535:Var2,[])
}
Add(Hub,4306220,196,63)
{
link(onEvent1,9377437:doOpen,[])
link(onEvent2,5467044:doOperation,[(221,76)(221,83)])
}
Add(Button,12951053,98,140)
{
Left=90
Top=15
Caption="Искать"
link(onClick,15388179:doFor,[])
}
Add(Convertor,6708181,364,133)
{
Mode=4
link(onResult,11216222:doWork2,[])
}
Add(Math,5467044,231,77)
{
OpType=1
Op2=1
ResultType=0
link(onResult,9377437:doPosition,[])
link(Op1,12349670:Var3,[(237,61)(272,61)])
}
Add(Hub,16541756,245,140)
{
link(onEvent1,2033716:doGet,[])
link(onEvent2,13622628:doOperation,[])
}
Add(MemFifo,7677535,441,133)
{
Default=String()
Count=10
link(onData,10160869:doString,[(522,139)(522,125)(431,125)(431,188)])
}
Add(FormatStr,10160869,441,182)
{
DataCount=10
Mask="%1%2%3%4%5%6%7%8%9%10"
Point(FString)
link(onFString,16521736:doCompare,[])
link(Str1,7677535:Value1,[])
link(Str2,7677535:Value2,[])
link(Str3,7677535:Value3,[])
link(Str4,7677535:Value4,[])
link(Str5,7677535:Value5,[])
link(Str6,7677535:Value6,[])
link(Str7,7677535:Value7,[])
link(Str8,7677535:Value8,[])
link(Str9,7677535:Value9,[])
link(Str10,7677535:Value10,[])
}
Add(Edit,8409296,539,133)
{
Left=155
Top=15
Width=70
Text=" сообщать "
}
Add(Math,13622628,273,147)
{
OpType=1
Op2=2
ResultType=0
link(onResult,2033716:doPosition,[])
link(Op1,369914:Var2,[])
}
Add(If_else,16521736,539,182)
{
Type=5
link(onFalse,2832107:doEvent1,[])
link(Op1,8409296:Text,[])
}
Add(For,15388179,154,140)
{
Start=1
IncludeEnd=1
onBreakEnable=0
Point(onBreak)
link(onEvent,16541756:doEvent1,[])
link(onStop,16392108:doString,[(235,153)(235,195)])
link(End,3026465:Var1,[(167,110)])
link(onBreak,3197531:doOperation,[(193,160)(193,237)])
}
Add(GetDataEx,12349670,266,98)
{
Angle=1
link(Data,9377437:Size,[(328,103)])
}
Add(Message,10232249,294,231)
{
Caption="Найдено!"
}
Add(Math,3197531,203,231)
{
OpType=1
Op2=11
link(onResult,6915930:doStrCat,[])
link(Op1,2373242:Var2,[])
}
Add(GetDataEx,369914,273,115)
{
Angle=1
link(Data,9377437:Position,[(335,120)])
}
Add(StrCat,6915930,245,231)
{
Str1="Позиция №"
link(onStrCat,10232249:doMessage,[])
}
Add(Message,12457358,294,189)
{
Caption="Не найдено"
}
Add(FormatStr,16392108,245,189)
{
DataCount=1
Mask="Проверено %1 байт"
link(onFString,12457358:doMessage,[])
}
Add(DataToFile,6141953,280,392)
{
Type=8
Point(doPosition)
link(onGet,3962294:doEnum,[])
link(Stream,11321535:Var1,[(286,278)(314,278)(314,110)])
}
Add(GetDataEx,11321535,315,105)
{
link(Data,9377437:Stream,[])
}
Add(Button,7309271,35,392)
{
Left=25
Top=70
Width=115
Caption="Искать строки"
link(onClick,11457934:doEvent1,[])
}
Add(Str_Enum,3962294,329,392)
{
Delimiter=""
Direct=1
link(onEnum,11216222:doWork3,[(417,398)])
}
Add(HubEx,11216222,413,133)
{
link(onEvent,7677535:doValue,[])
}
Add(Thread,606038,112,399)
{
Delay=0
link(onExec,1043381:doCompare,[])
}
Add(If_else,1043381,196,399)
{
Type=2
link(onTrue,6141953:doGet,[])
link(onFalse,15998017:doString,[(235,412)(235,454)])
link(Op1,9761314:Var2,[])
link(Op2,15293105:Var2,[])
}
Add(GetDataEx,3026465,182,105)
{
Angle=1
link(Data,12349670:Var2,[(191,110)(272,110)])
}
Add(GetDataEx,2373242,203,196)
{
link(Data,369914:Var1,[(209,120)])
}
Add(Hub,2832107,581,189)
{
link(onEvent1,15388179:doStop,[(606,195)(606,272)(144,272)(144,153)])
link(onEvent2,16006013:doEvent1,[(613,202)(613,440)(39,440)(39,454)])
}
Add(Message,6097863,252,490)
{
Caption="Найдено!"
}
Add(StrCat,6086981,203,490)
{
Str1="Позиция №"
link(onStrCat,6097863:doMessage,[])
link(Str2,15293105:Var3,[(216,383)])
}
Add(Message,7093953,308,448)
{
Caption="Не найдено"
}
Add(FormatStr,15998017,252,448)
{
DataCount=1
Mask="Проверено %1 байт"
link(onFString,7093953:doMessage,[])
link(Str1,9761314:Var3,[(258,432)(251,432)(251,376)])
}
Add(GetDataEx,9761314,196,371)
{
link(Data,3026465:Var2,[(202,131)(188,131)])
}
Add(Hub,16006013,49,448)
{
link(onEvent1,6086981:doStrCat,[(158,454)(158,496)])
link(onEvent2,132615:doStart,[])
}
Add(Thread,132615,84,455)
{
Delay=0
FastStop=0
link(onExec,606038:doStop,[(123,461)(123,447)(102,447)(102,412)])
}
Add(Hub,11457934,77,392)
{
link(onEvent1,9140562:doData,[(102,398)(102,349)])
link(onEvent2,606038:doStart,[])
}
Add(DoData,9140562,119,343)
{
Data=Integer(0)
link(onEventData,6141953:doPosition,[(256,349)(256,412)])
}
Add(InfoTip,1305607,28,329)
{
Info=#10:По строкам|
Font=[MS Sans Serif,12,1,255,1]
HAlign=2
Width=470
Height=200
}
Add(InfoTip,8401277,56,112)
{
Info=#14:По символам |
Font=[MS Sans Serif,12,1,255,1]
HAlign=2
Width=624
Height=179
}
Add(GetDataEx,15293105,203,378)
{
link(Data,2373242:Var3,[(209,278)(223,278)(223,201)])
}

карма: 19

0