→→→Hex

Hex-EDITORのメモ

Private Sub HexH()
         Dim i, k, l  As Integer
         Dim w1, w2, w3, w4, w5 As String
         Dim chrchar As System.Char
         Dim intchar As System.int32
         Dim strchar As System.int16
         RichtextBox1.text = ""
         For  j = 0 To i - 1
             k = Microsoft.VisualBasic.Len(pInfo(j).str(0))
             For  l = 0 To k - 1
                    chrchar = Mid(pInfo(j).str(0) , l + 1 , 1 )
                    intchar = Microsoft.VisualBasic.Asc(chrchar)
                    shrchar = CType( intchar, System.int16)
                    w4 = Microsoft.VisualBasic.Hex(shrchar)
                    w5 = Chr( intChar )
                    If preview (Integer) = 0 Then
                           RichTextBox1.AppendText( W4 & vbCrLf & w5 & vbCrLf & "---" & vbCrLf)
                    Else
                           RichTextBox1.AppendText( w4  &  w5  &  &  "|" )
                    End If
               Next
               System.Threading.Thread.Sleep( 1000 )
               RichTextBox1.Focus()
            Next
End Sub
            w1 = System.Convert.ToString( intchar , 16 )
            w2 = System.Convert.ToString( shrchar , 16 )
            w3 = Microsoft.VisualBasic.Hex( intchar )