正如题目所讲如何判断一文本文件中包含某一字符串?
解决方案 »
- 用语音猫实现来电显示的问题。就只有70分了
- 初学者问:如何编译包含有窗体得dll工程? 在线等 谢谢!
- FastReport2.5 如何 自定义涵数
- 新鲜免费的“兼职”小弟,不要也来看看呀!(天津)
- 使用Qreport时,为何无法打印?
- 用ADO連接MSSQL2000后.如何用ADOCommand進行查詢呢
- 请问如何防止程序重复执行
- 按两次按钮才有反应,右上角的对话框关闭按钮也一样
- 请问使用Ado,能实现BDE中的BatchMove的功能吗?如何去做??
- 为什么CSDN要扣我的专家分???我本来是2020的,今天怎么变成了1975了。。。。。
- 请问能在DELPHI中也调用VPF的报表设计器吗?
- 百分求助各位大侠,在delphi中使用moscomm控件读东西总是丢失字符出错?????
或者用AnsiContainsStr
(****************************************************************************
* 函数: substrs
* 功能: 按照切割符获取字符串中的子字符串
* 作者: tiger
* 日期: 2005-08-01
* 参数: ASourceStr:string; --字符串
* 参数: ASeparatorChar:Char; --切割符 (用#9,#0)
* 参数: i:Integer 子字符串位置,从0开始计数
* 返回值: string --返回子字符串
****************************************************************************)
function substrs(ASourceStr:string;ASeparatorChar:Char;i:Integer):string;
var
s:string;
ipos,n:integer;
begin
s:=ASourceStr;
n:=0;
ipos:=Pos(ASeparatorChar,s);
while ipos<>0 do
if i=n then
begin
s:=copy(s,1,Ipos-1) ;
break;
end
else
begin
delete(s,1,ipos);
n:=n+1;
ipos:=Pos(ASeparatorChar,s);
end;
if n<i then
s:='';
Result:=s;
end;
这是一个字符的,多个字符的类似
Pos('is', s) 的结果就是 6 。负责的可能要用到专门的库,比如正则表达式之类的。
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
smtp,str:string;
begin
str:='lff';{需查找的字符}
if OpenDialog1.Execute then begin
sl:=TStringList.Create;
sl.LoadFromFile(OpenDialog1.FileName);
smtp:=sl.Text;
if pos(str,smtp)>0 then
showmessage('找到')
else
showmessage('找不到');
sl.Free;
end;end;
var sl: TStringList;
smtp,str:string;
begin
str:='lff';
if OpenDialog1.Execute then begin
sl:=TStringList.Create;
sl.LoadFromFile(OpenDialog1.FileName);
smtp:=sl.Text;
if pos(AnsiUpperCase(str),AnsiUpperCase(smtp))>0 then
showmessage('找到')
else
showmessage('找不到');
sl.Free;
end;end;