vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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 18:41

Da ist beim kopieren des Codes nicht alles mit rüber gekommen...

Private Structure Daten
        Public ID As Integer
        Public Datum As Date
        Public Zeit As DateTime
        Public Geschwindigkeit As Double
        Public Laenge As String
        Public Breite As String
    End Structure
 
    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

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 umwandeln65Manfred 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 umwandeln47effeff06.11.20 18:41
Re: JSON Datei in formatierte Textdatei umwandeln44KleinerMann06.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