Windows Leistungsindex-XML auslesen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Schalterschorsch.

    Windows Leistungsindex-XML auslesen

    Hallo,

    ich habe mir XML etwas näher angesehen und erste "Leseversuche" in der XML vom Windows-Leistungsindex gemacht.
    Als Beispiel habe ich mir den microsoft-Artikel hier angeschaut: msdn.microsoft.com/de-de/library/bb979298.aspx
    Den Leistungsindex habe ich auslesen können.
    Nun wollte ich auch den "Random read " Wert auslesen.
    Der steht in einem Array und meine Suchroutine läuft leider nach ien paar Ergebnissen in eine Exception.
    Da die Feldlänge nicht von mir begenzt ist, verstehe ich nicht, warum das passiert.
    Eine gute Seite, die auch solche Dinge gut erklärt, würde mir auch gut helfen.

    Damit
    man es leichter nachstellen kann, poste ich den ganzen code - der obere
    teil sucht einfach nach dem aktuellsten xml vom disk-test.

    VB.NET-Quellcode

    1. Dim SsdDetectedFlagG As Boolean = False
    2. Dim DiskScorenodeFound As Boolean = False
    3. Dim DiskScoreString As String = "0.0"
    4. Dim LastAccessPath As String = ""
    6. ' - element diskscore und dann text
    8. If System.IO.Directory.Exists("C:\Windows\Performance\WinSAT\DataStore") Then
    10. ' Our method to get the most recently updated score.
    11. ' Because the program makes a new XML file on every update of the score,
    12. ' we need to calculate the most recent, just incase the owner has upgraded.
    14. Dim Dir As New IO.DirectoryInfo("C:\Windows\Performance\WinSAT\DataStore")
    15. Dim fileDir() As IO.FileInfo
    16. Dim fileMostRecent As IO.FileInfo
    17. Dim LastAccessTime As Date
    19. fileDir = Dir.GetFiles
    21. ' Loop through the files in the \WinSAT dir to find the newest one.
    23. For Each fileMostRecent In fileDir
    24. If fileMostRecent.LastAccessTime >= LastAccessTime Then
    25. If fileMostRecent.FullName.ToLower Like "*disk*" Then
    26. ' MsgBox("recent diskfile" & fileMostRecent.FullName, MsgBoxStyle.SystemModal)
    27. LastAccessTime = fileMostRecent.LastAccessTime
    28. LastAccessPath = fileMostRecent.FullName
    29. End If
    30. End If
    31. Next
    33. ' MsgBox("no match bliart" & LastAccessTime, MsgBoxStyle.SystemModal)
    35. Else
    36. SsdDetectedFlagG = False
    37. Exit Sub
    38. End If
    40. ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei
    41. Dim XMLReader As Xml.XmlReader _
    43. = New Xml.XmlTextReader(LastAccessPath) ' ("2013-11-15
    44. 23.07.43.454 Disk.Assessment (Recent).WinSAT.xml") '("quickie.xml")
    46. ' Es folgt das Auslesen der XML-Datei
    47. With XMLReader
    49. Do While .Read ' Es sind noch Daten vorhanden
    51. ' Welche Art von Daten liegt an?
    52. Select Case .NodeType
    54. ' Ein Element
    55. Case Xml.XmlNodeType.Element
    57. If .Name.ToString.ToLower = "diskmetrics" Then '"diskscore" Then
    58. DiskScorenodeFound = True
    59. MsgBox("found")
    60. Else
    61. ' MsgBox("no")
    62. End If
    64. ' MsgBox("Es folgt ein Element vom Typ " & .Name)
    65. ' Alle Attribute (Name-Wert-Paare) abarbeiten
    66. If .AttributeCount > 0 Then
    67. ' Es sind noch weitere Attribute vorhanden
    68. While .MoveToNextAttribute ' nächstes
    69. MsgBox("Feldname: " & .Name & _
    70. " -> " & _
    71. "Feldwert: " & .Value)
    72. End While
    74. End If
    76. ' Ein Text
    77. Case Xml.XmlNodeType.Text
    78. If DiskScorenodeFound = True Then
    79. 'MsgBox("Es folgt ein Text: " & .Value)
    80. DiskScoreString = .Value
    81. Exit Do
    82. End If
    83. ' Ein Kommentar
    84. 'Case Xml.XmlNodeType.Comment
    85. ' MsgBox("Es folgt ein Kommentar: " & .Value)
    87. End Select
    89. Loop ' Weiter nach Daten schauen
    91. .Close() ' XMLTextReader schließen
    93. End With


    So sieht die XML an dem Teil aus, den ich auslesen will:




    Gruß

    Schorsch

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Schalterschorsch“ ()

    Habe mir diverse Infos (auch deine Sammlung) schon angeschaut und habe weiterhin eine Sache, die ich hier nicht verstehe:
    - ich kann z.B. den Faktor auslesen, er ist über das Element mit Namen Factor= "..." für mich suchbar.
    - Der Wert, den ich will, ist als Text definiert und ist kein Teil vom vorhergehenden Element.
    ich frage z.B. ab nach kind im Element responsiveness-score und dann bekomme ich "average io-rate" raus - nicht aber average io rate , "512,12"

    Hatte ursprünglich gedacht, dass das als array vorliegt und ich es falsch auslese und es daher abstürzt.

    Du kannst ein Node mit bekannten Attribute-Name und Attribute-Wert anhand folgendes Musters auswählen: //NodeName[@AttributeName='AttributeValue']
    Beispiel:

    VB.NET-Quellcode

    1. ​
    2. Dim xmlDoc As New Xml.XmlDocument
    3. xmlDoc.Load(filename)
    5. Dim nodeName = "Responsiveness"
    6. Dim attrName = "Kind"
    7. Dim attrValue = "AverageIORate"
    9. ' Patter zur Auswahl eines Node mit bekannten NodeName,
    10. ' AttributeName und AttributeWert
    11. Dim path = String.Format("//{0}[@{1}='{2}']", nodeName, attrName, attrValue)
    13. Dim node = xmlDoc.SelectSingleNode(path)
    14. If node IsNot Nothing Then
    15. Debug.Print("NodeContent: {0}", node.InnerText)
    16. For Each attr As Xml.XmlAttribute In node.Attributes
    17. Debug.Print("AttributeName: {0}, AttributeValue: {1}", _
    18. attr.Name, attr.Value)
    19. Next
    20. Else
    21. Debug.Print("Node nicht gefungen!")
    22. End If

    ich hatte gehofft, dass ich es auf solch eine Art auslesen kann.
    Leider funktioniert das so nicht. Ich bekomme hier nur "kind" und "average io-rate" als Ergebnis. Der Zahlenwert kann so nicht ausgelesen werden.
    Der Wert ist irgendwie im node drin und gehört nicht zu dem Node von "average io-rate - ist also nicht Attributwert2 zu Attributname. Das ist, was mich so verwirrt.

    Ich habe 5 oder 6-mal gelesen, oder öfter. Ich habe trotzdem nicht verstanden, was du da geschrieben hast.
    Hast du dieses Node 'gefunden'?
    Was willst du denn auslesen? Der InnerText von dem Node oder den Wert einer der Attribute von diesem Node?
    Was funktioniert denn nicht?
    Wie hast du den Code verwendet?
    Was hast du als Ergebnis bekommen?

    Ich habe den Fehler gefunden, des hat mich bald in den Wahnsinn getrieben :/

    Danke für eure Hilfe und Geduld mit mir :)

    Ich habe nicht gesehen, dass in dem xml Kind einmal groß und bei meiner geänderten Abfrage in klein dastand. Das sieht im IE sehr gleich aus.
    Normalerweise mache ich alles .tolower und achte daher auf sowas nicht.


    *facepalm*
    Murphy's law in Aktion


    Meine funktionierende Abfrage ist jetzt:

    VB.NET-Quellcode

    1. Dim xmlDoc As New Xml.XmlDocument
    2. xmlDoc.Load("C:\Windows\Performance\Winsat\DataStore\2013-11-15 23.07.43.454 Disk.Assessment (Recent).WinSAT.xml")
    3. Dim nodeName = "AvgThroughput" '"Responsiveness" '
    4. Dim attrName = "kind"
    5. Dim attrValue = "Sequential Read" '"AverageIORate"
    9. ' Patter zur Auswahl eines Node mit bekannten NodeName,
    10. ' AttributeName und AttributeWert
    11. Dim path = String.Format("//{0}[@{1}='{2}']", nodeName, attrName, attrValue)
    12. Dim node = xmlDoc.SelectSingleNode(path)
    13. If node IsNot Nothing Then
    14. MsgBox("NodeContent: {0}" & node.InnerText)
    15. For Each attr As Xml.XmlAttribute In node.Attributes
    16. MsgBox("AttributeName: {0}, AttributeValue: {1}" & _
    17. attr.Name & " " & attr.Value)
    18. Next
    19. Else
    20. Debug.Print("Node nicht gefunden!")
    21. End If

Facebook