+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : قراءة معلومات وقيم من ملف نصي text (/showthread.php?tid=2778)
الصفحات:
1
2
قراءة معلومات وقيم من ملف نصي text - abedroof2001 - 10-02-2011
السلام عليكم ورحمة الله
كيف يمكن القرائة من ملف نصي بحيث يتم تخزين القيم داخل هذا الملف ومن ثم قرائة جملة معينة من هذا الملف وليس الملف بالكامل
يعني أستغل الملف النصي كملف قاعدة بيانات
قراءة معلومات وقيم من ملف نصي text - King SofT - 10-02-2011
اولا :
اضف inifiles لل: uses
اضف ini:Tinifile var
للحفظ في مفكرة استعمل الكووود :
كود :
[align=left]ini:=TIniFile.Create('c:\test.ini');
ini.WriteString('c','c',Memo1.Text)[/align]لادراج معلومات :
كود :
ini:=TIniFile.Create('c:\test.ini');
Memo1:=ini.ReadString('c','c','')قراءة معلومات وقيم من ملف نصي text - abedroof2001 - 10-02-2011
مشكور أخي علي الرد
ليس ذلك أنما لدي مستند نصي يحتوي علي بينات وعن طريف هذة البيانا أجري عمليات حسابية فكيف يمكن أجرا العمليات الحسابية عيها، مثال علي المستند النصي
كود :
http://www13.0zz0.com/2011/02/10/16/667184269.jpgوعندما أظيف سطر جديد يترك السطر القديم ويقراء الجديد
اتمنا أن تكون الفكرة قد توضحت ومشكور علي الرد
قراءة معلومات وقيم من ملف نصي text - gladiator16 - 10-02-2011
اضن ذلك شبه مستحيل عليك بالاستعانة بقاعدة بيانات برادوكس
قراءة معلومات وقيم من ملف نصي text - محمد عبد العزيز - 10-02-2011
السلام عليكم ورحمة الله
الامر بسيط جدا ولايحتاج قاعدة بيانات
قم بالقرائة من الملف سطرا سطرا حتى النهاية
قسم محتوى كل سطر حسب ما يحتويه
ان اردت مثال ارفق ملف نصي به ما بالصورة السابقة لاعد لك مثال عليه
بالمناسبة هذا موضوع مشابه
http://www.delphi4arab.net/forum/showthread.php?tid=4515
قراءة معلومات وقيم من ملف نصي text - abedroof2001 - 11-02-2011
Date Time Ext CO Dial Number Ring Duration
----------------------------------------------- -------- ---------------------------------------
26/08/10 06:06PM 160 03 0923047 00:00'05
26/08/10 06:08PM 160 03 0923047418 00:01'05
26/08/10 06:14PM 150 01 0913812529 00:02'04
26/08/10 06:18PM 150 01 0926158813 00:00'37
26/08/10 07:35PM 150 01 0928484910 00:01'03
26/08/10 08:31PM 150 01 0926158813 00:08'50
26/08/10 08:55PM 150 02 0925818825 00:01'46
26/08/10 09:16PM 150 01 0925086846 00:00'34
26/08/10 09:16PM 150 01 0925086846 00:00'08
26/08/10 09:18PM 150 01 0925086846 00:00'38
26/08/10 10:54PM 190 03 0918130093 00:05'07
26/08/10 10:55PM 190 03 0923042342 00:01'09
27/08/10 01:01AM 160 03 0925214161 00:01'25
2 هذا النص شبية بقاعدة البيانات كيف يمكنني الوصول ألي أخر سطر وقراءة البيانات
كل عمود منفصل عن الأخر بحيت كل الوقت في edit التاريخ في edit وأرقام كل منها منفصل عن الأخر في edit لوحدة
والملف مرفق
قراءة معلومات وقيم من ملف نصي text - محمد عبد العزيز - 11-02-2011
ساستخدم الطريقة القديمة للتعامل مع الملف النصي
اولا نعرف متغير T من نوع ملف نصي TextFile وما نحتاجه من متغيرات
L تحتوى سطر واحد Row من الملف
S متغير StringList لتقسيم السطر الى متغيرات باستخدام CommaText
كود :
Var
T: TextFile;
L: String;
S: TStringList;كود :
begin
AssignFile(T,'PBX.TXT');
Reset(T);
S := TStringList.Create;نقراء السطر التالي من الملف ونضعه بالمتغير L
كود :
Readln(T);Readln(T);
Readln(T,L);كود :
S.CommaText := L;كود :
Edit1.Text:=S[0];
Edit2.Text:=S[1];
Edit3.Text:=S[2];
Edit4.Text:=S[3];
Edit5.Text:=S[4];
Edit6.Text:=S[5];كود :
CloseFile(T);
S.Free;لعرض اكثر من سطر نستخدم مكون StringGrid
بعض التعديلات ليصبح
كود :
Var
T: TextFile;
L: String;
S: TStringList;
i,j : Integer;
begin
AssignFile(T,'PBX.TXT');
Reset(T); j:=1;
S := TStringList.Create;
Readln(T);Readln(T);
Repeat
Readln(T,L);
S.CommaText := L;
if S.Count>StringGrid1.ColCount then StringGrid1.ColCount:=S.Count;
for i:=0 to S.Count-1 do
StringGrid1.Cells[i,j]:=S[i];
inc(j);
StringGrid1.RowCount:=j;
Until eof(T);
CloseFile(T);
S.Free;
end;بالتوفيق
قراءة معلومات وقيم من ملف نصي text - abedroof2001 - 11-02-2011
مشكور علي سرعة الرد وبارك الله فيك علي الفائدة
سؤال أخر بنفس الموضوع: كيف يمكن ضرب Ring Duration 00:00'24 * 0.75
قراءة معلومات وقيم من ملف نصي text - محمد عبد العزيز - 11-02-2011
حساب تمن المكالمة
لم توضح هل 0.75 ثمن الدقيقة ام الثانية
ايا كان للحساب حول الزمن اليه ثم اظرب
قراءة معلومات وقيم من ملف نصي text - hanipino - 11-02-2011
السلام عليكم
إقتباس :كيف يمكن القرائة من ملف نصي ....يعني أستغل الملف النصي كملف قاعدة بياناتيمكن الاستعانة بالمكون ClientDataSet و ربطه مع ملف من نوع *.XML ... و تستفيد من خصائص عضيمة يوفرها هذا المكون .