+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استبدال نص داخل مستند نصي (/showthread.php?tid=8718)
استبدال نص داخل مستند نصي - محمودد - 14-06-2017
السلام عليكم ورحمة الله وبركاتة
لدي مستند نصي يوجد به اسم ahmad
كيف بمكاني استبداله بي اسم mhmod
لدي مستند نصي يوجد به اسم ahmad
كيف بمكاني استبداله بي اسم mhmod
RE: استبدال نص داخل مستند نصي - لؤي - 14-06-2017
السلام عليكم
الوظيفة stringreplace
كود :
var
before, after : string;
begin
// Try to replace all occurrences of a or A to THE
before := 'This is a way to live A big life';
after := stringreplace(before, ' a ', ' THE ',
[rfReplaceAll, rfIgnoreCase]);
ShowMessage('Before = '+before);
ShowMessage('After = '+after);
end;النتيجة
كود :
Before = This is a way to live A big life
After = This is THE way to live THE big lifeRE: استبدال نص داخل مستند نصي - محمودد - 14-06-2017
شكرا لك حاولت التعديل على ملف نصي ولم يفلح الامر الاسم موجود بالسطر التاسع
RE: استبدال نص داخل مستند نصي - Agmcz - 14-06-2017
هكذا
PHP كود :
procedure Replace(const FilePath, OldName, NewName: string);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.LoadFromFile(FilePath);
SL.Text := StringReplace(SL.Text, OldName, NewName, [rfReplaceAll, rfIgnoreCase]);
SL.SaveToFile(FilePath);
finally
SL.Free;
end;
{
Usage:
begin
Replace('File.txt', 'ahmad', 'mhmod');
end;
}
end;