PDA

View Full Version : فایل TEXT



شفیعی
دوشنبه 29 آبان 1385, 16:18 عصر
با توجه ه عکس می خواهیم برنامه ای بنویسیم که این فایلها خوانده ومانند نرم افزار اکسل در یکسری سلول نمایش دهیم

sarvestan
دوشنبه 29 آبان 1385, 16:42 عصر
خوب کار خوبی میکنید!
مشکلتون چیه؟

dkhatibi
دوشنبه 29 آبان 1385, 19:38 عصر
خوب برای خوندن فایل که کار خیلی راحته کافیست یک متغیر از نوع فایل تعریف کنید . نوع فایل هم متنی باشه بعد با دستور Readln هر سطر را بخونید


Procedure ReadTextFile(Name:string);
var
f:textfile;
s1,s2:string;
begin
assignfile(f,Name);
while(not(eof(f)))
begin
readln(f,s1,s2);
...
end;
end;


برای نوشتن در فایل Excel هم از کامپوننت مخصوص یا از ابزارهای دلفی استفاده کن(ی جستجو هم بزن).

شفیعی
دوشنبه 29 آبان 1385, 20:06 عصر
سلام
خیلی ممنون
نمی خواهیم اطلاعات را داخل اکسل بفرستیم می خواهیم کاری مثل اکسل انجام دهیم اطلاعات را داخل STRINGGRID نمایش دهم لطفا عکس زیر را بدقت نگاه کنید

shayan_delphi
دوشنبه 29 آبان 1385, 22:38 عصر
سلام
-کلمه های داخل متن را که باید با Space پیدا کنید.
-سلولهای string grid هم با اندیس سطر و ستون قابل دسترسی هستند.
در یک حلقه میشه سلولها را پر کرد.
مشکل چیه؟

dkhatibi
سه شنبه 30 آبان 1385, 03:43 صبح
این برنامه رو نگاه کن.
فقط کافیه با یک حلقه چند خط اول که اطلاعتش مهم نیست با دستور Readln ردش کنی!