网页文件源码如下:
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>标题</title>
<STYLE type='text/css'>请问各位,在不打开该文件的情况下,将<title></title>之间的文字提取出来显示在Label中的代码怎样写呢?
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>标题</title>
<STYLE type='text/css'>请问各位,在不打开该文件的情况下,将<title></title>之间的文字提取出来显示在Label中的代码怎样写呢?
解决方案 »
- 谁能给个好用的四舍五入函数?
- 高分求问,Lookup问题!!!!!!!!!!!!!
- 如何实现文本的分块选取(如UltraEdit等编辑器的列块模式)
- 高手请进,一个奥林匹克的运算优化----------------在线等。。。
- 怎样让Delphi写出小体积的程序,如某些Delphi病毒?
- 求职
- 小问题!?
- 我想开发一个中大型的软件系统(既是信息系统),如何筹划,如何起步..
- MYSQL数据库是否支持中文字段名?
- 请问如何断开拨号上网时所建立的网络连接?
- 如何计算字符型表达式如:12+3*5/10的值,返回数值型结果13。5
- 已知TREEVIEW中某个节点的X,Y,那如何用代码来选中那个节点??
SL: TStringList;
begin
SL := TStringList.Create;
SL.LoadFromFile('filename.htm');
Label1.Caption := Copy(SL.Text, Pos('<title>', SL.Text) + Length('<title>'), Pos('</title>', SL.Text) - Pos('<title>', SL.Text) - Length('<title>'));
SL.Free;
end;