Hi,
ich möchte zwei Byte variablen vergleichen und das Zeichen für Zeichen.
Ich habe so angefangen, dass ich Jeweils die erste Zahl von der einen Byte variable mit der ersten von der anderen Variable vergleiche.
Dann will ich die Erste Zahl löschen und immer so weiter....
Außerdem soll immer wenn die Bytes gleich sind in einer Textbox die Zahl +1 gerechnet werden, damit wenn der Inhalt wieder Ungleich ist dort der Abstand wie beim Original ist.
Man könnte das auch mit Textboxen machen aber wenn ich versuche den Inhalt der Byte variablen in eine Textbox zu kriegen Steht da nur Systhem.Byte[] ...
Hier ist erstmal mein Code :
Public Class Form1
Dim einste, zweite, länge, ba, tmpname As String
Dim bt1(), bt2() As Byte
Dim rand As New System.Random
Dim abs As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
OpenFileDialog1.ShowDialog()
einste = OpenFileDialog1.FileName
OpenFileDialog1.ShowDialog()
zweite = OpenFileDialog1.FileName
bt1 = My.Computer.FileSystem.ReadAllBytes(einste)
bt2 = My.Computer.FileSystem.ReadAllBytes(zweite)
Do
länge = bt2.Length
ba = bt2.First
If bt1.First = bt2.First Then
TextBox3.Text += 1
Else
If Not TextBox3.Text = "" Then
abs = TextBox3.Text
For i As Integer = 1 To abs
TextBox4.Text += " "
Dim i1 As Integer = 0
If i1 = abs Then
Exit For
End If
i1 += 1
Next
TextBox4.Text += ba
End If
End If
Try
' Hier soll die Löschanweisung hin
Catch ex As Exception
Exit Do
End Try
Loop
' Ergebnis in Datei schreiben
tmpname = rand.Next(1, 100)
If IO.File.Exists("C:\Users\User\Desktop\" & tmpname) Then
tmpname = rand.Next(1, 100)
My.Computer.FileSystem.WriteAllText("C:\Users\User\Desktop\" & tmpname, TextBox4.Text, False)
Else
My.Computer.FileSystem.WriteAllText("C:\Users\User\Desktop\" & tmpname, TextBox4.Text, False)
End If
Catch ex As Exception
End Try
End Sub
End Class
Danke schonmal im Vorraus
MfG
optz
ich möchte zwei Byte variablen vergleichen und das Zeichen für Zeichen.
Ich habe so angefangen, dass ich Jeweils die erste Zahl von der einen Byte variable mit der ersten von der anderen Variable vergleiche.
Dann will ich die Erste Zahl löschen und immer so weiter....
Außerdem soll immer wenn die Bytes gleich sind in einer Textbox die Zahl +1 gerechnet werden, damit wenn der Inhalt wieder Ungleich ist dort der Abstand wie beim Original ist.
Man könnte das auch mit Textboxen machen aber wenn ich versuche den Inhalt der Byte variablen in eine Textbox zu kriegen Steht da nur Systhem.Byte[] ...
Hier ist erstmal mein Code :
Public Class Form1
Dim einste, zweite, länge, ba, tmpname As String
Dim bt1(), bt2() As Byte
Dim rand As New System.Random
Dim abs As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
OpenFileDialog1.ShowDialog()
einste = OpenFileDialog1.FileName
OpenFileDialog1.ShowDialog()
zweite = OpenFileDialog1.FileName
bt1 = My.Computer.FileSystem.ReadAllBytes(einste)
bt2 = My.Computer.FileSystem.ReadAllBytes(zweite)
Do
länge = bt2.Length
ba = bt2.First
If bt1.First = bt2.First Then
TextBox3.Text += 1
Else
If Not TextBox3.Text = "" Then
abs = TextBox3.Text
For i As Integer = 1 To abs
TextBox4.Text += " "
Dim i1 As Integer = 0
If i1 = abs Then
Exit For
End If
i1 += 1
Next
TextBox4.Text += ba
End If
End If
Try
' Hier soll die Löschanweisung hin
Catch ex As Exception
Exit Do
End Try
Loop
' Ergebnis in Datei schreiben
tmpname = rand.Next(1, 100)
If IO.File.Exists("C:\Users\User\Desktop\" & tmpname) Then
tmpname = rand.Next(1, 100)
My.Computer.FileSystem.WriteAllText("C:\Users\User\Desktop\" & tmpname, TextBox4.Text, False)
Else
My.Computer.FileSystem.WriteAllText("C:\Users\User\Desktop\" & tmpname, TextBox4.Text, False)
End If
Catch ex As Exception
End Try
End Sub
End Class
Danke schonmal im Vorraus
MfG
optz
