请教个字符文件方面的问题
1192.168.1.2chatopchatop139
1192.168.1.2chatopchatop77
1192.168.1.2chatopchatop42
1192.168.1.2chatopchatop58
1192.168.1.2chatopchatop66
1192.168.1.2chatopchatop13
1192.168.1.2chatopchatop36
//有一个如上所列的txt文件
我如何才能取得最后一条记录呢?而这个文件是实时增加内容的,内容格式也如上面一样
我想取出最后一条内容(1192.168.1.2chatopchatop36)
请问一下,应该怎么做?
还有,如果取出了1192.168.1.2chatopchatop36,,我应该如何去取前面第一个区间的内容呢?
1 <-取这个1 192.168.1.2
1有可能会是1-1000的数字
意思是说,这个1有可能1位数,也有可能4位数
望解答,谢谢
[解决办法]
没有直接对TXT文件进行操作,但是可以导入数据库里面,在得到他最后的一条记录,然后在进行你以后的操作就比较好整了
[解决办法]
getEndPos(filename:String):string;
var
temp:TStringList;
str:String;
begin
if not fileexists(filename) then exit;
temp:=TStringList.Create;
try
temp.loadfromfile(filename);
str:=temp.strings[temp.count-1];
result:=copy(str,1,pos( ' ',str));
finally
temp.free;
end;
end;
[解决办法]
var
F : TextFile;
S : string;
begin
AssignFile(F, 'C:\TEST.TXT ');
Reset(F);
while Not Eof(F) do //对File操作不熟悉,所以我用了一个while循环取最末一行
ReadLn(F, S);
S := Copy(S, 1, Pos(#9, S)-1); //我注意到你的Txt里的空格是一个跳格即#9,如果是半角空格请换成#32
showmessage(S); //此时S就是你要的字符串
CloseFile(F);
end;