delphi能否快速获得一个文本文件中某个字符的数目

[ATCG]

delphi能否快速获得一个文本文件中某个字符的数目

[ATCG]

就像LINUX的grep一样

[zswangII]

function SubStrConut( //计算子串的个数
mStr: string; //源字符串
mSub: string //子串
): Integer; //返回子串的个数
begin
Result := (Length(mStr) - Length(
StringReplace(mStr, mSub, '', [rfReplaceAll]))) div Length(mSub);
end; { SubStrConut }

//....
begin
with TStringList.Create do try
LoadFromFile('c:\temp\temp.txt');
Caption := IntToStr(SubStrConut(Text, 'a'));
finally
Free;
end;
end;

[pdbird]

晚也！

[ATCG]

这段代码好像有问题，不能编译通过
begin
with TStringList.Create do try
LoadFromFile('c:\temp\temp.txt');
Caption := IntToStr(SubStrConut(Text, 'a'));
finally
Free;
end;
end;

[肥仔胧]

学习

[zswangII]

-_-!!!!!

“//....”不明白是啥？～～

难道要这样你才明白？～～

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function SubStrConut( //计算子串的个数
mStr: string; //源字符串
mSub: string //子串
): Integer; //返回子串的个数
begin
Result := (Length(mStr) - Length(
StringReplace(mStr, mSub, '', [rfReplaceAll]))) div Length(mSub);
end; { SubStrConut }

procedure TForm1.FormCreate(Sender: TObject);
begin
with TStringList.Create do try
LoadFromFile('c:\temp\temp.txt');
Caption := IntToStr(SubStrConut(Text, 'a'));
finally
Free;
end;
end;

end.

[Sorder]

如果文本文件很小，可以这样处理，但是文件很大则最好一行一行的读，读取一行处理一行
，至少我认为系统处理的字符串长度毕竟有限制；

[ATCG]

不好意思啊。。
俺的文本很大的，小的 几百K ，大的 几百M

[ATCG]

这样很慢

[ATCG]

偶再顶～

[hanzq]

你采用遍历线索二叉树的算法来计算个数

[rongrongGsr]

这个比较高深，关注一把

[littlebao]

在delphi5开发人员指南得多线程里有一个例子，但偶看不懂。

[ghchen]

up```