VB.NET高效字符串转二进制函数示例与分享

vb.net 字符串转成二进制的函数,非常实用。写法也很规范。分享给大家学习。

Imports System.Text

Public Class MyFunctions

    ''' <summary>
    ''' Converts a string to binnary format.
    ''' </summary>
    Public Function StringToBinary(data As String, line As Integer) As String
        Dim sb As New StringBuilder()
        For i As Integer = 0 To data.Length - 1
            If i Mod line = 0 Then
                If i <> 0 Then
                    For j As Integer = i - line To i - 1
                        Dim val As Char = data(j)

                        If val >= ChrW(32) AndAlso val <= ChrW(127) Then
                            sb.Append(val)
                        Else
                            sb.Append("?"c)
                        End If
                    Next
                    sb.AppendLine()
                End If
                sb.Append(String.Format("0x{0} ", i.ToString("X4")))
            End If
            If (i Mod line <> 0) AndAlso (i Mod (line \ 2) = 0) Then
                sb.Append("| ")
            End If