Strings durch Zahlen effizient ersetzen???

[Pam]

Guten Abend!!!

Ich habe ein einer Textdatei eine Liste mit über 1500 Motorenherstellern. Jeder Hersteller hat eine eine eindeutige Nummer (Zahlen, 1-3 -stellig).
In der zweiten Datei habe ich mehrere zehntausend Zeilen mit verschiedenen Motorenmodellen und Konfigurationen. Am Anfang jeder Zeile steht die Bezeichnung des Hestellers. Meine Aufgabe ist, alle Zeilen so zu modifizieren, dass die Herstellerbezeichnung durch die entsprechende Nummer ersetzt und mit Komma von dem Rest getrennt wird. Dabei soll es so schnell wie möglich passieren?

Was ist die schnellste Methode?

[3_of_8]

Ist die Herstellerbezeichnung auf irgendeine Art und Weise vom Rest der Zeile abgetrennt? Wenn ja, geh einfach alle Zeilen durch, such dir jeweils den Herstellernamen und ersetze ihn durch die Zahl (geht ja Problemlos mit copy und pos), die du z.B. mithilfe einer Hashmap zuordnen kannst.

[olee]

Du müsstest vllt. mal ein paar Beispielzeilen geben.

Die sind eine etwas festere (Nahrungs-)Quelle als sone öde erklärung :-D

[omata]

Dafür ist Delphi gar nicht nötig.
Nimm doch eine Standardanwendung wie Excel oder Calc (OpenOffice).
TEIL, SVERWEIS sind dort dann deine Freunde.

[jaenicke]

Zitat:

Zitat von omata

Dafür ist Delphi gar nicht nötig.
Nimm doch eine Standardanwendung wie Excel oder Calc (OpenOffice).
TEIL, SVERWEIS sind dort dann deine Freunde.

Ich bezweifele doch sehr, dass ein allgemeines Programm für einen solchen speziellen Zweck auch nur annähernd eine ähnliche Geschwindigkeit bieten kann.

Zitat:

Zitat von Pam

Ich habe ein einer Textdatei eine Liste mit über 1500 Motorenherstellern. Jeder Hersteller hat eine eine eindeutige Nummer (Zahlen, 1-3 -stellig).

Das ist doch mal ein Kunststück. 1500 Motorenhersteller und eine eindeutige Nummer in maximal dreistelligen Zahlen? :shock: :gruebel:

Aber das ist ja für die Lösung letztlich egal.

[Bernhard Geyer]

Zitat:

Zitat von Pam

Dabei soll es so schnell wie möglich passieren?

Definiere Schnell? Die Datenmenge sollte auch bei inperformanter Implementierung in Sekunden zu erledigen sein!
Oder soll die Aufgabe schnell gelöst sein?

[alzaimar]

Zitat:

Zitat von jaenicke

Das ist doch mal ein Kunststück. 1500 Motorenhersteller und eine eindeutige Nummer in maximal dreistelligen Zahlen? :shock:

Ich würde das für das eigentliche Problem halten.

Dessenungeachtet sollte diese Anforderung mit einer Hashmap, bzw. selbst mit einer TStringList (Sorted := True) in relativ kurzer Zeit erstens zu implementieren und zweitens abgewickelt sein.

Delphi-Quellcode:

Procedure ErsetzeMotorenHerstellerDurchIDWerte (aHerstellerliste, slMotorenListe : TStringList);
Var
  slHerstellerLookup : TStringlist;
  sHersteller : String;
  i, j, ID : Integer;
  
Begin
  slHerstellerLookup := TStringlist.Create;
  Try
    For i:=0 to aHerstellerListe.Count - 1 do
       slHerstellerLookup.AddObject (HerstellerName (aHerstellerListe[i]), Pointer (HerstellerID(aHerstellerListe[i])));
    slHerstellerLookup.Sorted := True;

    For i:=0 to slMotorenListe.Count - 1 do Begin
      sHersteller := HerstellerName (slMotorenListe[i]);
      j := slHerstellerLookup.IndexOf (sHersteller);
      if j=-1 then
        ID := 99999
      else
        ID := Integer (slHerstellerLookup.Objects[j]);
      slMotorenListe[i] := IntToStr(ID)+','+EntferneHersteller(slMotorenListe[i]);
    End;
  Finally
    slHerstellerLookup.Free;
  End;  
End;

Die Funktionen 'HerstellerName', 'HerstellerID' und 'EntferneHersteller' sind von Dir zu implementieren. Wenn die Performance nicht reicht, ersetze den Datentyp des 'slHerstellerLookup' durch eine Hashmap. Eine Implementierung findest Du hier im Forum.

[Bernhard Geyer]

Zitat:

Zitat von alzaimar

Zitat:

Zitat von jaenicke

Das ist doch mal ein Kunststück. 1500 Motorenhersteller und eine eindeutige Nummer in maximal dreistelligen Zahlen? :shock:

Ich würde das für das eigentliche Problem halten.

[OT] Gabs da nicht mal eine Nachricht das jemand einen Komprimierungsalgorithmus entwickelt haben sollte der jede Datenmenge komprimieren kann egal welche größe oder ob diese mit anderen Algorithmen schon komprimiert wurde :mrgreen:[/OT]

[jaenicke]

Zitat:

Zitat von Bernhard Geyer

[OT] Gabs da nicht mal eine Nachricht das jemand einen Komprimierungsalgorithmus entwickelt haben sollte der jede Datenmenge komprimieren kann egal welche größe oder ob diese mit anderen Algorithmen schon komprimiert wurde :mrgreen:[/OT]

Ich behaupte: das kann ich auch. Wirklich!
Von verlustfrei hast du nix gesagt... *duck und weg* :mrgreen:
SCNR

[3_of_8]

Zitat:

Zitat von jaenicke

Das ist doch mal ein Kunststück. 1500 Motorenhersteller und eine eindeutige Nummer in maximal dreistelligen Zahlen? :shock: :gruebel:

Er hat ja nichts von Dezimalzahlen gesagt. ;)

Nimm hexadezimale Zahlen und schon kannst du in 3 Stellen 4096 Hersteller kodieren.