none
Convertire carattere in ascii e contrario RRS feed

  • Domanda

  •  Dim E1 As String, TESTO As String
            '
            TESTO = "ABCDEFG" ' Testo prova
            '
            E1 = Mid(TESTO, 1, 1) ' Mid("testo", QUALE lettera, QUANTE lettere)
            '

            ' Convertire E1 =A in codice ASCII.

    poi da ascii in carattere

    RISOLTO ****

            Dim E1 As Char, TESTO As String
            '
            TESTO = "ABCDEFG" ' Testo prova
            '
            E1 = Mid(TESTO, 1, 1) ' Mid("testo", QUALE lettera, QUANTE lettere)
    
            '
            Dim c1 As Integer = Asc(E1)
            MsgBox(c1)
    
    
            Dim intValue As Integer = c1
            Dim strValue As String = Char.ConvertFromUtf32(intValue)
    
            MsgBox(strValue)


    COMPLETO RISCRITTO

            Dim E As Char
            Dim TESTO As String = "ABCDEFG" ' Testo prova
            '
            Dim X As Integer = 1
            Dim LUNGHEZZA As Integer = TESTO.Length
            '
    RIPETI:
            '
            E = Mid(TESTO, X, 1) ' Mid("testo", QUALE lettera, QUANTE lettere)
            '
            Dim C As Integer = Asc(E)
            MsgBox(C) ' CODICE ASCII
            '
            ' CODIFICA DA CODICE ASCII A TESTO
            '
            Dim CODICE As Integer = C
            Dim CARATTERE As String = Char.ConvertFromUtf32(CODICE)
            '
            MsgBox(CARATTERE) ' CARATTERE
            '
            X = X + 1 : If X > LUNGHEZZA Then GoTo FINE Else GoTo RIPETI
            '
    FINE:
            '


    • Modificato fabio.b martedì 30 aprile 2019 14:15
    martedì 30 aprile 2019 12:45