Stringliste indexOfName IndexofValue

[Neutral General]

Values gibt nur den Wert zu einem Key. Damit kriegt man nicht raus ob IRGENDEIN Key einen bestimmten Value hat.

[bernhard_LA]

tauschen von Key und Value geht leider nicht muss mich hier an ein festes Ausgabeformat halten,
will halt eine Suche ob ein Substring vorhanden ist vor jedem Einfügen vermeiden, die Listen können sehr lang werden

[hoika]

Hallo,

Zitat:

muss mich hier an ein festes Ausgabeformat halten

Das mag für die Ausgabe stimmen, aber intern kannst du das doch umdrehen (eigene StringList).

Korrektur

Zitat:

nur dann ein neues Paar "key=value" einfügen, wenn der value nicht schon exitiert.

IndexOf("key=value")=-1 -> existiert noch nicht

Aso die ganz normale Suche benutzen.

[Neutral General]

Zitat von hoika:

IndexOf("key=value")=-1 -> existiert noch nicht

Funktioniert nicht. Was ist wenn key2=value existiert? Das kannst du damit nicht abfragen.

[Jumpy]

TDictionary verwenden?

[Dalai]

Tja, eine simple Variante ist, eine Kopie der Funktion IndexOfName zu machen und sie zu einem IndexOfValue umzuarbeiten. Ob man das dann als Ableitung von TStrings/TStringList macht oder ob das auch als Helper möglich ist, weiß ich nicht (nie benutzt).

Grüße
Dalai

[Uwe Raabe]

Zitat von Neutral General:

Values gibt nur den Wert zu einem Key. Damit kriegt man nicht raus ob IRGENDEIN Key einen bestimmten Value hat.

Du könntest über alle Einträge iterieren und ValueFromIndex prüfen.

[bernhard_LA]

bin jetzt hier gelandet :

Delphi-Quellcode:

Type      TStringlistHelper = class helper for TStringlist

           function IndexofValue( ValueStr : string) : Integer;
        
         end;

function TStringlistHelper.IndexofValue ( ValueStr : string) : Integer;
  var   i : Integer;
begin
    i := 0;
    repeat
        if ( Pos(ValueStr, self[i])>0 ) then
            begin
              Result := i;
              exit
            end;

        Inc(i);

    until i >  Self.Count-1;

    if i >  Self.Count-1 then  Result := -1;

end;

gibt es bessere / schnellere Lösungen ?

[Neutral General]

Zitat von bernhard_LA:

gibt es bessere / schnellere Lösungen ?

Ja: ValueFromIndex benutzen statt pos.
Edit: Und eine for-Schleife.. Es sei denn du willst es extra umständlich machen
Edit2:

Delphi-Quellcode:

function TStringlistHelper.IndexofValue(AValueStr : string): Integer;
var i : Integer;
begin
  Result := -1;
  for i:= 0 to Count-1 do
  begin
    if ValueFromIndex[i] = AValueStr then // StrUtils.AnsiSameText ggf falls Case-Insensitiv
    begin  
      Result := i;
      break;
    end;
  end;
end;

[himitsu]

Zitat von Neutral General:

Zitat von bernhard_LA:

gibt es bessere / schnellere Lösungen ?

Ja: ValueFromIndex benutzen statt pos.

Der Witz ist, dass dein Code zwar "richtig" funktioniert, im Gegensatz zur ursprünglichen Schleife, da dort das POS irgendwas findet, auch X oder geb in xXx=Ergebnis.
Und der Code ist viel einfacher zu lesen, ist genauso schnell wie das normale IndexOfName,
aber es muß zwangsläufiger langsamer werden, als die einfache Pos-Variante.

Also besser ja, aber schneller ne.

Original wurde im String (ganze Zeile) nur gesucht/verglichen,
während ValueFromIndex erstmal langsam einen neuen String erzeugt (Teil aus Zeile kopiert) und dort dann schneller den ganzen String richtig/vollsändig vergleicht.

Zitat von Uwe Raabe:

Zitat von hoika:

Hallo,
Pos('=Value2',StringList.DelimitedText) ?

Das würde aber auch bei einem Eintrag 'Value22' anschlagen.

EndsStr statt Pos wäre hier fast richtiger, aber das würde auch Ergebnis in xXx=abc=Ergebnis finden, obwohl der Wert eigentlich abc=Ergebnis wäre.
Gut, wenn man ausschließt, dass dort ein = drin vorkommt, dann reicht EndsStr aus.
Man müsste also auch noch prüfen, sodass vor dem Gefundenen kein weiteres = vorkommt.

Ansonsten ist die "einfache" Lösung mit ValueFromIndex.


Tipp: eine Zweiphasensuche
Erst schnell mit EndsStr suchen und dann jeden gefundenen Eintrag nochmal "genauer" mit ValueFromIndex nachprüfen,
falls es unbedingt schnell sein muß, auch in einer StringListe.


Schneller geht es sonst nur mit einer Liste, wo Name und Value bereits getrennt in zwei Variablen gespeichert wurden,
am Besten noch, wenn die Liste gehasht und womöglich sogar sortiert wurde.