+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هى طريقة حذف جزء من txt (/showthread.php?tid=7400)
ما هى طريقة حذف جزء من txt - اسامه الحكيم - 14-01-2016
السلام عليكم
ما هى الطريقة البرمجيه لتنفيذ هذه العمليه .....
لدى ملف نصى txt يحتوى على مئات الاسطر
بهذا الشكل
00425997: mov edx, 0040D5F4h ; "2SC5406 1500 600 5 14 100 0.3 4 5 12 50 50 3 1.5 3 No TOP3E Horz Out Panasonic"
0042599C: add ecx, 00000244h
004259A2: call edi
004259A4: mov ecx, [esi+44h]
004259A7: mov edx, 0040D6F8h ; "2SC5406A 1500 600 5 14 100 0.3 4 5 12 1000 50 3 1.5 3 No TOP3E Horz Out Panasonic"
004259AC: add ecx, 00000248h
004259B2: call edi
004259B4: mov ecx, [esi+44h]
واريد حذف ما هو خارج علامتى التنصيص فما هى الطريقة البرمجيه لتنفيذ هذا الامر
وشكرا
RE: ما هى طريقة حذف جزء من txt - Agmcz - 14-01-2016
وعليكم السلام
هذا حل
PHP كود :
function text_p(const text, stopdr: string): string;
var
I, P: Cardinal;
SL: TStringList;
begin
Result := '';
SL := TStringList.Create;
try
SL.Text := text;
for I := 0 to SL.Count - 1 do
begin
P := Pos(stopdr, SL[I]);
if P > 0 then
SL[I] := Copy(SL[I], 1, P-1);
end;
Result := SL.Text;
finally
SL.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := text_p(Memo1.Text, ';');
end;
RE: ما هى طريقة حذف جزء من txt - لؤي - 14-01-2016
السلام عليكم
جرب هذه الوظيفة:
PHP كود :
procedure RemoveLinesContaining(const fileName, searchText: string);
var
sl: TStringList;
i: Integer;
begin
sl := TStringList.Create;
try
sl.LoadFromFile(fileName);
for i := sl.Count-1 downto 0 do
if Pos(searchText, sl[i])<>0 then
sl.Delete(i);
sl.SaveToFile(fileName);
finally
sl.Free;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RemoveLinesContaining('C:\My file.log','Try Me');
end;
RE: ما هى طريقة حذف جزء من txt - اسامه الحكيم - 14-01-2016
(14-01-2016, 02:15 PM)Agmcz كتب : وعليكم السلام
هذا حل
PHP كود :function text_p(const text, stopdr: string): string;
var
I, P: Cardinal;
SL: TStringList;
begin
Result := '';
SL := TStringList.Create;
try
SL.Text := text;
for I := 0 to SL.Count - 1 do
begin
P := Pos(stopdr, SL[I]);
if P > 0 then
SL[I] := Copy(SL[I], 1, P-1);
end;
Result := SL.Text;
finally
SL.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := text_p(Memo1.Text, '"');
end;
وعليكم السلام
جربت هذا الكود ولكنه نسخ النص قبل علامة التنصيص من أول كل سطر فقط الى Memo2
والمطلوب هو نسخ النص الموجود داخل علامة التنصيص (") فقط وتجاهل باقى النصوص
RE: ما هى طريقة حذف جزء من txt - Agmcz - 14-01-2016
هكذا
PHP كود :
function Copy_Comment(const Text_File, Start, Stop: string): string;
var
I, P1, P2: Cardinal;
SL, SL2: TStringList;
begin
Result := '';
if Text_File = '' then
Exit;
SL := TStringList.Create;
SL2 := TStringList.Create;
try
if FileExists(Text_File) then
SL.LoadFromFile(Text_File)
else
SL.Text := Text_File;
for I := 0 to SL.Count - 1 do
begin
P1 := Pos(Start, SL[I]);
P2 := Pos(Stop, Copy(SL[I], P1+1, Length(SL[I])));
if (P1 > 0) and (P2 > 0) then
SL2.Add(Copy(SL[I], P1+1, P2-1));
end;
Result := SL2.Text;
finally
SL.Free;
SL2.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Memo2.Text := Copy_Des('C:\MyFile.txt', '"', '"'); load from file
// or
Memo2.Text := Copy_Des(Memo1.Text, '"', '"'); //load from string
end;
RE: ما هى طريقة حذف جزء من txt - اسامه الحكيم - 14-01-2016
(14-01-2016, 08:05 PM)Agmcz كتب : هكذا
PHP كود :function Copy_Comment(const Text_File, Start, Stop: string): string;
var
I, P1, P2: Cardinal;
SL, SL2: TStringList;
begin
Result := '';
if Text_File = '' then
Exit;
SL := TStringList.Create;
SL2 := TStringList.Create;
try
if FileExists(Text_File) then
SL.LoadFromFile(Text_File)
else
SL.Text := Text_File;
for I := 0 to SL.Count - 1 do
begin
P1 := Pos(Start, SL[I]);
P2 := Pos(Stop, Copy(SL[I], P1+1, Length(SL[I])));
if (P1 > 0) and (P2 > 0) then
SL2.Add(Copy(SL[I], P1+1, P2-1));
end;
Result := SL2.Text;
finally
SL.Free;
SL2.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Memo2.Text := Copy_Des('C:\MyFile.txt', '"', '"'); load from file
// or
Memo2.Text := Copy_Des(Memo1.Text, '"', '"'); //load from string
end;
السلام عليكم
أصبت أخى .... جزاك الله خيرااا
هذا الكود ناجح 100% وتم اختزال كل ما هو بين علامتى التنصيص
جعله الله فى ميزان حسناتك