Xml aus web auslesen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von jack30t.

    Xml aus web auslesen

    Hallo liebe Forummitglieder :)

    ich möchte aus einer xml datei die im internet liegt (moviestarplanet.de/webservice/…%E2%82%AC&password=lol123)

    LoginStatus2>LoginStatus>status auslesen.

    die komplette xml datei sieht so aus
    Spoiler anzeigen

    XML-Quellcode

    1. <LoginStatus2 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://moviestarplanet.com/">
    2. <loginStatus>
    3. <status>Success</status>
    4. <actor>
    5. <ActorId>6651969</ActorId>
    6. <Name>5€</Name>
    7. <Level>1</Level>
    8. <SkinSWF>maleskin</SkinSWF>
    9. <SkinColor>15708808</SkinColor>
    10. <NoseId>3</NoseId>
    11. <EyeId>8</EyeId>
    12. <MouthId>5</MouthId>
    13. <Money>610</Money>
    14. <EyeColors/>
    15. <MouthColors/>
    16. <Fame>460</Fame>
    17. <Fortune>600</Fortune>
    18. <FriendCount>0</FriendCount>
    19. <ProfileText/>
    20. <Created>2012-12-01T20:34:35.64</Created>
    21. <LastLogin>2013-08-19T16:01:56.462678</LastLogin>
    22. <Moderator>0</Moderator>
    23. <ProfileDisplays>0</ProfileDisplays>
    24. <FavoriteMovie/>
    25. <FavoriteActor/>
    26. <FavoriteActress/>
    27. <FavoriteSinger/>
    28. <FavoriteSong/>
    29. <IsExtra>0</IsExtra>
    30. <HasUnreadMessages>0</HasUnreadMessages>
    31. <InvitedByActorId>-1</InvitedByActorId>
    32. <PollTaken>187</PollTaken>
    33. <ValueOfGiftsReceived>0</ValueOfGiftsReceived>
    34. <ValueOfGiftsGiven>0</ValueOfGiftsGiven>
    35. <NumberOfGiftsGiven>0</NumberOfGiftsGiven>
    36. <NumberOfGiftsReceived>0</NumberOfGiftsReceived>
    37. <NumberOfAutographsReceived>0</NumberOfAutographsReceived>
    38. <NumberOfAutographsGiven>0</NumberOfAutographsGiven>
    39. <TimeOfLastAutographGiven>1900-01-01T00:00:00</TimeOfLastAutographGiven>
    40. <FacebookId/>
    41. <BoyfriendId xsi:nil="true"/>
    42. <BoyfriendStatus>0</BoyfriendStatus>
    43. <MembershipPurchasedDate>2000-01-31T00:00:00</MembershipPurchasedDate>
    44. <MembershipTimeoutDate>2000-01-31T00:00:00</MembershipTimeoutDate>
    45. <MembershipGiftRecievedDate>2000-01-31T23:00:00</MembershipGiftRecievedDate>
    46. <BehaviourStatus>2</BehaviourStatus>
    47. <LockedUntil>2013-08-12T14:22:11.587</LockedUntil>
    48. <LockedText/>
    49. <BadWordCount>0</BadWordCount>
    50. <PurchaseTimeoutDate>2000-01-31T23:00:00</PurchaseTimeoutDate>
    51. <EmailValidated>-1</EmailValidated>
    52. <RetentionStatus>0</RetentionStatus>
    53. <GiftStatus>2</GiftStatus>
    54. <MarketingNextStepLogins>0</MarketingNextStepLogins>
    55. <MarketingStep>7</MarketingStep>
    56. <TotalVipDays>0</TotalVipDays>
    57. <RecyclePoints>0</RecyclePoints>
    58. <EmailSettings>0</EmailSettings>
    59. <TimeOfLastAutographGivenStr/>
    60. <BestFriendId xsi:nil="true"/>
    61. <BestFriendStatus>0</BestFriendStatus>
    62. <FriendCountVIP>0</FriendCountVIP>
    63. <ForceNameChange>0</ForceNameChange>
    64. <CreationRewardStep>3</CreationRewardStep>
    65. <CreationRewardLastAwardDate>2013-08-18T07:17:16.32</CreationRewardLastAwardDate>
    66. <NameBeforeDeleted/>
    67. <LastTransactionId>0</LastTransactionId>
    68. <AllowCommunication>1</AllowCommunication>
    69. <Diamonds>0</Diamonds>
    70. <PopUpStyleId>0</PopUpStyleId>
    71. <ActorRelationships/>
    72. </actor>
    73. <actorLocale>
    74. <string>de_DE</string>
    75. </actorLocale>
    76. <lbs>
    77. <string>lb1.moviestarplanet.de</string>
    78. <string>lb2.moviestarplanet.de</string>
    79. <string>lb3.moviestarplanet.de</string>
    80. <string>lb4.moviestarplanet.de</string>
    81. <string>lb5.moviestarplanet.de</string>
    82. <string>lb6.moviestarplanet.de</string>
    83. <string>lb7.moviestarplanet.de</string>
    84. <string>lb8.moviestarplanet.de</string>
    85. <string>lb9.moviestarplanet.de</string>
    86. </lbs>
    87. <userType>Regular</userType>
    88. <adCountryMap>
    89. <AdvertisementCountryMapping>
    90. <ID>1</ID>
    91. <CountryCode>de</CountryCode>
    92. <Vendor>1</Vendor>
    93. <Type>2</Type>
    94. <UseVIP>false</UseVIP>
    95. </AdvertisementCountryMapping>
    96. <AdvertisementCountryMapping>
    97. <ID>2</ID>
    98. <CountryCode>de</CountryCode>
    99. <Vendor>2</Vendor>
    100. <Type>3</Type>
    101. <UseVIP>true</UseVIP>
    102. <AppKey>2bb17229</AppKey>
    103. </AdvertisementCountryMapping>
    104. <AdvertisementCountryMapping>
    105. <ID>3</ID>
    106. <CountryCode>de</CountryCode>
    107. <Vendor>3</Vendor>
    108. <Type>1</Type>
    109. <UseVIP>false</UseVIP>
    110. <AppKey/>
    111. </AdvertisementCountryMapping>
    112. </adCountryMap>
    113. <postLoginSeq>
    114. <ShowCampaign>false</ShowCampaign>
    115. <ShowVipRebuy>false</ShowVipRebuy>
    116. </postLoginSeq>
    117. <previousLastLogin>20130819</previousLastLogin>
    118. <version>Main_20130819_111852</version>
    119. <userIp>2026799188</userIp>
    120. </loginStatus>
    121. <hDetails>d0223b76557d3953f732debc5d146b70</hDetails>
    122. </LoginStatus2>


    der "status" soll dann in textbox1 geschrieben werden.

    freue miche über jede antwort, gruß Jack
    Probier esmal mit selectSingelNode("DEINE_XML_NODE_NAMEN") Also so

    VB.NET-Quellcode

    1. Dim Pfad as String = "DEINE URL"
    2. Dim xml as new Xml.Document
    3. Dim loginStatus as Xml.Node
    4. Dim node as Xml.Node
    5. xml.load(pfad)
    6. loginStatus =xml.Documentelement.ChildNodes(1)
    7. node=loginStatus.selectSingleNode("Level")


    Somti bist du im Aktuellen Knoten

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Andy16823“ ()

    sry der war nicht getestet der Funktioniert

    VB.NET-Quellcode

    1. Dim Pfad As String = URL
    2. Dim xml As New Xml.XmlDocument
    3. Dim first As Xml.XmlNode
    4. Dim actor As Xml.XmlNode
    5. xml.Load(Pfad)
    6. 'gehe in node loginStatus
    7. first = xml.DocumentElement.ChildNodes(0)
    8. 'gehe in node actor
    9. actor = first.ChildNodes(1)
    10. 'gebe node LvL aus
    11. Me.TextBox1.Text = actor.ChildNodes(2).InnerXml



    Ich hab den Code zur Vereinfachung geändert und mit Kommetaren versehen. Du kannst dir ein XML Dokument
    zur vereinfachung wie ein Treeview Vorstellen mit mehren Knoten. ;)


    Grüße

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Andy16823“ ()

    hat er dier eine 1 Ausgegeben weil ich dachte du wolltest das lvl, wenn ja nimm den Code der giebt dir den Status aus

    VB.NET-Quellcode

    1. Dim Pfad As String = "C:\Test\Login2.xml"
    2. Dim xml As New Xml.XmlDocument
    3. Dim first As Xml.XmlNode
    4. Dim actor As Xml.XmlNode
    5. Dim node As Xml.XmlNode
    6. xml.Load(Pfad)
    7. 'gehe in node loginStatus
    8. first = xml.DocumentElement.ChildNodes(0)
    9. 'gebe Status aus
    10. Me.TextBox1.Text = first.ChildNodes(0).InnerXml
    ok, das blöde ist aber, das der code nicht auf der festplatte ist, sondern im netz :D

    also kann man es so machen er den xml code downloadet, als xml datei speichert, dann den status herrausfindet und die datei wieder löscht?
    also das löschen unds weiß ich selbst, aber weißt du wie man das als xml datei abspeichert?

    gruß
    wie das geht weis ich nicht sry, aber schau dir mal das an >> klicke hier <<.
    Dann wenn du sie herunter geladen hast kannst du bei Dim Pfad as String = den Download pfad angeben und den Code Ausführen im beispiel wäre das

    dwlByLink("http://www.juefinet.de/","C:\test.htm") das grüne
    Das wird eigentlich nicht benötigt, da XMLDocument.load(String Url) auch HTTP Anfragen durchführt bzw. die XML Datei auch aus dem Internet auslesen kann.
    "Zwei Dinge sind unendlich, das Universum und die menschliche Dummheit, aber bei dem Universum bin ich mir noch nicht ganz sicher." Albert Einstein