+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إستخراج المعلومات إنطلاقا من فاصل خاص (/showthread.php?tid=2978)
إستخراج المعلومات إنطلاقا من فاصل خاص - لؤي - 06-04-2011
سلام الله عليكم
لي ملف نصي يحتوي على بين كل معلومة وأخرى فاصل من نوع ^ بحثت في المنتدى والنت وأنشأت الكود التالي لكن لم ينجح معي الفصل بين المعلومات
الكود
كود :
Var
T: TextFile;
l: String;
s: TStringList;
begin
AssignFile(T,'C:\g.txt');
Reset(T);
s := TStringList.Create ;
Application.ProcessMessages;
Readln(T,L);
//s.Delimiter := ' ';
s.QuoteChar := '^';
s.DelimitedText := L;
memo1.Lines.Text:= s[0] ;
s.Free;هذا جزء من محتوى الملف g.txt
'C:\g.txt=04/06/11^14:18:21^3^777_M_A.oxy^42^0077^T^72
إستخراج المعلومات إنطلاقا من فاصل خاص - kachwahed - 06-04-2011
وعليكم السلام ورحمة الله
إذا استخدمت TStringList فلا تستخدم AssignFile وملحقاتها
جرب:
PHP كود :
var
S: TStringList;
begin
S := TStringList.Create;
try
//S.LoadFromFile('C:\g.txt');
S.Text := '04/06/11^14:18:21^3^777_M_A.oxy^42^0077^T^72';
ListBox1.Items.Delimiter := '^';
ListBox1.Items.DelimitedText := S.Text;
finally
S.Free;
end; // try
end;
إستخراج المعلومات إنطلاقا من فاصل خاص - لؤي - 07-04-2011
أخي kachwahed بارك الله فيك و رزقك الله الجنة
أشتغل معي الفصل بين المعلومات بحرف خاص
شكرا