帮忙修改该程序 实现自动删除批处理文件中的重复项中的一项
二憨兄或者那么高手看到帮忙修改下
该批处理文件中只有2项和4项两种相同项（相同项是连续的） 要求运行后2项的不变 4项的相同项变成3项
例如111 变成 111
111 111
222 222
222 222
333 333
333 333
333 333
333
procedure TForm1.Button1Click(Sender: TObject);
var
ss: TStringList;
i: integer;
md: integer;
begin
ss := TStringList.Create;
ss.LoadFromFile('d:\in.bat');
md := 0;
i:=1;
while i<ss.Count do
begin
if ss[i]=ss[i-1] then
begin
if md>2 then
begin
ss.Delete(i);
continue;
end;
Inc(md);
end
else
md := 0;
Inc(i);
end;
ss.SaveToFile('d:\out.bat');
ss.Destroy;
WinExec('d:\out.bat',SW_SHOWNORMAL);
end;
[解决办法]
Inc(md);这句向上移
放到if md>2 then之上
