#sha
Add(MainForm,2953706,21,105)
{
Width=869
Height=464
}
Add(Button,9160134,224,224)
{
Left=5
Top=15
Caption="Load"
Data=String(http://toropchin.com)
link(onClick,9735267:doNavigate,[])
}
Add(WebBrowser,9735267,294,224)
{
Left=5
Top=40
Width=845
Height=155
Point(doSavePage)
Point(Handle)
link(onStatus,8176606:doText,[])
link(URL,13923109:Value,[])
}
Add(Memory,13923109,294,175)
{
Default=String(http://mail.ru)
}
Add(Button,2149128,224,259)
{
Left=65
Top=15
Caption="Save"
Data=String(F:Мой проектАнализатор для оптимизаторов 00.txt)
link(onClick,9735267:doSavePage,[(275,265)(275,258)])
}
Add(Edit,8176606,350,238)
{
Left=5
Top=200
Width=215
}
Add(BlockFind,6905883,413,399)
{
Delete=0
StartBlock="<"
EndBlock=">"
link(onEndSearch,11989516:doAdd,[])
}
Add(BlockFind,16665272,301,385)
{
Delete=0
StartBlock="<script"
EndBlock="</script>"
link(onEndSearch,9648004:doSearch,[])
link(Text,9735267:Page,[])
}
Add(BlockFind,9648004,357,392)
{
Delete=0
StartBlock="<style"
EndBlock="</style>"
link(onEndSearch,6905883:doSearch,[])
}
Add(Button,3453212,224,385)
{
Left=125
Top=15
Caption="TagDel"
link(onClick,16665272:doSearch,[])
}
Add(Memo,11989516,483,406)
{
Left=5
Top=225
Width=845
Height=200
ScrollBars=3
}
Ответов: 176
Рейтинг: 12
|
|||
Нажимаем Go, сохраняем в текстовый файл, нажимаем кнопочку удаления тегов. И сравнимаем, что получилось. Мне нужно, чтобы получалось так как сохраняется страничка. Тэги удалять конечно можно, но если в исходном html полный бардак, то после удаления и в тексте будет полный бардак. Парсер html на HiAsm написать, конечно можно, но получится схемка размером в сотню мониторов (проверено- писал скачиватель сайтов). Гораздо проще подправить исходник WebBroeser и сохранять файл так как это делает IE, только без вывода диалогового окна. Такое вообще возможно или нет?
|
|||
карма: 0 |
|