Vraag : vb.net - hexuitdraaigegevens

hello daar, heeft
I deze hexuitdraaiconvertor maar ik zou tot het het werk willen maken. omgezet van C# im die een fout op Convert.ToString krijgen
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Imports System.Collections.Generic
De invoer System.ComponentModel
De invoer System.Data
De invoer System.Drawing
De invoer System.Text
De invoer System.Windows.Forms

Openbare Klasse Form1
    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
        Probeer
            textBox2.Clear ()
            textBox1.Text = textBox1.Text.Replace („„, "")
            textBox1.Text = textBox1.Text.Replace (vbLf & vbTab, "")
            textBox1.Text = textBox1.Text.Trim ()
            Schemerige StrLen als Geheel = textBox1.Text.Length
            Verduister a als Geheel = 0
            Terwijl a < StrLen
                Schemerige Char2Convert als Koord = textBox1.Text.Substring (a, 2)
                Schemerig n als Geheel = Convert.ToInt32 (Char2Convert, 16)
                Schemerig c als Klusje = ChrW (n)

                textBox2.Text = textBox2.Text + c.ToString ()
                a = a + 2
            Eind terwijl
        Vangst ex als Uitzondering
            MessageBox.Show (de „Fout van de Omzetting kwam voor: “ & ex. Bericht, de „Fout van de Omzetting“)
        Het eind probeert
    Sub van het eind

    Privé SubButton2_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt Button2.Click
        Probeer
            textBox1.Clear ()
            textBox2.Text = textBox2.Text.Replace („„, "")
            textBox2.Text = textBox2.Text.Replace (vbLf & vbTab, "")
            textBox2.Text = textBox2.Text.Trim ()
            Schemerige StrLen als Geheel = textBox2.Text.Length
            Verduister a als Geheel = 0
            Terwijl a < StrLen
                Schemerige Char2Convert als Koord = textBox2.Text.Substring (a, 1)
                Schemerig c als Klusje = Char2Convert.ToCharArray (0, 1) (0)
                Schemerig n als Koord = Convert.ToString (c, 16)

                textBox1.Text = textBox1.Text + n & „„
                a = a + 1
            Eind terwijl
        Vangst ex als Uitzondering
            MessageBox.Show (de „Fout van de Omzetting kwam voor: “ & ex. Bericht, de „Fout van de Omzetting“)
        Het eind probeert
    Sub van het eind
Eind Class

Antwoord : vb.net - hexuitdraaigegevens

Ik kopi�ër/kleef uw Code van de Hexuitdraai in mijn Hex.txt en ontleed het gebruikend deze methode (zie code).

Ik ontspan de nauwkeurige zelfde die gegevens (behalve de kleine letters van mijn hulpmiddel van de hexuitdraaikijker worden geproduceerd):

30818902818100b17d325a8a507d48dbdfcbe2e63649b00c0ecdc2405fa3b017f06ebfb92515234829773bb9ff2e8695cc6093bc137b7bd90ebddfe1d6ce45f97085ffc35ade5e3ebdec1204002566469507f81f6005930849f73114b9beddcf181c81b6d43a668c9b9a164eef6d6df23db62f4e72655725b69918c820bdb6f6954f2156cd74470203010001

Originele hexuitdraai:

30818902818100B17D325A8A507D48DBDFCBE2E63649B00C0ECDC2405FA3B017F06EBFB92515234829773BB9FF2E8695CC6093BC137B7BD90EBDDFE1D6CE45F97085FFC35ADE5E3EBDEC1204002566469507F81F6005930849F73114B9BEDDCF181C81B6D43A668C9B9A164EEF6D6DF23DB62F4E72655725B69918C820BDB6F6954F2156CD74470203010001
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

        Schemerige input als StreamReader
        Schemerige output als FileStream
        Schemerige hexLine als Koord

        input = File.OpenText („hex.txt“)
        output = File.Create („text.txt“)

        Terwijl niet input.EndOfStream
            hexLine = input.ReadLine ()
            Schemerige StrLen als Geheel = hexLine.Length
            Verduister a als Geheel = 0

            Terwijl a  < StrLen="" output="">
Andere oplossingen  
 
programming4us programming4us