Hallo,
ich habe folgende Code von C# in VB.NET übernommen. Erhalte jedoch in der Zeile mit dem STringvergleich einen Fehler, dass der Objektverweis nicht auf eine Objektinstanz festgelegt wurde.

Code :

1 2 3 4 5 6

Dim queryVariable = From item In XDoc.Descendants("Apartment").Descendants("Variable").Attributes("TypeID") _                                 Select New With { _                                     .Typnummer = item.Value, _                                     .Datentyp = (From element In XDoc.Descendants("Apartment").Descendants("Type") _                                                     Where element.Attribute("TypeID").Value.ToString = item.Value.ToString _                                                     Select element.Value).First()}

Der Code in C# funktioniert:

Code :

1 2 3 4 5 6 7 8

var queryVariable = from item in doc.Descendants("Apartment").Descendants("Variable").Attributes("TypeID")                                 select new                                 {                                     Typnummer = item.Value,                                     Datentyp = (from element in doc.Descendants("Apartment").Descendants("Type")                                                 where (string) element.Attribute("TypeID") == (string)item.Value                                                 select element.Value).First()                                 };

Weiß jmd. woran dies liegen könnte?

Gruß

Hi

In C# castest du nach string und in VB.NET konvertierst du nach Int32. Ich glaub da könnte der Hund begraben liegen.

Hallo Nico,
sorry, habe mehrere Dinge versucht und beim Einstellen hier ins Forum nicht alles rückgängig gemacht.

In dem Element element.Attribute("TypeID").Value befindet sich ein Integerwert. Deshalb habe ich danach noch per KOnvertierung versucht es zum Laufen bekommen.

Die Zeile soll natürlich so aussehen und werde es gleich ändern im ersten Posting (falls es geht). Bei dem Code hätte ja auch der Compiler sich beschwert.

Code :

1	Where element.Attribute("TypeID").Value.ToString = item.Value.ToString _

Hi.

Wie sieht denn dein Dokument aus.

Ich hab deine Abfragen mal schnell mit LINQPad ausprobiert und die gleichen Ergebnisse bekommen.

Vermutlich gibt es ein Type Element welches keine TypeID besitzt?

Gruß

Es handelt sich um eine XML Datei. Kann ich diese auch mit LinqPad abfragen?

Ich habe die Datei mal hier abgelegt:

http://rapidshare.com/files/37032276...enten.XML.html

Das komische ist für mich, dass es mit C# funktioniert.

Zitat von multitasker

Es handelt sich um eine XML Datei. Kann ich diese auch mit LinqPad abfragen?

Natürlich.

Code vbnet:

1 2	Dim doc = XDocument.Load("c:\pfad\zur\datei\1_Bild_mit_2_Elementen.XML") doc.Dump("XDocument")

Zitat von multitasker

http://rapidshare.com/files/37032276...enten.XML.html

Das komische ist für mich, dass es mit C# funktioniert.

Wie bereits vermutet, die Ausgabe von

Code csharp:

1 2	var q = from i in doc.Descendants("Apartment").Descendants("Type") select i.Attribute("TypeID");     q.Dump("q");

ist für das fragliche XML:

Code :

1 2	null   TypeID="6"

D.h. es gibt ein Type Element welches kein TypeID Attribut enthält.

Wenn du den VB.NET Code so änderst:

Code vbnet:

1	where element.Attribute("TypeID") = item.Value

dann bekommst du das gleiche Ergebnis wie bei C#.

Gruß

Ich habe es so versanden:

Code :

1 2 3 4 5 6

Dim queryVariable = From item In XDoc.Descendants("Apartment").Descendants("Variable").Attributes("TypeID") _                                 Select New With { _                                     .Typnummer = item.Value, _                                     .Datentyp = (From element In XDoc.Descendants("Apartment").Descendants("Type") _                                                     Where element.Attribute("TypeID") = item.Value _                                                     Select element.Value).First()}

jedoch bekomme ich so natürlich schon beim Kompilieren die Meldung, dass XElement nicht in STring konvertiert werden kann.

Zitat von multitasker

Ich habe es so versanden:

Code :

1 2 3 4 5 6

Dim queryVariable = From item In XDoc.Descendants("Apartment").Descendants("Variable").Attributes("TypeID") _                                 Select New With { _                                     .Typnummer = item.Value, _                                     .Datentyp = (From element In XDoc.Descendants("Apartment").Descendants("Type") _                                                     Where element.Attribute("TypeID") = item.Value _                                                     Select element.Value).First()}

jedoch bekomme ich so natürlich schon beim Kompilieren die Meldung, dass XElement nicht in STring konvertiert werden kann.

OK. Am saubersten wäre es sowieso den Fehlerfall abzufangen:

Code vbnet:

1 2 3

From element In XDoc.Descendants("Apartment").Descendants("Type") _     Let type = element.Attribute("TypeID") _     Where type IsNot Nothing and type.Value = item.Value

Gruß

\edit: Noch schöner ist es vermutlich mit einem join:

Code vbnet:

1 2 3 4 5 6 7

From item _ In XDoc.Descendants("Apartment").Descendants("Variable").Attributes("TypeID") _ join e _ in XDoc.Descendants("Apartment").Descendants("Type") _        .Where(Function(e) e.Attribute("TypeID") isNot Nothing) _ on e.Attribute("TypeID").Value equals item.Value _ select new with { .Typnummer = item.Value, .Datentyp = e.Value }

Danke für deine tatreiche Unterstütung. Leider funktioniert es bei mir immer noch nicht. Weder im VS noch im LinqPad.

Zitat von multitasker

