قراءة معلومات وقيم من ملف نصي text
|
قراءة معلومات وقيم من ملف نصي text
|
10-02-2011, 12:48 PM
السلام عليكم ورحمة الله
كيف يمكن القرائة من ملف نصي بحيث يتم تخزين القيم داخل هذا الملف ومن ثم قرائة جملة معينة من هذا الملف وليس الملف بالكامل يعني أستغل الملف النصي كملف قاعدة بيانات
10-02-2011, 02:05 PM
اولا :
اضف 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','')
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان
مشكور أخي علي الرد
ليس ذلك أنما لدي مستند نصي يحتوي علي بينات وعن طريف هذة البيانا أجري عمليات حسابية فكيف يمكن أجرا العمليات الحسابية عيها، مثال علي المستند النصي كود : http://www13.0zz0.com/2011/02/10/16/667184269.jpgوعندما أظيف سطر جديد يترك السطر القديم ويقراء الجديد اتمنا أن تكون الفكرة قد توضحت ومشكور علي الرد
10-02-2011, 05:55 PM
اضن ذلك شبه مستحيل عليك بالاستعانة بقاعدة بيانات برادوكس
10-02-2011, 11:29 PM
السلام عليكم ورحمة الله
الامر بسيط جدا ولايحتاج قاعدة بيانات قم بالقرائة من الملف سطرا سطرا حتى النهاية قسم محتوى كل سطر حسب ما يحتويه ان اردت مثال ارفق ملف نصي به ما بالصورة السابقة لاعد لك مثال عليه بالمناسبة هذا موضوع مشابه http://www.delphi4arab.net/forum/showthr...p?tid=4515
11-02-2011, 12:12 AM
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 لوحدة والملف مرفق
11-02-2011, 07:31 AM
ساستخدم الطريقة القديمة للتعامل مع الملف النصي اولا نعرف متغير 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;بالتوفيق
11-02-2011, 05:16 PM
مشكور علي سرعة الرد وبارك الله فيك علي الفائدة
سؤال أخر بنفس الموضوع: كيف يمكن ضرب Ring Duration 00:00'24 * 0.75
11-02-2011, 05:29 PM
حساب تمن المكالمة لم توضح هل 0.75 ثمن الدقيقة ام الثانية ايا كان للحساب حول الزمن اليه ثم اظرب |
|
|
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
