مقایسه محتوای دو فایل متنی و گزارش گیری

[rapidcache.ir]

سلام
من قصد دارم یه برنامه بنویسم با دلفی که محتوای دو فایل متنی رو با هم مقایسه کنه و در دو تکست باکس، موارد شباهت و موارد جدید در فایل دوم رو برام نمایش بده. چطور میتونم اینکار رو انجام بدم ؟
فایل های متنی شامل یه سری عدد هستند که محتوای هر سطر قراره با فایل دوم قیاس بشه.

[Felony]

در مورد کلاس TStringList تحقیق کنید ، این کلاس برای کار با رشته ها و فایل های متنی هست و میتونید برنامه مورد نظرتون رو باهاش پیاده کنید .

[rapidcache.ir]

به نتیجه ای نرسیدم، ممکنه راهنمایی کنین ؟

[Felony]

فایل های متنی شامل یه سری عدد هستند که محتوای هر سطر قراره با فایل دوم قیاس بشه.
محتوای هر سطر با سطر متناظر تو فایل دوم مقایسه بشه یا با کل سطر های فایل دوم ؟

[rapidcache.ir]

با کل سطر ها باید مقایسه بشه.

[Felony]

var
Str1, Str2: TStringList;
i, J: Integer;
Check: Boolean;
begin
Str1:= TStringList.Create;
Str2:= TStringList.Create;
try
Str1.LoadFromFile('File 1.txt');
Str2.LoadFromFile('File 2.txt');
for i:= 0 to Str2.Count - 1 do
begin
Check:= False;
for j:= 0 to Str1.Count - 1 do
if Str2.Strings[i]= Str1.Strings[j] then
Check:= True;
if Check= True then
ListBox1.Items.Add(Str2.Strings[i])
else
ListBox2.Items.Add(Str2.Strings[i]);
end;
finally
Str1.Free;
Str2.Free;
end;
end;

[rapidcache.ir]

این رو تو محیط Borland Delphi چطور باید پیاده کنم ؟

میخوام دوتا تکست باکس بزارم برای نمایش خروجی و دوتا کنترلر برای انتخاب فایل اول و دوم به عنوان ورودی.

[Felony]

این سوالات چیزهایی نیستن که پرسیدن داشته باشن ، خودتون هم کمی وقت بزارید !

[rapidcache.ir]

یه راهنمایی کنید ! باور کنین من تازه کارم تو دلفی...

[Felony]

باید از کامپوننت OpenFileDialog برای بازکردن فایل دلخواه استفاده کنید ، برای نمایش خروجی هم از Memo یا ListBox .

در موردشون تحقیق کنید ، کمک بیشتر از این میشه خود برنامه !

[rapidcache.ir]

خوب، از کد شما استفاده کردم. اما زمانی که دکمه کامپایل رو میزنم، جواب نمیگیرم. چرا ؟
کد ها را با توجه به ممو و دکمه هایی که استفاده کرده بودم هم تغییر دادم.

[rapidcache.ir]

سرس رو تغییر دادم، شد این :


begin
Str1:= TStringList.Create;
Str2:= TStringList.Create;
try
Str1.LoadFromFile('c:\amin\file1.txt');
Str2.LoadFromFile('c:\amin\file2.txt');
for i:= 0 to Str2.Count - 1 do
begin
Check:= False;
for j:= 0 to Str1.Count - 1 do
if Str2.Strings[i]= Str1.Strings[j] then
Check:= True;
if Check= True then
Memo1.lines.Add(Str2.Strings[i])
else
Memo2.lines.Add(Str2.Strings[i]);
end;
finally
Str1.Free;
Str2.Free;
end;
end;

اما هنگام کامپایل خطا میگیرم :
[Error] amin.pas(61): Declaration expected but end of file found

[Felony]

مشکلی نداره ، یکمی هم خودتون تلاش کنید !

procedure TForm1.Button1Click(Sender: TObject);
var
Str1, Str2: TStringList;
i, j: Integer;
Check: Boolean;
begin
Str1:= TStringList.Create;
Str2:= TStringList.Create;
try
Str1.LoadFromFile('c:\amin\file1.txt');
Str2.LoadFromFile('c:\amin\file2.txt');
for i:= 0 to Str2.Count - 1 do
begin
Check:= False;
for j:= 0 to Str1.Count - 1 do
if Str2.Strings[i]= Str1.Strings[j] then
Check:= True;
if Check= True then
Memo1.lines.Add(Str2.Strings[i])
else
Memo2.lines.Add(Str2.Strings[i]);
end;
finally
Str1.Free;
Str2.Free;
end;
end;

