如何匹配字符？(50分)

M

moon_qiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #1

我的程序里有用NMHTTP.Get读取的body，将它赋值给一个string变量，如何从这个变量里边读取
我需要的字符，比如<Title>

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #2

举个例子
s:='sdfsdfsdf<title>大富翁论坛 delphibbs.com</title>sdfsdfsdf';
i:=pos('<title>',s);//查找<title>位置，如有返回值为位置，如果没有返回为0就退出程序
if i=0 then
exit
else
if j=0 then
exit
else
beign
s:=copy(s,i+7,j-i-7);//s中就为<title>和</title>间的字符串
end;

 

M

moon_qiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #3

j是什么？

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #4

var i,j:integer;
i记录<title>出现的位置，j记录</title>出现的位置
函数pos(substring:string;deststr:string):integer;用来返回子串substring在字符串
deststr第一次出现的位置。

 

M

moon_qiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #5

接受答案了.