vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: JSON Datei in formatierte Textdatei umwandeln 
Autor: effeff
Datum: 06.11.20 12:31

Grundsätzlich kannst Du so arbeiten, wenn Du nicht schon den Parser von Newtonsoft benutzen willst:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        Dim sr As New StreamReader("D:\test\json.txt")
        Dim line As String = ""
 
        Do While (sr.Peek() >= 0)
 
            line = sr.ReadLine
 
            If line.Contains("id") Then
                Dim strucDaten As New Daten
                strucDaten.ID = GetValue(line)
                line = sr.ReadLine
                strucDaten.Datum = GetValue(line)
                line = sr.ReadLine
                strucDaten.Zeit = GetValue(line)
                line = sr.ReadLine
                strucDaten.Geschwindigkeit = GetValue(line)
                line = sr.ReadLine
                strucDaten.Laenge = GetValue(line)
                line = sr.ReadLine
                strucDaten.Breite = GetValue(line)
                WriteTextboxText(strucDaten)
            End If
        Loop
 
        sr.Close()
 
    End Sub
 
    Private Function GetValue(ByVal ToParse As String) As String
        ToParse = LTrim(ToParse)
        Dim arr() As String = ToParse.Split(" ")
        arr(1) = arr(1).Replace(Chr(34), "")
        arr(1) = arr(1).Replace(",", "")
        Return (arr(1))
    End Function
 
    Private Sub WriteTextboxText(ByVal strucDaten As Daten)
        If TextBox1.Text <> "" Then
            TextBox1.Text = TextBox1.Text & vbCrLf
        End If
        TextBox1.Text = TextBox1.Text & strucDaten.ID & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Datum & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Zeit & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Geschwindigkeit & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Laenge & vbCrLf
        TextBox1.Text = TextBox1.Text & strucDaten.Breite & vbCrLf
    End Sub
Ich denke, für die Formatierung nach Deinem Gusto kannst Du selbst sorgen...

EALA FREYA FRESENA

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
JSON Datei in formatierte Textdatei umwandeln109KleinerMann05.11.20 17:59
Re: JSON Datei in formatierte Textdatei umwandeln64Manfred X05.11.20 19:33
Re: JSON Datei in formatierte Textdatei umwandeln62effeff06.11.20 12:31
Re: JSON Datei in formatierte Textdatei umwandeln45KleinerMann06.11.20 15:25
Re: JSON Datei in formatierte Textdatei umwandeln46effeff06.11.20 18:41
Re: JSON Datei in formatierte Textdatei umwandeln43KleinerMann06.11.20 19:40
Re: JSON Datei in formatierte Textdatei umwandeln36effeff21.11.20 17:20

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel