Array of records zellegen

[IMPEGA]

@ConnorMcLeod
Damit muss ich aber die Voraussetzung erfüllen, alle Namen zu kennen oder aufnehmen.
Keine Chance. Wie soll das gehen, wenn ich ein 90MB Datei bekomme, die 800 Namen enthaltet?
Es sind nicht immer Autos, es können auch Teile von Autos sein. Reifen, Kupplungen, Lenker...... und in 2 Tagen ist es dann eine 48Mb Liste mit 1300 andere Namen. U.s.w
Ganze selten 5Mb mit 60 Namen.
Wir reden hier von Unmengen an Namen, die möglich sind.
Ich habe ein Beispiel mit Autos angegeben, damit Ihr erst versteht, was ich zu erfüllen habe. Das Ganze ist doch etwas komplizierter.
Ich muss nur den Weg finden, danach wird es schon gehen.
Ich denke, der Ansatz mit Pointer bringt mich weiter. Schon alleine wegen der Performance. Als kein Profi muss ich mich allerdings erst etwas einlesen.
So ganz auf die Schnelle wird es nicht gehen, und nur halb funktionieren darf es auch nicht.
Dennoch bin ich für jeden Anstoß dankbar.

Momentan denke ich an sowas.
Ich extrahiere die Pointer als Array dabei erfasse ich die Namen in einer separaten Liste. (Damit habe ich schon die heutigen, möglichen Namen)
Die Daten werden nämlich nur nach Namen gruppiert. Nie anders. Damit ist nur "Marke: string;" für mich von Bedeutung. (In echt heißt es Item : string
Nun muss ich jeden Wert aus der Liste im MySortArray suchen.
Ich denke, suchen im Speicheradresse läuft schnell.
Ziemlich lange wird es trotzdem dauern, dennoch wird es eine Verbesserung zu jetziger Methode.

Auf das Beste hoffen, ist meine Devise.

[ConnorMcLeod]

Zitat von IMPEGA:

Damit muss ich aber die Voraussetzung erfüllen, alle Namen zu kennen oder aufnehmen.

Ahso, ich dachte, das wären alles bereits bekannte Namen. Dann muß man erstmal eine Liste aller vorkommenden Bezeichnungen aufbauen. Aber wie soll das dann mit den Synonymen (falsch geschriebene Bezeichnungen) funktionieren? Es muß doch eine "Person" regulierend eingreifen und bestimmen, was zusammen gehört.

[jaenicke]

Zitat von IMPEGA:

Es sind nicht immer Autos, es können auch Teile von Autos sein. Reifen, Kupplungen, Lenker...... und in 2 Tagen ist es dann eine 48Mb Liste mit 1300 andere Namen. U.s.w
Ganze selten 5Mb mit 60 Namen.
Wir reden hier von Unmengen an Namen, die möglich sind.

Da wäre ich aber erst recht bei einer Datenbank im Speicher...

FireDAC ist ja z.B. bei Delphi dabei und bietet mit TFDMemTable eine entsprechende Möglichkeit. Da kannst du auch mit einem Index (oder mehreren Indexfelder usw.) arbeiten. Du kannst sogar mehrere Tabellen erstellen und per SQL-Abfrage kombinieren, alles ohne feste Datenbank dahinter.

Zur Zuordnung falscher Schreibweisen würde ich nach Anzahl sortieren und die Einträge, die nur einen oder sehr wenige Vorkommnisse haben, z.B. per Levenshtein Distanz mit den anderen vergleichen.

Bessere Ratschläge sind ohne genauere Beschreibung der Abläufe kaum möglich.

[Mavarik]

Warum nimmst Du nicht einfach ein Dictionary?

Delphi-Quellcode:

Type
 TAuto = record
    Farbe: string;
    Baujahr: string;
    KM: string;
    Notiz: string;
  end;

 TInfo = Class
   private
     fParts : TArray<TAuto>;
 end;

 TMyDic = TObjectDictionary<String,TInfo>;

Mavarik

[Delphi.Narium]

Oder sowas in der Art (nur mit PascalScript getestet):

Delphi-Quellcode:

program Test;
type
  TAuto = Record
    Marke   : String;
    Farbe   : String;
    Baujahr : String;
    KM      : String;
    Notiz   : String;
  end;
  TMarken = Record
    Marke     : String;
    Exemplare : Integer;
    Data      : Array of TAuto;
  end;
var
  i             : Integer;
  k             : Integer;
  AMarken       : Array of TMarken;
  iMarkenAnzahl : Integer;
  iAutoAnzahl   : Integer;
begin
  // Hier anhand der vorhandenen Datei die Anzahl der Marken ermitteln.
  iMarkenAnzahl := 10;  // Zum Testen mal 10 als konstanten Wert angenommen.
  SetLength(AMarken,iMarkenAnzahl);
  for i := 0 to iMarkenAnzahl - 1 do begin
    // Hier anhand der vorhandenen Datei die Anzahl der Exemplare zur Marke ermitteln.
    iAutoAnzahl := (i + 1) * 3; // Da es nicht von allen Marken gleichviel gibt hier mal Pseudozufall als Mengenangabe genommen.
    SetLength(AMarken[i].Data,iAutoAnzahl);
    // Hier den Markennamen aus der Datei übernehmen
    AMarken[i].Marke     := Format('Marke: %d',[i]);
    // und die oben ermittelte Anzahl von Exemplaren zuweisen.
    AMarken[i].Exemplare := iAutoAnzahl;
    for k := 0 to iAutoAnzahl - 1 do begin
      // Die Werte aus der Datei für das Exemplar übernehmen.
      AMarken[i].Data[k].Marke := AMarken[i].Marke;
      AMarken[i].Data[k].Notiz := Format('Exemplar %d der Automarke %s', [k,AMarken[i].Data[k].Marke]);
    end;
  end;
  for i := 0 to Length(AMarken) - 1 do begin
    for k := 0 to Length(AMarken[i].Data) - 1 do begin
      WriteLn(Format('Marken: %s - Marke: %s - Notiz: %s', [AMarken[i].Marke,AMarken[i].Data[k].Marke,AMarken[i].Data[k].Notiz]));
    end;
  end;
end.

Meine erste Wahl wäre aber auch eine Datenbank, auch wenn sie nur zur Laufzeit im Arbeitsspeicher existiert. Dann werden das Sortieren und das Zählen (fast) zu Kleinigkeiten. Und andere Auswertung dürften dann auch weitgehend problemlos zu implementieren sein. Reportgeneratoren setzen regelmäßig auf Datenbanken auf und die Anzeige per DBGrid wäre für Neugierige auch leicht zu implementieren.

Um "Unfeinheiten" bei der Namensvergabe der Marken ... etwas abmildern zu können, könnte auch die Soundex-Funktion von Delphi für Erleichterung sorgen.