suche in xml

[MathiasSimmack]

Aha. Na ja, dann mach´s wie ich vorgeschlagen habe:

Code:

/tester_db/tester/name

mit "selectNodes", und du hast alle (wenn es mehrere sind) Namen in IXMLDOMNodeList. Den Rest machst du wie vorgeschlagen in einer Schleife.

[mav]

ok.. dein vorschlag hört sich logisch an.. funktioniert aber bei mir noch nicht ganz :(

Delphi-Quellcode:

nl:= xmldoc.documentElement.selectNodes('tester_db/tester/name');

for i := 0 to nl.length - 1 do begin

if lowercase(nl.item[i].nodeValue) = lowercase(LabeledEdit1.Text) then

    subNode := nl.item[i].selectSingleNode('id');
    ListView1.Items.Add;
    ListView1.Items[i].Caption := subNode.text;
    with ListView1.Items[i].SubItems do begin
      subNode := nl.item[i].selectSingleNode('name');
      if subNode <> nil then
        Add(subNode.text);

[MathiasSimmack]

Zitat:

funktioniert noch nicht so ganz

ist immer eine super Fehlerbeschreibung, insbesondere dann, wenn man nicht sagt, was man eigentlich erreichen will. :mrgreen: Ausgehend von deinem Code müsste die Datei so aussehen:

XML-Code:

<tester_db>
  <tester>
    <name>
      Thomas
      <name>?</name>
      <id>?</id>
    </name>
  </tester>
</tester_db>

Tut sie aber bestimmt nicht. Bitte beachte, dass du dich mit der XPath-Anweisung

Code:

/tester_db/tester/name

auf der Ebene von <name> befindest. Das jeweilige Item in "nl.item[i]" entspricht also dem <name>-Knoten, und du suchst mit deinem Code dort jetzt untergeordnete <id>- und <name>-Knoten. Ohne Nachgucken ist es etwas schwierig (weil aus dem Kopf), aber es müsste eine "parentNode"-Eigenschaft geben, die auf den übergeordneten <tester>-Knoten verweist. Benutze den, und dein Code sollte funktionieren. ;)

Nebenbei vermisse ich nach der if-Prüfung das begin/end, denn wenn der Name identisch ist, dann sollen sicher alle der nachfolgenden Anweisungen ausgeführt werden, und nicht nur

Zitat:

Delphi-Quellcode:

if lowercase(nl.item[i].nodeValue) = lowercase(LabeledEdit1.Text) then

  subNode := nl.item[i].selectSingleNode('id');

Oder? :)

[mav]

ok.. die genau fehler beschreibung heisst..

"Variante des Typs (NULL) konnte nicht in den Typ (String) konvertiert werden."

und der Fehler weist auf folgende zeile hin

Delphi-Quellcode:

if lowercase(nl.item[i].nodeValue) = lowercase(LabeledEdit1.Text) then begin

das ganze sieht jetzt so aus...

Delphi-Quellcode:

nl:= xmldoc.documentElement.selectNodes('/movies_db/mov/name');

for i := 0 to nl.length - 1 do begin
ListView1.Items.BeginUpdate;
ListView1.Clear;
if lowercase(nl.item[i].nodeValue) = lowercase(LabeledEdit1.Text) then begin
MessageDlg('Eintrag gefunden', mtConfirmation, [mbYes,mbNo], 0);
end;

ListView1.Items.EndUpdate;
end;

[MathiasSimmack]

Hast du das Platform SDK auf der Platte? Oder die Hilfedatei, die bei MS-XML dabei war? Dann schau dir mal die Angaben zu nodeValue von IXMLDOMNode an. Und versuch dein Glück stattdessen mal mit text bzw. Get_text.

Und, äh, ...

Delphi-Quellcode:

ListView1.Items.BeginUpdate;
ListView1.Clear;

solltest du nicht in der Schleife drin haben.

[mav]

so.. nach langem hin und her hab ich jetzt mal dieses hier versucht..

Delphi-Quellcode:

begin
ListView1.Items.BeginUpdate;
ListView1.Clear;

nl:= xmldoc.documentElement.selectNodes('mov');
for i := 0 to nl.length - 1 do begin
subNode := nl.item[i].selectSingleNode('id');
    ListView1.Items.Add;
    ListView1.Items[i].Caption := subNode.text;
    with ListView1.Items[i].SubItems do begin
      subNode := nl.item[i].selectSingleNode('name');
      if lowercase(subNode.text) = lowercase(LabeledEdit1.Text) then
        Add(subNode.text);
end;
end;
ListView1.Items.EndUpdate;
end;

jedoch überschreited jetzt der listenindex max.(5) und ich finde den fehler nicht :(

[MathiasSimmack]

Ich kann dir irgendwie nicht folgen, weil du auch ständig dein XML-Format änderst. Mal <tester_db>, jetzt wieder <mov_db>, dann nur noch <mov> ... :gruebel: :mrgreen:


Dein Problem mit der List-View lässt sich wie folgt lösen:

Delphi-Quellcode:

lvi := ListView1.Items.Add;
lvi.Caption := subNode.Text;
lvi.SubItems.(blablabla);

Spricht irgendwas gegen die Verwendung einer TListItem-Variablen? Ich meine, so viel größer wird sie dein Programm nicht machen. ;)

[mav]

entschuldige die verwirrung :D
wollte eigendlich nur einfachere beispiele verwenden ;)

naja.. funzt ned.. ich lass es.. muss einen anderen weg finden

thx für die hilfe.. echt cool die hilfe von dir mathias

[MathiasSimmack]

So schwer ist das aber gar nicht (s. Anhang).
Guck ob dir das irgendwie hilft.

Preisfrage: Woher stammt der Name der Funktion, die für die Suche zuständig ist, und wie müsste der richtige Suchbegriff lauten? :mrgreen:

[mav]

jo.. das ganze ist gut.. jedoch hab ich jetzt wieder den fehler, dass es mir nur extakte suchen ausgibt :D
daher verwendete ich zu begin contains