سلام لطفا در مورد سوال زیر به من کمک کنید:
نحوه ی گرفتن یک فایل تکس توسط برنامه و انتخاب جدول مورد نظر در دیتا بیس و ریختن اطلاعات آن تکست در آن جدول
داده های تکست به صورت مثلا13890215 می باشد که در فیلدهای سال و ماه و روز جدول مورد نظر قرار میگیرد.
لطفا من رو راهنمایی کنید.
ممنون
از چه نسخه دلفی استفاده میکنی؟
یک نمونه از این فایل تکست رو بزار ببینیم
یه پروژه جدید باز کن یک memo بنداز روش بع یک باتن بزار رو باتن دابل کلیک کن اگه اسم فایلت متنیت file.txt باشه رویداد کلیک باتنت بنویس
کد:
memo1.lines.loadfromfile('c:\file.txt')
کد ساده برای خواندن فایل
ببینید من یک فایل از نوعtxt دارم که اطلاعات چند رکورد جدول در اون هست.
می خوام این اطلاعات را با توجه به فیلد جدول جدا کرده و در جدول بریزه.
مثلا جدول من شامل فیلدهای سال و ماه و روز و مبلغ هست و داده های فایل هم به صورت رکوردهای زیر:
870101000521
[align=left]870102000400
حالا باید داده ها را جدا کرده و رکوردهای جدول را با ان تکمیل کنم.
من گرفتن فایل و جدا کردن فیلد به فیلد را می دونم ولی شرط حلقه ای که می خوام بزارم برای اینکه بفهمه بره رکورد بعدی را بخونه نمی دونم.
لطفا راهنمایی کنید.
با تشکر
خب خاصیت lines کنترل memo از نوع tstrings هست شما تو یه حلقه for به راحتی میتونین مقادیرشو بخونین به صورت زیر
این کد تو همه نسخه ها جواب میده
کد:
procedure TForm3.Button1Click(Sender: TObject);
var
i:Integer;
s:string;
begin
for i := 0 to Memo1.Lines.Count-1 do
begin
s:=Memo1.Lines.Strings[i];
end; //مقدار هر سطر درون s قرار میگیرد
end;
این هم کد برای دلفی 2010 به بالا
کد:
procedure TForm3.Button1Click(Sender: TObject);
var
s:string;
begin
for s in Memo1.Lines do
begin
//مقدار هر سطر درون s قرار میگیرد
end;
البته بدون استفاده از memo و توابع دلفی هم میتونین این کارو انجام بدین