Logger

  • VB.NET

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

    Logger

    Guten Abend zusammen,
    Da ich neu bin möchte ich mich gleich Vorstellen.
    Mein Name ist Tobias und ich bin Funkamateur und schreibe mir gerade ein Logger Programm.
    Da ich manchmal nur auf eine GSM verbindung zurückgreifen kann und meine vorhanden Programme eine zu große Bandbreite benötigen.
    Es geht eigentlich darum das ich von einem Server Informationen bekomme mit Frequenzen und Uhrzeit und Rufzeichen.
    Mein Programm verbindet auch schon zum Server und ich kann alles in der Listbox mit lesen.
    Jetzt wollte ich dies aber alles in einer Textdatei abspeichern damit ich mit einem anderen Programm auf die Textdatei zugreifen kann.

    Ich habe folgenden verwendet

    VB.NET-Quellcode

    1. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    2. Dim sav As New SaveFileDialog
    3. sav.Filter = "textdatei|*.txt"
    4. If sav.ShowDialog = Windows.Forms.DialogResult.OK Then
    6. Dim text As String = "telnet.txt"
    7. For Each Litem As String In ListBox1.Items
    8. text &= vbCrLf & Litem
    9. Next
    10. IO.File.WriteAllText(sav.FileName, text)
    12. End If
    13. End Sub


    Allerdings muss ich da immer neu abspeichern.
    Kann man es so lösen das wenn ein neuer Eintrag kommt dieser direkt in die Textdatei geschrieben wird???

    Vielen dank für eure Hilfe.

    Definire in der class einen String filename.

    VB.NET-Quellcode

    1. Dim sav As New SaveFileDialog sav.Filter = "textdatei|*.txt"
    2. If Filename = Nothing Then
    3. If sav.ShowDialog = Windows.Forms.DialogResult.OK Then
    4. Dim text As String = "telnet.txt"
    5. filename = sav.FileName
    6. End If
    7. end if
    8. For Each Litem As String In ListBox1.Items
    9. text &= vbCrLf & Litem
    10. Next
    11. IO.File.WriteAllText(filename, text)

    mfg kj4

    Hallo KJ4

    erst mal danke für deine Hilfe

    Also er schreibt langsam. Aber nur wenn ich in die Listbox Klicke,

    Aber das Programm soll selbstständig schreiben. Denn es läuft nur im Hintergrund mit.

    Das ganze sieht dann in der Textdatei so aus
    DB0SUE Logger DO4KGT
    login: do4kgt
    Hello Tobias, this is DB0SUE-7 in Kiel
    running DXSpider V1.55 build 0.82
    *Echoing is currently disabled, set/echo to enable
    Cluster: 392 nodes, 165 local / 4696 total users Max users 6668 Uptime 432 03:24
    DB0SUE-7>
    DX de PA0O: 1812.6 VY2ZM huge signal 100w wkd 2123Z JO33
    login: do4kgt
    Hello Tobias, this is DB0SUE-7 in Kiel
    running DXSpider V1.55 build 0.82
    *Echoing is currently disabled, set/echo to enable
    Cluster: 392 nodes, 165 local / 4696 total users Max users 6668 Uptime 432 03:24
    DB0SUE-7>
    DX de PA0O: 1812.6 VY2ZM huge signal 100w wkd 2123Z JO33
    DX de KC4EOG: 28430.0 K7ZOX FM05HI<ES>DN17 Double Hop E 2124Z
    DX de S57W: 1878.0 S59AA 2124Z JN76
    DX de KD8LCD: 14323.0 W8WRK 1916-radio relay special event 2124Z EM79


    Es sollte aber so aussehen.
    Login: do4kgt
    Hello Tobias, this is DB0SUE-7 in Kiel
    running DXSpider V1.55 build 0.82
    *Echoing is currently disabled, set/echo to enable
    Cluster: 392 nodes, 165 local / 4696 total users Max users 6668 Uptime 432 03:24
    DB0SUE-7>
    DX de PA0O: 1812.6 VY2ZM huge signal 100w wkd 2123Z JO33
    DX de KC4EOG: 28430.0 K7ZOX FM05HI<ES>DN17 Double Hop E 2124Z
    DX de S57W: 1878.0 S59AA 2124Z JN76
    DX de KD8LCD: 14323.0 W8WRK 1916-radio relay special event 2124Z EM79
    +
    +
    +
    +
    +
    bis unendlich

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Do4KGT“ ()

    Hallo Tobias,
    kann ich mal ein paar Fragen stellen:

    - rein aus Interesse: wie greifst Du auf den Server zu ?
    - gibt es einen Grund warum Du in eine Listbox loggst ? Waäre eine Richtextbox mit ihren Möglichkieten farbig zu schreiben nicht besser ?
    - warum machst Du das Sichern in ein File im Listbox.SelectedIndexChanged Event , wenn es doch automatisch im Hintergrund mitlaufen soll ?
    - steht in der Listbox nur die letzte Info drin oder auch alle Infos der letzten Zeit ?

    Wie ich es mir zusammenreime, möchtest Du dass die Info schon beim Ermitteln gleich weggesichert wird. Dann solltest Du es auch dort tun und nicht in einem Listbox Event.

    Hallo Kangaroo

    Also ich Verbinde den Logger mit eine WebClient
    Die Adresse ist DB0SUE.de:8000
    Listbox habe ich genommen weil ich seit Gestern Abend erst mit Visual Basic arbeite und noch nicht alles Kenne.

    Also wenn mein Logger einen Neuen Eintrag mitschreibt dann soll dieser nur in der Text datei hinzufügt werden und das am besten Direkt.

    Er soll nicht den ganzen Text wieder neu abspeichern so wie er es momentan macht.

    Do4KGT schrieb:

    Also ich Verbinde den Logger mit eine WebClient

    Also loggst Du vermutlich in regelmässigen Abständen per Timer ? Dann schreib den Text sauber mit einem Streamwriter weg :

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim WithEvents logTimer As New Timer With {.Interval = 60 * 1000}
    3. Dim fileName As String = "Logger.Txt"
    4. Dim logWriter As IO.StreamWriter
    6. ' form schliesst
    7. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    8. ' immer nette Idee den stream sauber zu schliessen
    9. logWriter.Close()
    10. End Sub
    11. ' form Load
    12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. ' Timer starten
    14. logTimer.Start()
    15. ' file zum schreiben öffnen: autoflush schreibt sofort alles in das File
    16. logWriter = New IO.StreamWriter(fileName) With {.AutoFlush = True}
    17. End Sub
    19. ' Timer event
    20. Private Sub logTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles logTimer.Tick
    21. ' webClient holt Text .....
    22. Dim text= ....
    23. ' wegschreiben in File
    24. logWriter.WriteLine(Text)
    25. End Sub
    26. End Class

    Überall wo ich fragen stelle wird sich geprügelt.
    Habt euch doch einfach Lieb :thumbup:
    So also ich hab den Code jetzt eingefügt.

    Allerdings muss ich jetzt noch die Verbindung

    VB.NET-Quellcode

    1. Private Sub logTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles logTimer.Tick
    2. ' webClient holt Text .....
    3. Dim text= .... <-----------------------------------------------
    4. ' wegschreiben in File
    5. logWriter.WriteLine(Text)
    6. End Sub
    7. End Class


    Zur Listbox herstellen und genau da liegt jetzt mein Problem. Sorry ich hab leider erst am Samstag angefangen damit zu arbeiten. Bei mir ist noch vieles unklar. Aber ich gelobe Besserung.

    Wie füllst du denn aktuell deine Listbox?
    Immer wenn du ein neues Item in die Listbox schreibst, müsstest du mit dem Streamwriter einfach den gleichen Text per writeLine in die Textdatei schreiben.

    VB.NET-Quellcode

    1. logWriter.WriteLine(Text)
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Also ich schreib mal den Kompletten Code einfach damit auch nix aus dem zusammenhang gezogen wird oder ich es vielleicht Falsch beschreibe.

    Allerdings hätte ich da noch eine Sacke. Ich habe den Intervall auf 5 secunden gestellt da der Server unregelmäßig Daten an mich schickt und ich brauch relativ Schnell die Aktuellen Daten. Daher wäre es schön wenn er erst schreibt wenn ein neuer Datensatz kommt. Ist das möglich?


    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    4. Public Class Form1
    6. Dim WithEvents logTimer As New Timer With {.Interval = 5 * 1000}
    7. Dim fileName As String = "Telnet.Txt"
    8. Dim logWriter As IO.StreamWriter
    9. Private stream As NetworkStream
    10. Private streamw As StreamWriter
    11. Private streamr As StreamReader
    12. Private client As New TcpClient
    13. Private t As New Threading.Thread(AddressOf Listen)
    14. Dim R As Object
    16. Private Delegate Sub DAddItem(ByVal s As String)
    17. Private nick As String = "Do4KGT"
    19. Private Sub AddItem(ByVal s As String)
    20. ListBox1.Items.Add(s)
    21. End Sub
    23. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    24. Try
    25. client.Connect("DB0SUE.de", 8000) ' hier die ip des servers eintragen.
    26. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    27. If client.Connected Then
    28. stream = client.GetStream
    29. streamw = New StreamWriter(stream)
    30. streamr = New StreamReader(stream)
    32. streamw.WriteLine(nick) ' das ist optional.
    33. streamw.Flush()
    35. t.Start()
    36. Else
    37. MessageBox.Show("Verbindung zum Server nicht möglich!")
    38. Application.Exit()
    39. End If
    40. Catch ex As Exception
    41. MessageBox.Show("Verbindung zum Server nicht möglich!")
    42. Application.Exit()
    43. End Try
    44. End Sub
    46. Private Sub Listen()
    47. While client.Connected
    48. Try
    49. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    50. Catch
    51. MessageBox.Show("Verbindung zum Server nicht möglich!")
    52. Application.Exit()
    53. End Try
    54. End While
    55. End Sub
    58. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    59. nick = InputBox("Rufzeichen: ", "Namen festlegen", "DO4KGT")
    60. End Sub
    62. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    63. For x = 0 To 5
    64. If x = 5 Then
    65. End ' Abbrechen der Programmausführung
    66. End If
    67. Next
    68. End Sub
    72. ' form schliesst
    73. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    74. ' immer nette Idee den stream sauber zu schliessen
    75. logWriter.Close()
    76. End Sub
    77. ' form Load
    78. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    79. ' Timer starten
    80. logTimer.Start()
    81. ' file zum schreiben öffnen: autoflush schreibt sofort alles in das File
    82. logWriter = New IO.StreamWriter(fileName) With {.AutoFlush = True}
    83. End Sub
    85. ' Timer event
    86. Private Sub logTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles logTimer.Tick
    87. ' webClient holt Text .....
    88. Dim text = "...."
    89. ' wegschreiben in File
    90. logWriter.WriteLine(Text)
    91. End Sub
    92. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Do4KGT“ ()

    Do4KGT schrieb:

    Allerdings hätte ich da noch eine Sacke. Ich habe den Intervall auf 5 secunden gestellt da der Server unregelmäßig Daten an mich schickt und ich brauch relativ Schnell die Aktuellen Daten. Daher wäre es schön wenn er erst schreibt wenn ein neuer Datensatz kommt. Ist das möglich?

    Wenn Du direkt auf den Stream gehst, so ist der Timer absolut unnötig. Ich hab mal Deinen Code schnell etwas angepasst , so dass er sowohl in ein File loggt als auch die Listbox befüllt.

    Die Initialisierung findet nun vollständig im Form.Shown() Event statt, alle offenen Streams werden im Form.Closing Event geschlossen. Ich gehe davon aus dass Du Visual Studio 2010 hast (??), so dass das Invoken ohne Delegaten sondern über anonyme Methode etwas simpler ausfällt.

    "Angepasster Code"

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net.Sockets
    4. Public Class Form1
    5. ' User data
    6. Private nick As String = "Do4KGT"
    7. ' net client
    8. Private client As New TcpClient
    9. Private clientStream As NetworkStream
    10. Private clientReader As StreamReader
    11. Private clientWriter As StreamWriter
    12. ' file output
    13. Private fileName As String = "Telnet.Txt"
    14. Private logWriter As StreamWriter
    15. ' threading
    16. Private listenThread As New Threading.Thread(AddressOf Listen)
    18. ' event: Form wird angezeigt
    19. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    20. ' Nick eingeben
    21. nick = InputBox("Rufzeichen: ", "Namen festlegen", nick)
    22. ' log öffnen
    23. logWriter = New StreamWriter(fileName) With {.AutoFlush = True}
    24. ' client connect
    25. Try
    26. client.Connect("DB0SUE.de", 8000) ' hier die ip des servers eintragen.
    27. ' stream holen
    28. clientStream = client.GetStream
    29. ' Nick schreiben
    30. clientWriter = New StreamWriter(clientStream)
    31. clientWriter.WriteLine(nick) ' das ist optional.
    32. clientWriter.Flush()
    33. ' reader stream holen
    34. clientReader = New StreamReader(clientStream)
    35. ' thread starten
    36. listenThread = New Threading.Thread(AddressOf Listen) With {.IsBackground = True}
    37. listenThread.Start()
    38. Catch ex As Exception
    39. MessageBox.Show("Verbindung zum Server nicht möglich!")
    40. Application.Exit
    41. End Try
    43. End Sub
    45. ' eigentliche Verarbeitung: lauscht auf neuen input
    46. Private Sub Listen()
    47. Try
    48. While client.Connected
    49. Dim input = clientReader.ReadLine
    50. ' log schreiben
    51. logWriter.WriteLine(input)
    52. ' Listbox item hinzufügen (invoke)
    53. Me.Invoke(Sub() ListBox1.Items.Add(input))
    54. End While
    55. Catch ex As Exception
    56. ' verbindung abgerissen
    57. MessageBox.Show("Verbindung zum Server nicht möglich!")
    58. Finally
    59. ' application sauber schliessen
    60. Application.Exit
    61. End Try
    62. End Sub
    64. ' event: form schliesst
    65. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    66. ' thread schliessen
    67. If listenThread IsNot Nothing AndAlso listenThread.IsAlive Then listenThread.Abort()
    68. ' alle streams sauber schliessen
    69. If logWriter IsNot Nothing Then logWriter.Close()
    70. If clientReader IsNot Nothing Then clientReader.Close()
    71. If clientWriter IsNot Nothing Then clientWriter.Close()
    72. If clientStream IsNot Nothing Then clientStream.Close()
    73. End Sub
    75. End Class


    Laut Code gibt es wie gesagt keinen Grund für eine Listbox, daher eher eine Textbox oder eine Richtextbox (formatierbar, Highlighting) verwenden. Du willst auch weiterhin die Inputbox am Anfang, obwohl es nur um Deinen eigenen Nick geht ?

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

    Vielen Dank Kangaroo

    Das ist genau so wie ich es mir vorstelle.
    Also ich habe die Listbox einfach genommen weil es für mich das einfachste war um die Daten vom Server mit zu Lesen.

    Das reicht auch für meine Wünsche und ich bin damit soweit Glücklich.

    Aber noch mal vielen Dank