[VB.NET] Convertire intera pagina di RichTextBox da esadecimale a carattere

[stejano]

ciao ragazzi dovrei convertire un'intera pagina scritta in esadecimale in caratteri alfanumerici normali.

come posso fare?

mi consigliate di prendere i dati direttamente dalla richtextbox in cui sono e quindi convertirli...oppure salvare la richtextbox in un file di testo e poi convertire il file di testo coi caratteri esadecimali in caratteri alfanumerici?

[oregon]

In che senso hai una pagina di dati esadecimali?

Cioe' hai una serie di dati scritti cosi'

AB5B34E3B27856 ...

oppure ?

[stejano]

sì esatto

[oregon]

Ma potrebbero essere non visualizzabili ... ad esempio 030B0CFFFE ...

[stejano]

nono sono sicuro che sono visualizzabili come caratteri alfanumerici, perchè li ho esaminati e sono tutti caratteri alfanumerici

[oregon]

Se vuoi una risposta immediata, ti posso dire come fare in C# (non dovrebbe essere difficile portare il codice in VB.NET ...) ... ma se hai problemi, dillo ...

            string sd, sa;
            int i, j;

            sd = "4142434445464748494A4B4C4D4E4F505152535455565758595A";

            byte[] b = new byte[sd.Length / 2];
            for (i = 0, j = 0; i < sd.Length; i += 2, j++)
                b[j] = (byte)ushort.Parse(sd.Substring(i, 2), System.Globalization.NumberStyles.HexNumber);

            sa = Encoding.UTF8.GetString(b, 0, b.Length);

            Console.WriteLine(sa);

Considera che sd e' la stringa che contiene i dati presi direttamente dalla richtextbox.

[stejano]

ho creato questo, ma non funziona:

Dim sd As String, sa As String
        Dim i As Integer, j As Integer

        sd = "6369616F"

        Dim b() As Byte = New Byte(sd.Length / 2) {}
        For i = 0 To i < sd.Length Step i + 2

            For j = 0 To sd.Length Step j + 1

                b(j) = CType(UShort.Parse(sd.Substring(i, 2), System.Globalization.NumberStyles.HexNumber), Byte)
            Next
        Next

        sa = System.Text.Encoding.UTF8.GetString(b, 0, b.Length)

        RichTextBox2.Text = sa

come mai?

[oregon]

Beh ... perche' due cicli for visto che te ne ho indicato uno solo?

        Dim sd As String, sa As String
        Dim i As Integer, j As Integer

        sd = "6369616F"

        Dim b() As Byte = New Byte(sd.Length / 2) {}
        j = 0
        For i = 0 To sd.Length - 1 Step 2
            b(j) = CType(UShort.Parse(sd.Substring(i, 2), System.Globalization.NumberStyles.HexNumber), Byte)
            j = j + 1
        Next

        sa = System.Text.Encoding.UTF8.GetString(b, 0, b.Length)

        RichTextBox2.Text = sa

o piu' semplicemente

        Dim sd As String, sa As String
        Dim i As Integer

        sd = "6369616F"

        sa = ""
        For i = 0 To sd.Length - 1 Step 2
            sa += Chr(UShort.Parse(sd.Substring(i, 2), System.Globalization.NumberStyles.HexNumber))
        Next

        RichTextBox2.Text = sa

[stejano]

che dire.....mille grazie!