比如C:\WINDOWS\Temp下有个temp.txt
内容如下:
--------------------------------------------------------------------------------------------------------------
TCP 221.72.14.74:1306 221.181.70.11:5926 ESTABLISHED
TCP 221.72.14.74:1306 221.181.70.11:5925 ESTABLISHED
TCP 221.72.14.74:3118 119.75.217.56:80 CLOSE_WAIT
TCP 221.72.14.74:3131 220.181.107.11:80 CLOSE_WAIT
TCP 221.72.14.74:3132 220.181.111.15:80 TIME_WAIT
--------------------------------------------------------------------------------------------------------------我要把最后一个不是ESTABLISHED的,这一行全部去掉,然后保存到temp.txt里
那么最终temp.txt内容应该是这样:
--------------------------------------------------------------------------------------------------------------
TCP 221.72.14.74:1306 221.181.70.11:5926 ESTABLISHED
TCP 221.72.14.74:1306 221.181.70.11:5925 ESTABLISHED
--------------------------------------------------------------------------------------------------------------要具体代码(txt是cmd里输入netstat -n后,导入的,格式都是这样的)
内容如下:
--------------------------------------------------------------------------------------------------------------
TCP 221.72.14.74:1306 221.181.70.11:5926 ESTABLISHED
TCP 221.72.14.74:1306 221.181.70.11:5925 ESTABLISHED
TCP 221.72.14.74:3118 119.75.217.56:80 CLOSE_WAIT
TCP 221.72.14.74:3131 220.181.107.11:80 CLOSE_WAIT
TCP 221.72.14.74:3132 220.181.111.15:80 TIME_WAIT
--------------------------------------------------------------------------------------------------------------我要把最后一个不是ESTABLISHED的,这一行全部去掉,然后保存到temp.txt里
那么最终temp.txt内容应该是这样:
--------------------------------------------------------------------------------------------------------------
TCP 221.72.14.74:1306 221.181.70.11:5926 ESTABLISHED
TCP 221.72.14.74:1306 221.181.70.11:5925 ESTABLISHED
--------------------------------------------------------------------------------------------------------------要具体代码(txt是cmd里输入netstat -n后,导入的,格式都是这样的)
解决方案 »
- 问一个简单SQL语句?
- 如何禁止弹出Internet Explorer脚本错误的提示框
- "Microsoft Layer for Unicode failed to initialize"这是什么错误?
- 分数大赠送!!!!!
- 我的TOpenDialog控件是不是坏了?
- 再这样下去,我会跳楼的!!!程序调试时乱跳!!!
- 老千,偶用wise封装数据库时,怎么不提示加入数据库文件呢?他只提示加入odbc别名,偶吧他生成exe文件时,报错,偶正在找原因//牛虻
- 如何实现:当鼠标在屏幕上(并非Form上)移动时,时时获得鼠标在屏幕上的坐标?
- 关于align的难题!!!(delphi)
- 请问<<Delphi5开发人员指南>>(机械工业出版社出版)南京有卖吗?
- 一个简单问题,delphi中指针可以用不.
- 大牛们,我新手,DELPHI如何控制外部程序的WEB browser 控件?
var
list:TStringList;
i,len:Integer;
s:string;
begin
s := 'ESTABLISHED';
len := Length(s);
list := TStringList.Create;
list.LoadFromFile('c:\\2.txt');
for i := list.Count - 1 downto 0 do
begin
if Copy(list.Strings[i],Length(list.Strings[i])-len+1,len) <> s then
list.Delete(i);
end;
list.SaveToFile('c:\1.txt');
list.Free;
end;
如果会出错的话,这样 var
list,list1:TStringList;
i,len:Integer;
s:string;
begin
s := 'ESTABLISHED';
len := Length(s);
list := TStringList.Create;
list1:= TStringList.Create;
list.LoadFromFile('c:\2.txt');
for i := list.Count - 1 downto 0 do
begin
if Copy(list.Strings[i],Length(list.Strings[i])-len+1,len) = s then
list1.Add(list[i]);
end;
list1.SaveToFile('c:\1.txt');
list.Free;
list1.Free;
end;
var
i : Integer;
Content : TStrings;
begin
Content := TStringList.Create;
try
Content.LoadFromFile(FileName); for i := Content.Count - 1 downto 0 do
begin
if AnsiEndsText('ESTABLISHED', Trim(Content[i])) then
Content.Delete(i);
end; Content.SaveToFile(FileName);
finally
Content.Free;
end;
end;