Prob mit Chars
- From: "Manuel König" <manuk19@xxxxxx>
- Date: Tue, 12 Jul 2005 18:56:58 +0200
Hallo NG,
hab mal wieder ein prob mit den Bits & Bytes :) .
Ich versuche mir gerade ein Hexviewfenster zu bauen das
am Anfang eine Adresse stehen hat dann den HEX-Code und dann die ASCII
zeichen des HEX-Codes.
Bsp.:
0x00000000 B3 88 93 49 4C C5 03 C1 CF B4 0B 69 DB C9 5F F5 ³^"ILÅÁÏ´ iÛÉ_õ
Ohne die ASCII-Zeichen zeigt mir der Code den kompletten Inhalt des Arrays
an
wenn ich allerdings die Zeile einfüge in der, der Hex-code in Ascii
umgewandelt wird zeigt er mir nur einen
Teil des gesamten Arrayinhaltes.
Mit freundlichem Gruß
Manuel König
PS: Wenn jemand ein Freeware-Control für .NET kennt das dass gleiche
macht wäre ich froh wenn er mir
den Link schicken könnte, dann kann ich mir die Kopfschmerzen sparen.
Hier ist der SRC der mir Kopfzebrechen bereitet.
Ich find einfach den Fehler nicht.
Private Sub btn_Test_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_Test.Click
Const items = 10000 '100 Byte
Dim HEXtest(items) As Byte
Dim i, i1, j As Integer
Dim str_Hex, Hex_Value, str_Adresse, str_Hexview As String
Dim str_ASCII As New StringBuilder
Dim startadr As Integer
'Startadresse initialisieren
'Für spätere Erweiterung auf unterschiedliche Startadressen
startadr = 0
'Erstellt x unterschiedliche werte
Do While i < items
HEXtest(i) = CInt(Int((255 * Rnd()))) ' Erzeugt verschiedene
Werte zwischen 0 und 255
i += 1 'Zähler erhöhen
Loop
'Auslesen des Arrays
For i1 = startadr To startadr + items - 1 Step 16
'Adresszähler
str_Adresse = Hex(i1)
str_Adresse = "0x" & str_Adresse.PadLeft(8, "0")
'HEX-Werte
For j = i1 To i1 + 15
If j > items Then Exit For
Hex_Value = Hex(HEXtest(j))
If Hex_Value.Length = 1 Then
Hex_Value = "0" & Hex_Value
End If
str_Hex &= Hex_Value & " "
'Fehler ?
str_ASCII.Append(Chr(HEXtest(j)))
Next
'Stringkombination
str_Hexview &= str_Adresse & " " & str_Hex & " " &
str_ASCII.ToString & vbCrLf
str_Hex = ""
str_ASCII.Remove(0, str_ASCII.Length)
Next
mdifrm.txt_HexView.Text = str_Hexview
End Sub
.
- Follow-Ups:
- Re: Prob mit Chars
- From: Armin Zingler
- Re: Prob mit Chars
- Prev by Date: Re: Splashscreen und Fortschrittsbalken ?
- Next by Date: Re: Prob mit Chars
- Previous by thread: Listenfeld einer Combobox soll breiter sein als Combobox selber
- Next by thread: Re: Prob mit Chars
- Index(es):
Relevant Pages
|
