关于.txt 文本的内容判断？进来看看，谢谢了！

floatleaf 2003-08-22 01:43:32

[HEAD]
LineNo = 01
Station = Master_Cleaning
FixtureNo = 1
Mode = PHS-F16
Version = 001
UserName = 02-SOWRITER01:ut1
MFG ID = 112455700
StartTime = 20030822125956
EndTime = 20030822130018
Result = PASS
[BEGIN]
001 =PASS
002 =112455700
003 =5
004 =PASS
005 =PASS
006 =PASS
[END]
一个如上所示的.txt文档，我如何能动态地知道它的[BEIGN][END]关键字中间共有几项？比如上面的例子有6项，但是下一个文档有几项我就不知道了，因为它的项数是在不断变化的,不变的是肯定在[BEIGN] [END]关键字中间。

...全文

32 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

floatleaf 2003-08-22

打赏
举报

lxpbuaa 2003-08-22

打赏
举报

var
Strs: TStrings;
Count: Integer;
begin
Strs := TStringList.Create;
Strs.LoadFromFile('g:\aa.txt');
Count := Strs.IndexOf('[END]') - Strs.IndexOf('[BEGIN]') - 1;
Strs.Free;
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————