Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p class="text1">4d </p>

---

类似xml解析

---

构造成xml结构方式解析最方便了。

---

先找到 </p>
ipos := Pos(' </p>', Data);
Data := Copy(Data, iPos + 4, Length(Data));
iPos := Pos(' <p class="text1">', Data);
jPos := Pos(' </p>', Data);
YourData := Copy(Data, iPos + 16, jPos - iPos - 16);

---

XML解析比较方便。