StrF := TStringList.Create;
StrF1 := TStringList.Create;
try
StrF.LoadFromFile('d:\log\' + FormatDateTime('yyyymmdd', Now()) + '.log');
StrF1.LoadFromFile(FilePath + 'reply.txt');
StrF.Add(FormatDateTime('yyyymmddhhmmss', Now()));
StrF.Add('XX传出:' + StrF1.Text);
StrF.Add('------------- ');
StrF.SaveToFile('d:\log\' + FormatDateTime('yyyymmdd', Now()) + '.log');
finally
StrF1.Free;
StrF.Free;
end;
上面的省略了,就是从另外一个不断下载增加的txt文件读取资料然后存到D盘的log里面,现在的问题就是结果这个log里面的文件很大有30M,里面的数据还有很多多余的数据,我要怎么改才能不读取那些多余重复的数据
StrF1 := TStringList.Create;
try
StrF.LoadFromFile('d:\log\' + FormatDateTime('yyyymmdd', Now()) + '.log');
StrF1.LoadFromFile(FilePath + 'reply.txt');
StrF.Add(FormatDateTime('yyyymmddhhmmss', Now()));
StrF.Add('XX传出:' + StrF1.Text);
StrF.Add('------------- ');
StrF.SaveToFile('d:\log\' + FormatDateTime('yyyymmdd', Now()) + '.log');
finally
StrF1.Free;
StrF.Free;
end;
上面的省略了,就是从另外一个不断下载增加的txt文件读取资料然后存到D盘的log里面,现在的问题就是结果这个log里面的文件很大有30M,里面的数据还有很多多余的数据,我要怎么改才能不读取那些多余重复的数据
也可考虑用StringReplace