如何利用DELPHI开发搜索引擎的机器人程序

感谢楼上两位,我的设法主意是应用delphi做一个机械人法度榜样抓WEB页到SQL

SERVER琅绫擎,然后用ASP做一个萌芽法度榜样出来,如许的设法主意是不是太无邪了?

不知道楼主是不是想做一个记事本程序.

若用查找控件的话,使用下面的代码即可实现:

with RichEdit1 do

begin

if SelLength <>0 then

StartPos := SelStart + SelLength

else

StartPos := 0

ToEnd := Length(Text) - StartPos

FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase])

if FoundAt <>-1 then

begin

for i := 0 to RichEdit1.Lines.Count - 1 do

if pos(FindDialog1.FindText,Richedit1.Lines[i]) <>0 then

Memo1.Lines.Add('在第 '+IntToStr(i + 1) + ' 行找到'+FindDialog1.FindText)

end

else

showmessage('找不到�'+#39+Finddialog1.FindText+#39)

end

如果不用FindDialog控件的话,直接在button按钮下完成:

procedure TForm1.Button2Click(Sender: TObject)

var

i : integer

begin

for i := 0 to RichEdit1.Lines.Count -1 do

begin

if pos(trim(Edit1.Text),RichEdit1.Lines[i]) <>0 then

Memo1.Lines.Add('�材 '+IntToStr(i + 1) + ' 《т�'+FindDialog1.FindText)

end

end

---