التعديل على ملف نصي برمجيا

يمكنك إستعمال الـ TStringList لتمحيل الملف النصي ثم بعد ذلك تبحث عن الكلمة او السطر الذي تريد إستبداله , بعد التعديل يمكنك حفظ الكلمة او السطر الجديد مكان القديم

var 
I : integer; 
begin 
with TStringList.Create do 
try 
LoadFromFile('C:\Documents and Settings\Administrateur\Bureau\reda.txt'); //  الملف الذي تريد التعديل عليه 
if Count > 0 then 
for I:= 0 to Count - 1 do 
if pos('', Strings) > 0 then begin 
Strings:= 'arabteam2000'; 
SaveToFile('C:\Documents and Settings\Administrateur\Bureau\reda.txt'); 
break; 
end; 
finally 
Free; 
end; 
end;

شكرا لك اخي

تحياتي

تعديل

mohfa كتب:

يمكنك إستعمال الـ TStringList لتمحيل الملف النصي ثم بعد ذلك تبحث عن الكلمة او السطر الذي تريد إستبداله , بعد التعديل يمكنك حفظ الكلمة او السطر الجديد مكان القديم

var 
I : integer; 
begin 
with TStringList.Create do 
try 
LoadFromFile('C:\Documents and Settings\Administrateur\Bureau\reda.txt'); //  الملف الذي تريد التعديل عليه 
if Count > 0 then 
for I:= 0 to Count - 1 do 
if pos('', Strings) > 0 then begin 
Strings:= 'arabteam2000'; 
SaveToFile('C:\Documents and Settings\Administrateur\Bureau\reda.txt'); 
break; 
end; 
finally 
Free; 
end; 
end;

تعديل على العملية : لأنها تستبدل مرة واحدة و المشكلة انها تحذف كل السطر

اقتباس

I am a member in

have more than 107.000 member

ستصبح

اقتباس

arabteam2000

have more than 107.000 member

التعديل

var I : integer;
begin
  with TStringList.Create do
  try
	LoadFromFile('C:\Documents and Settings\Administrateur\Bureau\reda.txt'); //  الملف الذي تريد التعديل عليه 
	if Count > 0 then
	  for I:= 0 to Count - 1 do
		begin
		Strings:= StringReplace(Strings,
										   '',
										   'arabteam2000',
										   [rfReplaceAll, rfIgnoreCase]);
		end;
  SaveToFile('C:\Documents and Settings\Administrateur\Bureau\reda.txt'); 
  finally
	Free;
  end;
end;

الآن

اقتباس

I am a member in

has more than 107.000 members

اقتباس

I am a member in arabteam2000

arabteam2000 has more than 107.000 members

:)