在文件中的字符串查找(20分)

  • 主题发起人 主题发起人 xhcxhc200
  • 开始时间 开始时间
X

xhcxhc200

Unregistered / Unconfirmed
GUEST, unregistred user!
一个文件如下
<html><head><title></title><meta content='text/html; charset=gb2312' http-equiv='Content-Type'></head><body bgcolor=#f5f5ff><pre><font size=2 face=宋体>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>中国盟动力源码站-免费源码下载及软件项目交易发布</title>
<meta name="keywords" content="Blog,圈圈,源码,免费,DELPHI,下载,JAVA,PHP,MySQL,asp,jsp,free,open,source,论坛,tomore.com" />
我edit1.text 要等于'中国盟动力源码站-免费源码下载及软件项目交易发布'
我应该怎么定位!!1
 
一行一行地找
 
是否想过滤掉html 然后查找
 
我不要这样的查找,
我要的是全文检索,关键字检索,确定位置
<title>中国盟动力源码站-免费源码下载及软件项目交易发布</title>
他的行数的位置是随机的?
 
过滤掉html是什么意思?
 
比如:我要返回<title></title>之间的字符串.....
 
将文件读到一个widestring里，用pos('<title>', widestring)和pos('</title>', widestring)定位,然后用copy函数取子串
 
procedure TForm1.lvPageListChange(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
str:tstringlist;
i:integer;
begin
str:=tstringlist.Create;
str.LoadFromFile(edtdir1.Text+'/'+lvpagelist.Selected.Caption);
你能帮我改一下吗?
 
我后面应该怎么加?
我不知道你的意思
 
正则表达式匹配功能很强大，具体没研究过，语法太复杂了
 
楼主,给你来个源码,不过源码查找的是email地址,你改一下,应该完全可以解决你的问题了,不过用的确实是正则表达式,复杂的东西,但是有源码,应该可以看明白了吧.解析的也是网页!
http://www.2ccc.com/article.asp?articleid=2625
 
您必须登录或注册才可回复。

Similar threads

I
取得连接的文字
回复
0
查看
596
import
I
I
DELPHI AND THE INTERNET
回复
0
查看
768
import
I
I
RTF文件格式分析及在多媒体中的应用
回复
0
查看
710
import
I
I
自定义文件数据结构的一个支持单元
回复
0
查看
1K
import
I
I
定制IE 5.0
回复
0
查看
798
import
I
后退
顶部