delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله

كيف يمكن القرائة من ملف نصي بحيث يتم تخزين القيم داخل هذا الملف ومن ثم قرائة جملة معينة من هذا الملف وليس الملف بالكامل
يعني أستغل الملف النصي كملف قاعدة بيانات

اولا :

اضف 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

كيف أرسال التاريخ ألي edit1.text و الوقت ألي edit2.text وكل مهما كان ويلا ألي edit
وعندما أظيف سطر جديد يترك السطر القديم ويقراء الجديد
اتمنا أن تكون الفكرة قد توضحت ومشكور علي الرد

اضن ذلك شبه مستحيل عليك بالاستعانة بقاعدة بيانات برادوكس Smile

السلام عليكم ورحمة الله

الامر بسيط جدا ولايحتاج قاعدة بيانات
قم بالقرائة من الملف سطرا سطرا حتى النهاية
قسم محتوى كل سطر حسب ما يحتويه
ان اردت مثال ارفق ملف نصي به ما بالصورة السابقة لاعد لك مثال عليه

بالمناسبة هذا موضوع مشابه
http://www.delphi4arab.net/forum/showthr...p?tid=4515

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 لوحدة
والملف مرفق

ساستخدم الطريقة القديمة للتعامل مع الملف النصي
اولا نعرف متغير T من نوع ملف نصي TextFile وما نحتاجه من متغيرات
L تحتوى سطر واحد Row من الملف
S متغير StringList لتقسيم السطر الى متغيرات باستخدام CommaText

كود :
Var
  T: TextFile;
  L: String;
  S: TStringList;

نفتح الملف للقراءة وننشئ الStringList

كود :
begin
  AssignFile(T,'PBX.TXT');
  Reset(T);
  S := TStringList.Create;

نقراء سطرين من الملف دون وضعها بمتغير (اول سطرين بالملف مهملة)
نقراء السطر التالي من الملف ونضعه بالمتغير L

كود :
Readln(T);Readln(T);
  Readln(T,L);

نقسم ما بالسطر

كود :
S.CommaText := L;

نعرض النتيجة بمكونات Edit

كود :
Edit1.Text:=S[0];
  Edit2.Text:=S[1];
  Edit3.Text:=S[2];
  Edit4.Text:=S[3];
  Edit5.Text:=S[4];
  Edit6.Text:=S[5];

نغلق الملف ولا ننسى تحرير الStringList

كود :
CloseFile(T);
  S.Free;

تلاحظ استخدمنا 6 مكونات Edit لعرض سطر واحد
لعرض اكثر من سطر نستخدم مكون 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;

مرفق ماسبق
بالتوفيق

مشكور علي سرعة الرد وبارك الله فيك علي الفائدة
سؤال أخر بنفس الموضوع: كيف يمكن ضرب Ring Duration 00:00'24 * 0.75

حساب تمن المكالمة Smile

لم توضح هل 0.75 ثمن الدقيقة ام الثانية
ايا كان للحساب حول الزمن اليه ثم اظرب

السلام عليكم

إقتباس :كيف يمكن القرائة من ملف نصي ....يعني أستغل الملف النصي كملف قاعدة بيانات

يمكن الاستعانة بالمكون ClientDataSet و ربطه مع ملف من نوع *.XML ... و تستفيد من خصائص عضيمة يوفرها هذا المكون .

abedroof2001

King SofT

abedroof2001

gladiator16

محمد عبد العزيز

abedroof2001

محمد عبد العزيز

abedroof2001

محمد عبد العزيز

hanipino