Startseite › ASP_Volume3 › Hex Output
Advertisement
ASP_Volume3 String Manipulation #60862

Hex Output

Brian
★★★★★
4.8 · Downloads: 2,341

Generates text on the right side and the hex output on the left side. ex. 0D 0A 44 61 74 65 3A 20 54 68 75 2C 20 30 38 20 | ..Date: Thu, 08

AI

KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Quellcode
original-source 
Private Function HexOutput(strData As String, Optional intWidth As Integer = 16) As String
Dim intCount As Integer
Dim bytAsc As Byte
Dim strFormat As String
Dim strOut As String
Dim strText As String
 
 For intCount = 1 To Len(strData)
  bytAsc = Asc(Mid$(strData, intCount, 1))
  Select Case Len(Hex(bytAsc))
   Case 0: strFormat = "00"
   Case 1: strFormat = "0" & Hex(bytAsc)
   Case 2: strFormat = Hex(bytAsc)
  End Select
  strOut = strOut & strFormat & Chr$(32)
  
  If ((bytAsc = 32 Or bytAsc > 32) And (bytAsc < 127 Or bytAsc > 160)) Then
   strText = strText & Chr$(bytAsc)
  Else
   strText = strText & "."
  End If
  
  If ((intCount Mod intWidth) = intWidth - 1) Then
   strOut = strOut & "| " & strText & vbCrLf
   strText = vbNullString
  End If
 Next intCount
 
 strOut = strOut & String$(3 * (intWidth - (intCount Mod intWidth)), " ")
 strOut = strOut & "| " & strText
 strOut = strOut & vbCrLf & vbCrLf
 
 HexOutput = strOut
End Function
Originalkommentare (3)
Wiederhergestellt von der Wayback Machine