Danke für deine tatreiche Unterstütung. Leider funktioniert es bei mir immer noch nicht. Weder im VS noch im LinqPad.

Das kann ich überhaupt nicht nachvollziehen. Ich hab jetzt nochmal ein VB.NET Projekt angelegt und es funktioniert einwandfrei.

Gruß

Alles funktioniert immer nur solange bis was neues kommt.
So,...
Ich habe nun noch das Problem, dass es das Element "Text" selten aber manchmal nicht gibt.

item2.Elements("Text")

Ich dachte eigentlich es sei damit abgefangen, wenn ich dies in das Where Statement schreibe. Dem ist aber nicht so. Ich bekomme die Meldung:

Bei der Auflistung wurde kein Ergebnis zurückgeliefert.

Der unten aufgeführte Code ist in einer verschachtelten Abfrage.

Code :

1 2 3 4 5 6 7

select new { ....                                       TagName = (from item2 in item.Parent.Parent.Parent.Elements()                                                  where item2.Attributes("TYPE").Count() == 1 && item2.Attribute("TYPE").Value == "107" && item2.Elements("Text").Count() > 0                                                  select item2.Elements("Text").Count() > 0 ? item2.Elements("Text").First().Value : string.Empty) }

any ideas?

Alles funktioniert immer nur solange bis was neues kommt.
So,...
Ich habe nun noch das Problem, dass es das Element "Text" selten aber manchmal nicht gibt.

item2.Elements("Text")

Ich dachte eigentlich es sei damit abgefangen, wenn ich dies in das Where Statement schreibe. Dem ist aber nicht so. Ich bekomme die Meldung:

Bei der Auflistung wurde kein Ergebnis zurückgeliefert.

Der unten aufgeführte Code ist in einer verschachtelten Abfrage.

Code :

1 2 3 4 5 6 7

select new { .... TagName = (from item2 in item.Parent.Parent.Parent.Elements()                       where item2.Attributes("TYPE").Count() == 1 && item2.Attribute("TYPE").Value == "107" && item2.Elements("Text").Count() > 0                       select item2.Elements("Text").Count() > 0 ? item2.Elements("Text").First().Value : string.Empty) }

any ideas?

Hi.

Wenn du schon in der where Klausel die Elemente ausschließt, die kein Text Element haben, dann kann natürlich nichts mehr ausgewählt werden.

Code csharp:

1 2 3

(from item2 in item.Parent.Parent.Parent.Elements()        where item2.Attributes("TYPE").Count() == 1 && item2.Attribute("TYPE").Value == "107" && item2.Elements("Text").Count() > 0        select item2.Elements("Text").First().Value)  COALESCING_OPERATOR string.Empty

Statt COALESCING_OPERATOR mußt du den "Verbindungsoperator" einsetzen. Leider erlaubt das Forum keine doppelten Fragezeichen...

Gruß

Hallo deepthroat,
ich bin übrigens auch deepthroat Fan.

Gute Idee mit dem Operator. Das funktioniert auch, sodass ich keinen Fehler mehr bekommen. Ich denke, dass ich es aber ein wenig anders machen muss.

Mal kurz zur Übersicht, vielleicht hast du dazu auch eine gute Idee.

Im Moment ist TagName in einem neuene anonymen Datentyp. Das ist vorübergehend zum Testen so, damit ich sehe, was alles zurückkommt aus der Abfrage. Später ist es ein definierter Datentyp (Klasse) in der TagName ein String ist. Deshalb ist es notwendig, dass ich auch nur ein Ergebnis zurückbekomme. Falls mehrere zurückkommen, da es mehrere Elemente mit "Text" gibt, möchte ich eine entsprechende Meldung eintragen anstatt dem item2.Elements("Text").First().Value (was ja eigentlich mal item2.Element("Text").Value heißen müsste, wenn nur noch eines zurückkommt). Im Moment bekomme ich mehrere Texte zurück und wenn kein Text gefunden wurde oder mehrere bekomme ich mit dem unteren Code auch nicht den entsprechenden Eintrag. Sprich es geht noch gar nischts, bis auf das Kompilieren was fehlerfrei ist. Geht das mit Join und wenn ja nur mit Join?

Code :

1 2 3 4 5

select new { TagName = (from item2 in item.Parent.Parent.Parent.Elements()                         where item2.Attributes("TYPE").Count() == 1 && item2.Attribute("TYPE").Value == "107"                         select item2.Elements("Text") == null ? "Kein Text gefunden" : item2.Elements("Text").Count() > 1 ? "Zuviele Texte gefunden" : item2.Elements("Text").First().Value) }

Zitat von multitasker

Mal kurz zur Übersicht, vielleicht hast du dazu auch eine gute Idee.

Im Moment ist TagName in einem neuene anonymen Datentyp. Das ist vorübergehend zum Testen so, damit ich sehe, was alles zurückkommt aus der Abfrage. Später ist es ein definierter Datentyp (Klasse) in der TagName ein String ist. Deshalb ist es notwendig, dass ich auch nur ein Ergebnis zurückbekomme. Falls mehrere zurückkommen, da es mehrere Elemente mit "Text" gibt, möchte ich eine entsprechende Meldung eintragen anstatt dem item2.Elements("Text").First().Value (was ja eigentlich mal item2.Element("Text").Value heißen müsste, wenn nur noch eines zurückkommt). Im Moment bekomme ich mehrere Texte zurück und wenn kein Text gefunden wurde oder mehrere bekomme ich mit dem unteren Code auch nicht den entsprechenden Eintrag.

Ja, welchen Eintrag möchtest du denn auswählen wenn es mehrere Einträge gibt?

Gruß