请教,WEBBrowser控件,找指定文字后面的文字......................................

Question

uses MSHTMLwebbrowser打开页面后：
---------------------
var str:string;
    HTML1: IHTMLDocument2;
begin
HTML1:= WebBrowser1.document as IHTMLDocument2;
str:=HTML1.body.OuterText;
if pos('姓名:',str)>0 then
showmessage('包含1234');
end;
以上代码是用webbrowser打开网站后,然后看是否存在字符串 '姓名:',测试可用,问题是,我想知道'姓名:'后面的字符串是什么,该如何做到?比如说这个网站里的一行字符串是   姓名:张三  或者 姓名:李四四那么我想获得'姓名:'后的字符串也就是获得 '张三' 或者获得'李四四'当然,这个网站的内容我可以改...请教...

Answer 1

最简的方法,用pos找到姓名的位置(这个你已经做了),然后1个1个字符往下判,直到你认为姓名结束的地方(空格?或其它或长度)
另外的方法是用正则表达式(网上有多个delphi的正则表达式控件下一载的)

Answer 2

可以先用iPos1 := Pos('姓名:', str)找到第一个位置，然后用iPos2 := Pos('', str)，最后Copy(str, iPos1 + Length(姓名:), iPos2 - iPos1 - Length(姓名:))就可以得到名字了。

Answer 3

读你的姓名所在的标签，根据标签的结束符截取，不知道你要干啥，可不可以使用xmlhttp，那样的话就简单了