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. 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

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> ...


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
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?

[mav]

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