کار با فایل در پاسکال

[mehdi-vb]

:متفکر:با سلام.دوتا س.ال دارم اگه پاسخ بدین ممنون می شم.
1-تو یه برنامه پاسکال می خوام یه فایل متنی خونده بشه بعد بین دو ستون مشخص شده از متن کلمه ای که می خوام چاپ بشه.
2- یک کلمه توی این فایل جستجو بشه بعد از پیدا کردنش اونو پاک کنه طوری که جای خالی اون کلمه تو متن نمونه.
لطفا راهنمائی کنید.
با تشکر

[vcldeveloper]

خب، اینها که صورت مسئله بود؛ کسی هم اینجا برای شما کد آماده نمیزاره. مشکلتون کجا ست؟ چه کارهایی انجام دادید؟ کجای کار گیر کردید؟ چه کدی نوشتید؟

اگر به این سوال ها پاسخ ندید، متاسفانه تاپیک شما حکم "درخواست انجام تمرین دانشجویی" رو پیدا میکنه، و از سایت حذف میشه.

[mehdi-vb]

1- منظور از دو ستون تو این برنامه چیه؟ و با چه فرمانی باید اونو پیدا کرد؟
2- با چه فرمانی متن حذف بشه ؟

[mehdi-vb]

باسلام دوباره.بالاخره کسی نمی تونه جواب ما رو بده ؟:متفکر:

[سعید صابری]

سوالت خیلی گنگه. یه کم بیشتر توضیح بده

[SianiD]

ببین منظورتو واضح نگفتی . ولی اگه میخوای توی فایل یه چیزیو پاک کنی . اول فراخوانیش کن بعد بادستور ReWrite میتونی پاکش کنی . یه مثال از یه قسمت برنامه واست میزارم امیدوارم کمکت کنه

procedure delete;
Var
V:string;
w,i:integer;
S:string;
Begin
Assign(f,'a.txt');
reset(f);
Write ('enter name for delete');
Readln(v);
W:=filesize(f);
For i:=1 to w do
Begin
read(f,s);
x[i]:=s;
end;
Close(f);
Rewrite(f);
For i:= 1 to w do
if (x[i].name)<>(v) then
Write (f,x[i]);
end;

[mehdi-vb]

سوالت خیلی گنگه. یه کم بیشتر توضیح بده
چطوری می تونم یک کلم رو بین دو ستون توی یک فایل متنی بنویسم و یک کلمه رو پاک کنم طوری که جاش خالی نمونه.البته فقط دستوراشو بهم بگین کافیه.

[ghiasvand_2008]

این کدی که شما زدید ایراد منطقی داره : اینکه بدونیم که طول آرایه مان برای نگه داری چقدره !!!
یک روش پیشنهادی اینه که اول حذف منطقیش کنینم(یه Falge براش بزنینم)در نهایت وقتی تعداد حذف ها بالا رفت اون موقع حذف واقیش(حدف فیزیکی) کنیم.با کمک دستور Erase و Rename.(از دید ذخیره و بازیابی هم قابل است:متفکر:)

[یوسف زالی]

سلام.
این طور که پیداست فرمت فایل شما متن هست نه باینری بنابراین احتمالا حذف منطقی روش اصلا تعریف نمی شه.
راه حل رو می گم ؛ برنامه رو بنویسید و همون طور که علی آقا گفتند ایراداتون رو بپرسید نه کل ماجرا رو.
فایل 1 رو باز کنید.
فایل 2 رو بسازید و باز کنید.
دونه دونه بخونید و طبق نیازتون تصمیم بگیرید که اونی که خوندید رو در فایل 2 بریزید یا نه.
بعد از اتمام ؛ قایل 1 رو حدف کنید و از رو فایل 2 روی فایل 1 کپی بگیرید.

موفق باشید.