فلترة ملف نصي - نسخة قابلة للطباعة

فلترة ملف نصي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فلترة ملف نصي (/showthread.php?tid=6423)

فلترة ملف نصي - عزو وان - 03-09-2014

السلام عليكم
انا عندي ملف نصي و انشاء سكريبت انطلاقا منه نأخذ متال عن صيغة الملف و هو موجود في المر فقات
كيف احصل على العبارة التالية

كود :
GDE:NS=4-200,PDC=2,DT=CP2C-3,DL=MS200_2/CLB2-1;
GDE:NS=4-200,PDC=3,DT=CP2C-7,DL=MS200_3/CLB2-65;
GDE:NS=4-100,PDC=4,DT=CP2C-2 , DL=B100_4/LNB2-34 ;
GDE:NS=4-100,PDC=5,DT=CP2C-6 , DL=B100_5/LNB2-66 ;
GDE:NS=4-100,PDC=6,DT=CP2C-21, DL=B100_6/LNB2-55 ;

الكود اعطاني السطر الأول والثالث فقط

كود :
GDE:NS=4-200,PDC=2,DT=CP2C-3,DL=MS200_2/CLB2-1;
GDE:NS=4-100,PDC=4,DT=CP2C-2 , DL=B100_4/LNB2-34 ;

الكود المستعمل بدالة

PHP كود :
implementation
{$R *.dfm}
function CleanedLine(aString: string): string;
var
  Type1,type2,type3,type4: string;
begin
  if Length(Trim(aString)) = 0 then begin
    Result := '';
    Exit;
  end;
  Type1 := Trim(right('MS', astring)));
  Type2 := Trim(right('T2', astring)));
  Type3 := Trim(right('C', left('M', astring))); 
  type4 := Trim(right('C', left('B', astring))); 

  Result := 'GDE : NS= ' + Type1 + '  ,  PDC= ' + Type2 +', DT= '+Type3+', DL='+Type4+ ';';
end; 

PHP كود :
procedure DoProcess;
var
  sl: TStringList;
  lig: Integer;
  InputFile, OutputFile : TFileName;
begin
  InputFile  := 'Z:\DATA1.txt';
  OutputFile := 'Z:\DATA2.txt';

  if not FileExists(InputFile) then begin
    Showmessage('FiLE ' + InputFile + ' NOT FOUND');
    Exit;
  end;

  sl := TStringList.Create;
  try
    sl.LoadFromFile(InputFile);
    for lig := sl.Count - 1 downto 0 do
      sl[lig] := CleanedLine(sl[lig]);
    sl.saveToFile(OutputFile);
  finally
    sl.free;
  end;
end; 