Als erstes sorry wenn ich dumme Fragen stelle aber mit VB fang ich bei 0 an.
Ich will intel hex files auslesen. Und z.B. die länge, Adresse, Recordtyp, data, jeweils in einen Label darstellen.
Danach will ich auf einen Button Save drücke und die Zeile die ich zuvor ausgelesen habe in eine txt datei speichern. Und zwar so:
Laenge:xxxxxAdresse:xxxxx…….. x = die werte die ich aus der hex gelesen habe und in den lebels stehen.
Das ganze soll dann in so einen Namen gespeichert werden.
Adresse_Reordtype_YYMMDDHHMMSS.txt
Also ich bin so weit das ich eine Datei Auslese und nur in einen Label dastelle.
Speichern
wenn jemand eine idee hat wurde ich mich sehr freuen.
Ich will intel hex files auslesen. Und z.B. die länge, Adresse, Recordtyp, data, jeweils in einen Label darstellen.
Danach will ich auf einen Button Save drücke und die Zeile die ich zuvor ausgelesen habe in eine txt datei speichern. Und zwar so:
Laenge:xxxxxAdresse:xxxxx…….. x = die werte die ich aus der hex gelesen habe und in den lebels stehen.
Das ganze soll dann in so einen Namen gespeichert werden.
Adresse_Reordtype_YYMMDDHHMMSS.txt
Also ich bin so weit das ich eine Datei Auslese und nur in einen Label dastelle.
Code:
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
Dim openFileDialog1 As New OpenFileDialog
openFileDialog1.Filter = "Binary Files .bin |*.bin"
openFileDialog1.Title = "Select a Binary File"
If openFileDialog1.ShowDialog() = DialogResult.OK Then
If openFileDialog1.FileName <> "" Then
txtFile.Text = openFileDialog1.FileName
Dim sr As New System.IO.StreamReader(openFileDialog1.FileName)
lbl_AllData.Text = sr.Read
' Funktioniert nicht
'lbl_Laenge.Text = sr.ReadLine ' Zeile 1-2
'lbl_Adresse.Text = sr.ReadLine ' Zeile 3- 6
'lbl_type.Text = sr.ReadLine ' Zeile 7-8
'lbl_DataDD.Text = sr.ReadLine ' Zeile 9-10
'lbl_RealData.Text = sr.ReadLine 'mus bestimmt werden ?
'lbl_CC.Text = sr.ReadLine ' letzten 2
MessageBox.Show("File Readed!")
sr.Close()
End If
End If
End Sub
Code:
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim OutputFileName As String
Dim OutputText As String
OutputFileName = "C:\hex\Prf_Adresse_YYYY.txt"
Dim myStream As New IO.StreamWriter(OutputFileName, False)
OutputText = "text: " + lbl_Data.Text
myStream.Write(OutputText)
myStream.Close()
End Sub