Pascal: két szövegfájl tartalmából azt szeretném megkapni, amit csak egyik vagy csak másik fájl tartalmaz. Ami mindkettőben megvan azt nem. Miként kell ezt?

Legegyszerűbb ha van olyan adattároló ami sorrendben tárolja az elemeket és nem lehet két ugyan olyan elem. Mivel nem ismerem a Pascalt így nem tudom van e olyan.

Ha nincs akkor:

1 tömböd van és beolvasásnál csak azt rakod bele amit még nem tartalmaz, ez lényegében az első megoldás, csak neked kell ellenőrizned tartalmazza vagy sem.

TStringList-el oldható meg legegyszerűbben, ha valóban text file-ról beszélünk. Amit írtál pár dolog - bár lefordul - nem fog megfelelően működni. Egy picit el kell mélyülni a Free Pascal, Delphi OOP lehetőségeiben és akkor csak pár sor az egész. ...LoadFromFile, ...SaveToFile, az IndexOf-ra ráéreztél.

Nagyon javaslom 'valahonnan' egy Delphi 7 'beszerzését', bár XP fölött picit 'érdekes' a telepítése, - a help-hez kell egy régebbi program - talán winhlp32 ?? utána kell néznem - de eszméletlen jó helppel rendelkezik. Nem teljesen minden fordul le Lazarus alatt, de az alap dolgokkal nincs gond - szerintem a konzolos alkalmazások csont nélkül.

Ha szükséged van még az én megközelítésemre is akkor szólj.

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils, Classes;

var In_1, In_2, Out_1 : TStringList;

i : integer;

begin

In_1 := TStringList.Create;

In_2 := TStringList.Create;

Out_1 := TStringList.Create;

try

In_1.LoadFromFile('File1.txt');

In_2.LoadFromFile('File2.txt');

for i := 0 to In_1.Count - 1 do

if In_2.IndexOf(In_1.Strings[i]) < 0 then Out_1.Add('File1 - > '+ In_1.Strings[i]);

for i := 0 to In_2.Count - 1 do

if In_1.IndexOf(In_2.Strings[i]) < 0 then Out_1.Add('File2 - > '+ In_2.Strings[i]);

Out_1.SaveToFile('File3.txt');

finally

In_1.Free;

In_2.Free;

Out_1.Free;

end;

end.

File1:

Alma

Körte

Narancs

Szilva

Eper

Szőlő

Cseresznye

Kiwi

Banán

Őszibarack

Meggy

Málna

Sárgabarack

Nektarin

File2:

Alma

Körte

Avokadó

Narancs

Szilva

Eper

Szőlő

Ananász

Kiwi

Banán

Őszibarack

Meggy

Sárgabarack

Nektarin

Barack

Eredmény - File3:

File1 - > Cseresznye

File1 - > Málna

File2 - > Avokadó

File2 - > Ananász

File2 - > Barack

Ha erre gondoltál.

C++ -ban, kicsit (nagyon) okádék kód lett, de működik akárhány fájlal:

class TextLine

{

struct FileCount

{

std::string fileName;

mutable size_t count = 1;

FileCount(const std::string &s) : fileName{s} {}

};

std::string m_text;

mutable std::set<FileCount> m_fileCount;

public:

TextLine(const std::string &text, const std::string &fileName) : m_text{text} { m_fileCount.insert(fileName); }

~TextLine() {}

friend bool operator<(const TextLine &lhs, const TextLine &rhs);

friend bool operator<(const FileCount &lhs, const FileCount &rhs);

void IncreaseCount(const std::string fileName) const

{

auto found = m_fileCount.find(FileCount{fileName});

if(found == m_fileCount.end())

m_fileCount.insert(fileName);

else

++found->count;

}

std::string GetText() const { return m_text; }

std::vector<std::pair<std::string, size_t>> GetFileCount() const

{

std::vector<std::pair<std::string, size_t>> v;

for(const auto i : m_fileCount)

v.push_back(std::pair<std::string, size_t>{i.fileName, i.count});

return v;

}

};

bool operator<(const TextLine &lhs, const TextLine &rhs)

{

return lhs.m_text < rhs.m_text;

}

bool operator<(const TextLine::FileCount &lhs, const TextLine::FileCount &rhs)

{

return lhs.fileName < rhs.fileName;

}

int main(int argc, char *argv[])

{

std::locale::global(std::locale{"HU"});

std::vector<std::string> file = {"file1.txt", "file2.txt"};

std::set<TextLine> set;

for(size_t i = 0; i < file.size(); i++)

{

std::ifstream ist{file[i]};

if(!ist) throw std::exception{"Nem található a fájl!"};

for(std::string s; ist >> s;)

{

TextLine tl{s, file[i]};

auto found = set.find(tl);

if(found == set.end())

set.insert(tl);

else

found->IncreaseCount(file[i]);

}

}

for(const auto &i : set)

{

std::cout << i.GetText() << ":\n";

for(const auto &k : i.GetFileCount())

std::cout << '\t' << k.first << " - " << k.second << '\n';

std::cout << '\n';

}

std::cin.get();

return 0;

}

/*

possible output:

Alma:

file1.txt - 1

file2.txt - 1

Ananász:

file2.txt - 1

Avokadó:

file2.txt - 1

Banán:

file1.txt - 1

file2.txt - 1

Barack:

file2.txt - 1

Cseresznye:

file1.txt - 1

Eper:

file1.txt - 1

file2.txt - 1

Kiwi:

file1.txt - 1

file2.txt - 1

Körte:

file1.txt - 1

file2.txt - 1

Meggy:

file1.txt - 1

file2.txt - 1

Málna:

file1.txt - 1

Narancs:

file1.txt - 1

file2.txt - 1

Nektarin:

file1.txt - 1

file2.txt - 1

Szilva:

file1.txt - 1

file2.txt - 1

Szőlő:

file1.txt - 1

file2.txt - 1

Sárgabarack:

file1.txt - 1

file2.txt - 1

Őszibarack:

file1.txt - 1

file2.txt - 1

*/