YAML auslesen und in Variablen speichern

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    YAML auslesen und in Variablen speichern

    Moin Moin zusammen,

    leider hat die Forensuche mal wieder nicht das ergeben, was ich suche ;)
    Vielleicht kann mir hier jemand bei meinem Problemchen helfen.

    Ich versuche eine YAML.Datei einzulesen und die einzelnen Werte in diverse Variablen zu speichern.
    Nun hab ich über nuget bereits ein Paket installiert (YamlDotNet von Antoine Aubry)
    Leider finde ich keine Doku oder ansätze für VB.Net

    Hat jemand schon einmal sowas gemacht?

    Grüße SaMsOn
    Nein! Doch! OHH!

    @ISliceUrPanties das habe ich schon versucht,... Habe den erhaltenen Code auch schon versucht anzupassen, jedoch ohne Erfolg.
    Er findet nach dem Convert schon ein paar Namespaces nicht.

    Verwendet hab ich das hier
    github.com/aaubry/YamlDotNet

    C#
    Spoiler anzeigen

    C#-Quellcode

    1. using System.IO;
    2. using YamlDotNet.RepresentationModel;
    3. using YamlDotNet.Samples.Helpers;
    4. using Xunit.Abstractions;
    6. namespace YamlDotNet.Samples
    7. {
    8. public class LoadingAYamlStream
    9. {
    10. private readonly ITestOutputHelper output;
    12. public LoadingAYamlStream(ITestOutputHelper output)
    13. {
    14. this.output = output;
    15. }
    17. [Sample(
    18. DisplayName = "Loading a YAML Stream",
    19. Description = "Explains how to load YAML using the representation model."
    20. )]
    21. public void Main()
    22. {
    23. // Setup the input
    24. var input = new StringReader(Document);
    26. // Load the stream
    27. var yaml = new YamlStream();
    28. yaml.Load(input);
    30. // Examine the stream
    31. var mapping =
    32. (YamlMappingNode)yaml.Documents[0].RootNode;
    34. foreach (var entry in mapping.Children)
    35. {
    36. output.WriteLine(((YamlScalarNode)entry.Key).Value);
    37. }
    39. // List all the items
    40. var items = (YamlSequenceNode)mapping.Children[new YamlScalarNode("items")];
    41. foreach (YamlMappingNode item in items)
    42. {
    43. output.WriteLine(
    44. "{0}\t{1}",
    45. item.Children[new YamlScalarNode("part_no")],
    46. item.Children[new YamlScalarNode("descrip")]
    47. );
    48. }
    49. }
    51. private const string Document = @"---
    52. receipt: Oz-Ware Purchase Invoice
    53. date: 2007-08-06
    54. customer:
    55. given: Dorothy
    56. family: Gale
    58. items:
    59. - part_no: A4786
    60. descrip: Water Bucket (Filled)
    61. price: 1.47
    62. quantity: 4
    64. - part_no: E1628
    65. descrip: High Heeled ""Ruby"" Slippers
    66. price: 100.27
    67. quantity: 1
    69. bill-to: &id001
    70. street: |
    71. 123 Tornado Alley
    72. Suite 16
    73. city: East Westville
    74. state: KS
    76. ship-to: *id001
    78. specialDelivery: >
    79. Follow the Yellow Brick
    80. Road to the Emerald City.
    81. Pay no attention to the
    82. man behind the curtain.
    83. ...";
    84. }
    85. }



    VB.net
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports YamlDotNet.RepresentationModel
    3. Imports YamlDotNet.Samples.Helpers
    4. Imports Xunit.Abstractions
    6. Namespace YamlDotNet.Samples
    7. Public Class LoadingAYamlStream
    8. Private ReadOnly output As ITestOutputHelper
    10. Public Sub New(ByVal output As ITestOutputHelper)
    11. Me.output = output
    12. End Sub
    14. <Sample(DisplayName:="Loading a YAML Stream", Description:="Explains how to load YAML using the representation model.")>
    15. Public Sub Main()
    16. Dim input = New StringReader(Document)
    17. Dim yaml = New YamlStream()
    18. yaml.Load(input)
    19. Dim mapping = CType(yaml.Documents(0).RootNode, YamlMappingNode)
    21. For Each entry In mapping.Children
    22. output.WriteLine((CType(entry.Key, YamlScalarNode)).Value)
    23. Next
    25. Dim items = CType(mapping.Children(New YamlScalarNode("items")), YamlSequenceNode)
    27. For Each item As YamlMappingNode In items
    28. output.WriteLine("{0}" & vbTab & "{1}", item.Children(New YamlScalarNode("part_no")), item.Children(New YamlScalarNode("descrip")))
    29. Next
    30. End Sub
    32. Private Const Document As String = "---
    33. receipt: Oz-Ware Purchase Invoice
    34. date: 2007-08-06
    35. customer:
    36. given: Dorothy
    37. family: Gale
    39. items:
    40. - part_no: A4786
    41. descrip: Water Bucket (Filled)
    42. price: 1.47
    43. quantity: 4
    45. - part_no: E1628
    46. descrip: High Heeled ""Ruby"" Slippers
    47. price: 100.27
    48. quantity: 1
    50. bill-to: &id001
    51. street: |
    52. 123 Tornado Alley
    53. Suite 16
    54. city: East Westville
    55. state: KS
    57. ship-to: *id001
    59. specialDelivery: >
    60. Follow the Yellow Brick
    61. Road to the Emerald City.
    62. Pay no attention to the
    63. man behind the curtain.
    64. ..."
    65. End Class
    66. End Namespace


    Jedoch findet es den Namespace nicht "Dim yaml = New YamlStream()"

    Grüße SaMsOn
    Nein! Doch! OHH!

    Ich hab mir über Nuget das Package geholt und folgenden Code, der klappt.

    VB.NET-Quellcode

    1. Private Const Document As String = "---
    2. receipt: Oz-Ware Purchase Invoice
    3. date: 2007-08-06
    4. customer:
    5. given: Dorothy
    6. family: Gale
    7. items:
    8. - part_no: A4786
    9. descrip: Water Bucket (Filled)
    10. price: 1.47
    11. quantity: 4
    12. - part_no: E1628
    13. descrip: High Heeled ""Ruby"" Slippers
    14. price: 100.27
    15. quantity: 1
    16. bill-to: &id001
    17. street: |
    18. 123 Tornado Alley
    19. Suite 16
    20. city: East Westville
    21. state: KS
    22. ship-to: *id001
    23. specialDelivery: >
    24. Follow the Yellow Brick
    25. Road to the Emerald City.
    26. Pay no attention to the
    27. man behind the curtain.
    28. ..."
    30. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    31. Dim input = New StringReader(Document)
    32. Dim yaml = New YamlStream()
    33. yaml.Load(input)
    34. Dim mapping = CType(yaml.Documents(0).RootNode, YamlMappingNode)
    35. For Each entry In mapping.Children
    36. ListBox1.Items.Add((CType(entry.Key, YamlScalarNode)).Value)
    37. Next
    38. Dim items = CType(mapping.Children(New YamlScalarNode("items")), YamlSequenceNode)
    39. For Each item As YamlMappingNode In items
    40. ListBox1.Items.Add($"{item.Children(New YamlScalarNode("part_no"))}{Convert.ToChar(9)}{item.Children(New YamlScalarNode("descrip"))}")
    41. Next
    42. End Sub
    Bilder

    • Result.png

      2,85 kB, 337×244, 82 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    Danke fürs testen! Nachdem ich das Paket rausgeworfen hatte und neu installiert hab, ging es jetzt bei mir auch.
    Warum Wieso Weshalb, keine Ahnung.

    Ich bekomm es jedoch irgendwie nicht hin meine YAML Datei die ich auslesen möchte zu zerlegen.
    So schaut die YAML aus
    Spoiler anzeigen

    Quellcode

    1. ttlEncCert: 1440
    2. ttlEmailICCSN: 30
    3. performanceLog: false
    4. environmentPU: true
    6. konnektor:
    7. url: https://192.168.1.1/connector
    8. username:
    9. userpin:
    10. timeout: 60
    11. ldapurl: ldaps://192.168.1.1
    12. ntpServerAddress: 192.168.1.1
    13. ntpPeriod: 60
    14. dnsAddress: 192.168.1.1
    15. keyfile: ..\config\client.p12
    16. keypin: ABCDEFG123
    18. mail:
    19. clientKeyfile: ..\config\myclient.p12
    20. clientKeypin: ABCDEFG123
    21. serverKeyfile: ..\config\myserver.p12
    22. serverKeypin: ABCDEFG123
    23. timeoutClient: 300
    24. timeoutServer: 300
    25. smtpLogintype: LOGIN
    26. pop3Logintype: USER/PASS
    27. smtpPort: 465
    28. pop3Port: 995
    29. httpPort: 9443
    30. serviceName: AXV


    Es fliegt immer diese Exception:
    System.InvalidCastException: "Das Objekt des Typs "YamlDotNet.RepresentationModel.YamlMappingNode" kann nicht in Typ "YamlDotNet.RepresentationModel.YamlSequenceNode" umgewandelt werden."

    Den kompletten Code hab ich hier mal mit dazu.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. ListBox1.Items.Clear()
    3. Dim input = New StringReader(Document)
    4. Dim yaml = New YamlStream()
    5. yaml.Load(input)
    6. Dim mapping = CType(yaml.Documents(0).RootNode, YamlMappingNode)
    8. For Each entry In mapping.Children
    9. ListBox1.Items.Add(CType(entry.Key, YamlScalarNode).Value)
    10. Next
    11. Dim items = CType(mapping.Children(New YamlScalarNode("mail")), YamlSequenceNode)
    12. For Each item As YamlMappingNode In items
    13. ListBox1.Items.Add($"{item.Children(New YamlScalarNode("url"))}{Convert.ToChar(9)}{item.Children(New YamlScalarNode("ldapurl"))}")
    14. Next
    15. End Sub


    Vom Aufbau her ist meine YAML gleich bzw. ähnlich der Demodaten, daher versteh ich nicht warum ich nicht auf die Subnodes zugreifen kann.
    Jemand eine Idee?
    Danke Stefan
    Nein! Doch! OHH!

    samson schrieb:

    System.InvalidCastException: "Das Objekt des Typs "YamlDotNet.RepresentationModel.YamlMappingNode" kann nicht in Typ "YamlDotNet.RepresentationModel.YamlSequenceNode" umgewandelt werden."
    Das klingt schon nach Import von zu vielen Namespaces. Entferne mal alle des Packages. Weil sonst importieren 2 Packs eine gleichgenannte Klasse und schon wird's Mus.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hast Du uns ein einfaches Beispielprojekt?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed
    Oberfläche ganz simpel zum Testen



    Hier mal der komplette Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports YamlDotNet.Core
    3. Imports YamlDotNet.RepresentationModel
    5. Public Class Form1
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. ListBox1.Items.Clear()
    8. Dim input = New StringReader(Document)
    9. Dim yaml = New YamlStream()
    10. yaml.Load(input)
    11. Dim mapping = CType(yaml.Documents(0).RootNode, YamlMappingNode)
    13. For Each entry In mapping.Children
    14. ListBox1.Items.Add(CType(entry.Key, YamlScalarNode).Value)
    15. Next
    16. Dim items = CType(mapping.Children(New YamlScalarNode("konnektor")), YamlSequenceNode)
    17. For Each item As YamlMappingNode In items
    18. ListBox1.Items.Add($"{item.Children(New YamlScalarNode("url"))}{Convert.ToChar(9)}{item.Children(New YamlScalarNode("ldapurl"))}")
    19. Next
    20. End Sub
    21. Private Const Document As String = "---
    22. ttlEncCert: 1440
    23. ttlEmailICCSN: 30
    24. performanceLog: false
    25. environmentPU: true
    26. konnektor:
    27. url: https://192.168.1.1/connector
    28. username:
    29. userpin:
    30. timeout: 60
    31. ldapurl: ldaps://192.168.1.1
    32. ntpServerAddress: 192.168.1.1
    33. ntpPeriod: 60
    34. dnsAddress: 192.168.1.1
    35. keyfile: ..\config\client.p12
    36. keypin: ABCDEFG123
    37. mail:
    38. clientKeyfile: ..\config\myclient.p12
    39. clientKeypin: ABCDEFG123
    40. serverKeyfile: ..\config\myserver.p12
    41. serverKeypin: ABCDEFG123
    42. timeoutClient: 300
    43. timeoutServer: 300
    44. smtpLogintype: LOGIN
    45. pop3Logintype: USER/PASS
    46. smtpPort: 465
    47. pop3Port: 995
    48. httpPort: 9443
    49. serviceName: AXV
    50. "
    52. End Class
    Nein! Doch! OHH!

    Sorry, Post#6 enthält ja schon meinen tl;dr-Fehler: »YamlMappingNode kann nicht in YamlSequenceNode umgewandelt werden.«
    Also: 2 Paar Stiefel.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.