[rapidcache.ir]

معنی این خطا چیه ؟ از چی داره ایراد میگیره ؟
با کل متغیرها و بخش ها دارم ور میرم، اما تغییری ایجاد نمیشه...

[rapidcache.ir]

مشکل حل شد، یه جا end رو نذاشته بودم.
ممنون. یه مشکل دیگه؛ لیست باکس، اجازه انتخاب همه سطر ها رو نمیده. از چی باید بجاش استفاده کنم ؟

حل شد : برگشتم به همون ممو، اسکرول بار رو هم بصورت عمودی فعال کردم. ممنون.
حالا میخوام انتخاب فایل از فولدر رو اضافه کنم. نمیدونم از کجا.

[rapidcache.ir]

انتخاب فایل از درایو و فولدر رو پیدا کردم. پسوند فایل ها رو هم مشخص کردم که فقط این فایل های بخصوص (*.txt) رو نمایش بده. دوتا کار میخوام انجام بدم، نمیدونم چطوریه؛
1- محتوای فایل انتخاب شده، داخل یه memo نمایش داده بشه.
2- فایلی که انتخاب شده، به عنوان سورس برنامه در نظر گرفته بشه. به عبارت بهتر، این دو فایل که انتخاب شدن رو با هم مقایسه و در خروجی نمایش بده.

ممنون میشم حتی اگه شده فقط یه سر نخ بهم بدین.

[rapidcache.ir]

خیلی از صفحات رو زیر و رو کردم، چیزی دستگیرم نشد. . . راهنمایی لطفا

[Felony]

1- محتوای فایل انتخاب شده، داخل یه memo نمایش داده بشه.

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);


2- فایلی که انتخاب شده، به عنوان سورس برنامه در نظر گرفته بشه. به عبارت بهتر، این دو فایل که انتخاب شدن رو با هم مقایسه و در خروجی نمایش بده.

Str1.LoadFromFile(OpenDialog1.FileName);

[Mask]

من هنوز متوجه نشدم مشکلت چیه.
سوالت رو دقیق بگو تا برنامش رو برات بنویسم بزارم اینجا.

[rapidcache.ir]

برنامه به اینجا رسیده که یه فایل رو از طریق file list box انتخاب میکنیم. میخوام فایلی که در این لیست انتخاب میشه، محتواش درون memo نمایش داده بشه. با کدی که دادین نشد. از کل کد خطا میگیره، روش کار نکردم البته که ببینم دقیقا از چیش خطا میگیره.

من میخوام فایل رو از filelistbox انتخاب کنم و نمایش بدم.

[Mask]

این داش مجتبی مارو حرص نده.
این سوالته آماتوری رو ما آماتورا میتونیم جواب بدیم.

[rapidcache.ir]

فرم برنامه این شکلی شده تا الان :

http://photobucket.comuv.com/images/fb36c4ccf88f.png

تا الان، کل کاری که میخواستم انجام شده، یه سری تغییرات میخوام بدم به اینصورت که :
فایلی که از filelistbox1 و 2 انتخاب میکنم، هم به عنوان سورس انتخاب بشه، که پس از فشردن دکمه start مورد سنجش قرار بگیره، هم محتوای فایل، در memo3 و 4 نمایش داده بشه.
دکمه Clear، محتوای memo1 و 2 رو تخلیه کنه.
دکمه CLose برنامه رو ببنده.

[rapidcache.ir]

ندیده بودمش، ضمیمه کردم.

[Mask]

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

[rapidcache.ir]

من که گفتم راهنمایی کنین انجام بدم، شما اصرار داشتین که خودتون انجامش بدین...
به هر حال، ممنونم.

اما این مشکلات در خروجی برنامه شما وجود داره :
با کلیک بر روی فایل مورد نظر، محتوا در memo نمایش داده نمیشه.
با کلیک بر روی دکمه compare، یک حلقه بدون انتها شروع به کار میکنه...

[rapidcache.ir]

دیگه راهنمایی نمیکنید ؟