发一个字符串与二进制互相转换的函数(支持中文字),vb.net就是好用.如果有错,欢迎指出.

[taick]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = ""
Dim str As String = TextBox1.Text
For i As Integer = 1 To str.Length
TextBox2.AppendText(str2bin(Asc(Mid(str, i, 1))))
TextBox2.AppendText(",")
Next
TextBox3.Text = ""
Dim bin() As String = TextBox2.Text.Split(",")
For i As Integer = 0 To bin.Length - 2
TextBox3.AppendText(bin2str(bin(i)))
Next
End Sub

Private Function str2bin(ByVal num As Integer) As String
If num < 0 Then
num += 65536
End If
Dim str As String = ""
Do While num > 1
str = (num Mod 2) & str
num = Int(num / 2)
Loop
str2bin = num.ToString & str
End Function

Private Function bin2str(ByVal str As String) As String
Dim num As Integer
If Mid(str, str.Length) = 1 Then
num = 1
End If
str = Mid(str, 1, str.Length - 1)
Dim i As Integer = 1
Do While str.Length > 0
num += (Val(Mid(str, str.Length)) * 2) ^ i
str = Mid(str, 1, str.Length - 1)
i += 1
Loop
bin2str = Chr(num)
End Function