nesco писал(а):
Дв будет тебе известно, что StrList читает и может хранить сотни мегабайт текста 
------------ Дoбавленo в 22.16:
_SG_ писал(а):
Большое количество пустого пространства и пару строк чуши которой вроде нет в документе хотя чуш с "@"Tad писал(а):
Перед RichEdit вставь свой парсинг.Add(MainForm,2953706,119,56)
{
}
Add(Button,124001,119,105)
{
Left=110
Top=310
Width=140
Caption="Выбрать документ"
link(onClick,16681917:doExecute,[])
}
Add(ODialog,16681917,168,105)
{
Filter="Html|*.html|Все файлы|*.*"
FileName="Havij.html"
link(onExecute,3681912:doSearch,[])
}
Add(SearchInFile,3681912,238,105)
{
Text="@"
link(onSearch,11494552:doEvent1,[])
}
Add(RichEdit,16374320,455,112)
{
Left=305
Top=90
}
Add(BlockFind,8875233,378,161)
{
IncludeBlock=1
Delete=0
StartBlock="bgcolor="#FFF7F2">"
EndBlock="</td>"
link(onSearch,2512840:doWork3,[(431,167)])
}
Add(BlockFind,7379968,378,112)
{
IncludeBlock=1
Delete=0
StartBlock="bgcolor="#FFFFFF">"
EndBlock="</td>"
link(onSearch,2512840:doWork2,[])
}
Add(Hub,11494552,308,112)
{
link(onEvent1,7379968:doSearch,[])
link(onEvent2,8875233:doSearch,[(350,125)(350,167)])
}
Add(HubEx,2512840,427,112)
{
link(onEvent,16374320:doAdd,[])
}
Поиск
Друзья
Администрация