Messwerte in txt Datei speichern

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von dittohead.

    Messwerte in txt Datei speichern

    Hallo zusammen,

    ich versuche zur Zeit ein Programm zu schreiben
    welches mir die Daten eines Messgerätes ausliest und als Text Datei
    speichert welche dann danach in Excel eingelesen wird zum weiteren
    Auswerten.
    Das Messgerät sendet im Sekundentakt Datum Uhrzeit und Messwert, sieht dann folgendermaßen aus: "17.01.2014 11:28 -0125Vs"
    Soweit
    funktioniert mein Programm auch ganz okay nur habe ich folgendes
    Problem, wenn ich die txt Datei in Excel einfüge dann befindet sich
    immer eine leere Zeile zwischen den Messdaten, d.h. es wird wohl immer
    ein zusätzlicher Zeilenumbruch zwischen den Messwerten eingefügt,
    welchen man in der txt Datei selber nicht sieht, da sieht man nur die
    Messwerte schön untereinander aufgelistet. Dies ist insofern nervig weil
    dieser "unsichtbare Zeilenumbruch" auch ab und zu ganz am Anfang der
    Datei ist was dann meine Tabelle um 1 Zeile nach unten verschiebt.

    Ein
    weiteres Problem ist, dass wenn kein Messgerät angeschlossen ist
    folgende Meldung kommt: "Ein Ausnahmefehler des Typs
    "System.InvalidOperationException" ist in System.dll aufgetreten.
    Zusätzliche Informationen: Der Anschluss ist geschlossen."
    Kann man diese Fehlermeldung irgendwie ignorieren und stattdessen eine eigene Fehlermeldung in der msgbox ausgeben?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim writer As New System.IO.StreamWriter(("C:\Users\Bene\Desktop\1st_" & Format(Now, "Short Date") & ".txt")) 'erstellt txt Datei mit aktuellem Datum für 1. Messung
    4. Dim writer2 As New System.IO.StreamWriter(("C:\Users\Bene\Desktop\2nd_" & Format(Now, "Short Date") & ".txt")) 'erstellt txt Datei mit aktuellem Datum für 2. Messung
    5. Dim Messwert
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Mit COM Port verbinden
    8. Try
    9. SerialPort1.PortName = TextBox1.Text
    10. SerialPort1.Open()
    11. Button1.Enabled = False
    12. Button2.Enabled = True
    13. Button3.Enabled = False
    14. Button5.Enabled = True
    15. Button6.Enabled = False
    18. Catch ex As Exception
    19. MsgBox("Keine Verbindung möglich. Versuchen Sie einen anderen Port.")
    21. End Try
    23. End Sub
    26. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'start der 1. Messung
    27. Button2.Enabled = False
    28. Button3.Enabled = False
    29. Button5.Enabled = False
    30. Button6.Enabled = True
    31. Me.Timer1.Interval = 1000
    32. Me.Timer1.Start()
    34. End Sub
    36. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'Port schließen und Excel öffnen
    37. SerialPort1.Close()
    38. Button3.Enabled = False
    39. Button2.Enabled = False
    40. Button1.Enabled = True
    41. Button5.Enabled = False
    42. Button6.Enabled = False
    43. Process.Start("C:\Users\Bene\Desktop\Test2.xlsm")
    44. End Sub
    46. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'Programm schließen
    47. SerialPort1.Close()
    48. Me.Close()
    49. End Sub
    51. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 'Port schließen falls Programm geschlossen wird
    52. If SerialPort1.IsOpen = True Then
    53. SerialPort1.Close()
    54. End If
    55. End Sub
    57. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 'Messwerte in txt Datei schreiben
    58. Messwert = SerialPort1.ReadLine
    59. writer.WriteLine(Messwert)
    61. End Sub
    63. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'start der 2. Messung
    64. Button2.Enabled = False
    65. Button3.Enabled = False
    66. Button5.Enabled = False
    67. Button6.Enabled = True
    68. Me.Timer2.Interval = 1000
    69. Me.Timer2.Start()
    70. End Sub
    72. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 'Messwerte in txt Datei schreiben
    73. Messwert = SerialPort1.ReadLine
    74. writer2.WriteLine(Messwert)
    75. End Sub
    77. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 'Messung stoppen
    78. Try
    79. Dim fs As IO.FileStream = IO.File.OpenWrite("C:\Users\Bene\Desktop\1st_" & Format(Now, "Short Date") & ".txt")
    80. fs.Close()
    81. writer2.Close()
    82. Catch
    83. writer.Close()
    84. End Try
    86. Me.Timer1.Stop()
    87. Me.Timer2.Stop()
    88. Button3.Enabled = True
    89. Button2.Enabled = True
    90. Button6.Enabled = True
    91. Button5.Enabled = True
    92. End Sub
    93. End Class


    Gruß,
    dittohead

    bevor ich deinen Code überhaupt fertig gelesen habe ist mir eines als erstes aufgefallen:
    Bitte gewöhn dir an deine Controls ordentlich zu benennen, Button 1-x isses ja wohl nicht.

    Mir wurde hier gelernt das man es z.B. so machen kann das man nen Button "btn......." nennen kann
    oder eine Textbox mit "tb......" usw.

    MsgBox ausbessern auf MessageBox.Show()

    Edit: kannst du mal so eine .txt hochladen?
    Wer fragt, ist ein Narr für eine Minute. Wer nicht fragt, ist ein Narr sein Leben lang.

    Danke für die schnellen Antworten. Ich bin total Anfänger was Programmieren angeht, bin aber für jede Verbesserung und Tipps dankbar!
    Kann jetzt nur leider nicht testen ob es funktioniert, da das Messgerät gerade eben für was anderes gebraucht wird. Werde aber darüber berichten sobald ich es wieder zu Verfügung habe und dann auch die txt Datei hochladen.

    Snaptu schrieb:

    Mir wurde hier gelernt das man es z.B. so machen kann das man nen Button "btn......." nennen kann
    oder eine Textbox mit "tb......" usw.
    Kann man.
    Ich hatte auch schon Projekte, wo das vorgeschrieben war.
    Und insbesondere in früheren Großprojekten mit vorwiegend prozeduralem Programmierstil war das auch hilfreich bis notwendig.

    Dennoch halte ich in Zeiten von Namespaces, objektorientierter Programmierung, "Option Strict On" und aktueller Entwicklungsumgebungen nicht viel davon, weil die Übersichtlichkeit eher abnimmt, wenn jeder Name mit Prefix versehen wird.
    Ich halte mich viel lieber an die Microsoft-Richtlinien für .NET:
    msdn.microsoft.com/de-de/library/ms229002(v=vs.85).aspx
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Danke @Eierlein
    ich konnte gerade deinen Vorschlag ausprobieren, >>WriteLine<< durch >>Write<< hat leider nicht geklappt da es dann gar keinen Zeilenumbruch mehr gemacht hat, der andere Vorschlag klappt aber super. Hast du vllt ne kurze Erklärung was die beiden Zeilen bewirken?

    VB.NET-Quellcode

    1. Messwert = Messwert.Replace(vbCr, "")
    2. Messwert = Messwert.Replace(vbLf, "")


    Jetzt hab ich nur noch das Problem mit der Fehlermeldung bei nicht angeschlossenem Messgerät, hat da noch jemand einen Lösungsvorschlag?

Facebook
Telefonspende