Подскажите пожалуста процедуру

← →
ceval © (2005-03-06 13:02) [0]

Подскажите пожалуста процедуру или код поиска строки и ее удаления в текстовом файле

← →
Palladin © (2005-03-06 13:11) [1]

Procedure RemoveString(Const p_strFileName,p_strWhat:String);
Var
F,T:Text;
S:String;
Begin
AssignFile(F,p_strFileName);Reset(F);
AssignFile(T,"temp"); Rewrite(T);
While Not Eof(F) Do
Begin
ReadLn(F,S);
If S<>p_strWhat Then WriteLn(T,S);
End;
CloseFile(F);
CloseFile(T);
DeleteFile(p_strFileName);
CopyFile("temp",p_strFileName);
DeleteFile("temp");
End;

← →
ferr © (2005-03-06 13:11) [2]

pos и кампания

← →
Anatoly Podgoretsky © (2005-03-06 13:59) [3]

Переписывать весь файл, другого варианта нет.

← →
MU © (2005-03-06 14:22) [4]

если файл не очень большой
var SL : TStringList;
i : Integer;
....
SL.LoadFromFile("MyFile.txt");
i := SL.IndexOf(MyString);
while i >= 0 do
begin
SL.Delete(i);
i := SL.IndexOf(MyString);
end;
SL.SaveToFile("MyFile.txt");

← →
ceval © (2005-03-09 15:03) [5]

Procedure RemoveString(Const p_strFileName,p_strWhat:String);
Var
F,T:Text;
S:String;
Begin
AssignFile(F,p_strFileName);Reset(F);
AssignFile(T,"temp"); Rewrite(T);
While Not Eof(F) Do
Begin
ReadLn(F,S);
If S<>p_strWhat Then WriteLn(T,S);
End;
CloseFile(F);
CloseFile(T);
DeleteFile(p_strFileName);
CopyFile("temp",p_strFileName);
DeleteFile("temp");
End;
В этой страке выдает ошибку
[Error] Unit1.pas(102): Incompatible types: "String" and "PAnsiChar"
Почему ??

← →
MU © (2005-03-09 15:09) [6]

CopyFile("temp", PAnsiChar(p_strFileName), false);

← →
ceval © (2005-03-09 15:09) [7]

Мне подсказали процедуру,а как переделать,что бы удаляло всю строку,где есть искомая позиция.
Сейчас благодаря этой процедуре удаляется только в строке искомая позиции ,а не вся строка

procedure ReplaceInFile(const FileName, DelStr: string);
var MyText: TStringList;
Position: integer;
Str: string;
begin
MyText := TStringList.Create;
try
MyText.LoadFromFile(FileName);
Str := MyText.Text;
repeat
Position := pos(DelStr, Str);
if Position > 0 then Delete(Str, Position, Length(DelStr));
until Position = 0;
MyText.Text := Str;
MyText.SaveToFile(FileName);
except
on EFOpenError do ShowMessage("Не удалось открыть файл " + FileName);
on EFCreateError do ShowMessage("Не удалось создать файл " + FileName);
end;
MyText.Free;
end;

← →
ceval © (2005-03-09 16:52) [8]

Если не сложно то можно пример использывания Procedure RemoveString [1
]

← →
MU © (2005-03-09 16:59) [9]

procedure ReplaceInFile(const FileName, DelStr: string);
var MyText: TStringList;
Position: integer;
Str: string;
i : Integer;
begin
MyText := TStringList.Create;
try
MyText.LoadFromFile(FileName);
for i := MyText.Count - 1 downto 0 do
if pos(DelStr, MyText.Strings[i]) > 0 then
MyText.Delete(i);
MyText.SaveToFile(FileName);
except
on EFOpenError do ShowMessage("Не удалось открыть файл " + FileName);
on EFCreateError do ShowMessage("Не удалось создать файл " + FileName);
end;
MyText.Free;
end;

БОЛЬШОЕ СПАСИБО все ОСОБЕННО MU !!
Все хорошо работает

При удалении данных временный файл не нужен.

Подскажите пожалуста процедуру Найти похожие ветки