Im String Nach Wort suchen und nebenstehendes auslesen

[Sir Rufo]

Zitat von baumina:

Aber

Showmessage(GetValue('Name1= "Meier" Name2= "Schmidt" Strasse= "Hauptstrasse 22" Vorname= "Bernd"', 'Vorname'));
Liefert :

Zitat:

Bernd"

Darum sind Unit-Tests auch zwingend notwendig.

[vagtler]

Zitat von Sir Rufo:

[...] Darum sind Unit-Tests auch zwingend notwendig.

Ach, komm, (Unit-)Testing wird überbewertet. Reicht doch, wenn es kompiliert...

[Jumpy]

Zitat von Sir Rufo:

Zitat von baumina:

Aber

Showmessage(GetValue('Name1= "Meier" Name2= "Schmidt" Strasse= "Hauptstrasse 22" Vorname= "Bernd"', 'Vorname'));
Liefert :

Zitat:

Bernd"

Darum sind Unit-Tests auch zwingend notwendig.

Leider hab ich es noch nicht geschafft DUnit im Browser einzubinden und für die fehlerfreie Einbindung im Kopf fehlte noch der Kaffee.
Ich bin da auch nicht ganz sicher, was die optimale Variante ist, um das zu berichtigen, vielleicht:

Delphi-Quellcode:

  if meinString[Length(meinString)]='"' then
    meinString=Copy(meinString,1,Length(meinString)-1);

Für alle weiteren Probleme die mit der Struktur noch auftreten könnten ist dieser Schnellschuss aber dann auch wirklich am Ende und es hilft nur noch ein Parser.

[Jasocul]

Mal eben schnell hingetippt.
Die Idee dahinter: Mit einer StringList kann man auch Wertepaare "verwalten".
Da der String ja immer gleich aufgebaut sein soll, werden erstmal überflüssige Leerzeichen rausgeschmissen. Die Paare sind durch ein "=" verbunden. Ich meine, dass dann kein Leerzeichen dazwischen sein darf. Die Anführungszeichen mit folgendem Leerzeichen trennt ein Wertepaar vom nächsten. Der Sonderfall des letzten Wertepaares muss natürlich berücksichtigt werden.

Delphi-Quellcode:

var
  SL : TStringList;
  Teil, Mein : String;
begin
  SL := TStringList.Create;
  SL.NameValueSeparator := '=';
  Mein := StringReplace('Name1= "Meier" Name2= "Schmidt" Strasse= "Hauptstrasse 22" Vorname= "Bernd"', '= "', '="', [rfReplaceAll]);
  if length(Mein) > 0 then
  begin
    Repeat
      Teil := copy(Mein, 1, Pos('" ', Mein));
      if Teil = '' then
      begin
        Teil := Mein;
      end;
      SL.Add(Teil);
      Delete(Mein, 1, Pos('" ', Mein) + 1);
    until Pos('" ', Mein) = 0;
  end;
  ShowMessage(SL.Values['Strasse']);
end;

Dann kann man einfach über:
StringList.Values['Strasse'] zum Beispiel an den Straßennamen kommen.

Oder denke ich jetzt zu einfach?