如何判断一个文件文件中有多少个“爱你”字符的数量?(110分)

  • 主题发起人 主题发起人 skuk11
  • 开始时间 开始时间
reset ,read
 
晕,给点俱体解决的代码啊~
 
pos('爱你',文本);
copy后面的字符串
inc
循环
 
xuegaoyili 大哥能给详细点代码吗?
 
panel的信息?panel.caption?还是panel的所有属性信息?
不过没关系,只要是你自己写的,你就肯定可以读出来。

文本文件操作方式:
var
tfile : textfile;

if not FileExists(LogFileName) then
begin
MessageBox(0,'文件不存在!','提示',0);
Exit;
end
else
try
AssignFile(tFile,LogFileName);
//读取文件
Reset(tFile);
while not EOF(tFile) do
begin
ReadLn(tFile,sRead);
...
end;
{
//写文件
Append(tfile);
writeln(tfile,'aaaaaa');
flush(tfile);
}
CloseFile(tFile);
except
try
CloseFile(tFile);
finally
end;
end


這是一個讀取文本文件的方法,在循環中應該可以實現
 
不错~学习
 
while true do
begin
if Pos(OldStr,RuleStr) > 0 then //找到原字符串名称
begin
RuleStr:= StringReplace(RuleStr,OldStr,NewStr,[rfreplaceall])
//替换字符串
end
else
begin
break
//跳出循环
end;
end
//endwhile

可以参考一下.
 
function Occurs(const ASubStr, ASrcStr: string): Integer;
var
iOffset, iSubLen: Integer;
begin
Result := 0;
iOffSet := 1;
iSubLen := Length(ASubStr);
while True do
begin
iOffSet := PosEx(ASubStr, ASrcStr, iOffset);
if iOffSet = 0 then
Break
else begin
Inc(Result);
Inc(iOffset, iSubLen);
end;
end;
end;
 
对于一篇长的字符串,必须考虑效率。Delphi的PosEx比较不错!
 
多人接受答案了。
 
后退
顶部