| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/11/25 0:19:56 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我有如下的一文本,现在我想取出其中的超连接文本和url应该怎么写 <table width="100%" border="0" cellspacing="0" cellpadding="4"> <tr> <td bgcolor="F0F0F0" class="S" align="right"> 显示 1-10 条 共 41 条 5 页 <strong>1</strong> <a href="/athena/offerlist/qianliwei-default-2-false.html">2</a> <a href="/athena/offerlist/qianliwei-default-3-false.html">3</a> <a href="/athena/offerlist/qianliwei-default-4-false.html">4</a> <a href="/athena/offerlist/qianliwei-default-5-false.html">5</a> </td> </tr> </table> 我想取出共5页的5和2 ,3 ,4的连接和文本都要取出来的文本格式像这样 5 2 /athena/offerlist/qianliwei-default-2-false.html 3 /athena/offerlist/qianliwei-default-3-false.html 4 /athena/offerlist/qianliwei-default-4-false.html 5 /athena/offerlist/qianliwei-default-5-false.html ---------------------------------------------- | | 凡事无绝对 | | 不须太强求 | | |
|||||
| 作者： |
|
2003/11/25 2:15:39 | ||||
| 1楼： | 字符串操作就可以 ---------------------------- function GetToken(var InTxt : String; SpaceChar : CharSet) : String; var i : Integer; begin { Find first SpaceCharacter } i:=1; While (i<=length(InTxt)) and not (InTxt[i] in SpaceChar) do inc(i); { Get text upto that spacechar } Result := Copy(InTxt,1,i-1); { Remove fetched part from InTxt } Delete(InTxt,1,i); { Delete SpaceChars in front of InTxt } i:=1; While (i<=length(InTxt)) and (InTxt[i] in SpaceChar) do inc(i); Delete(InTxt,1,i-1); end; --------------------------------- 上面的代码是可以按照某个分割符号分割字符串，同样的原理可以达到你的要求，具体怎么写我就不写了，我比较懒。 ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2003/11/25 2:47:36 | ||||
| 2楼： | 不对! ---------------------------------------------- | | 凡事无绝对 | | 不须太强求 | | |
|||||
| 信息 |
| 登陆以后才能回复 |
