如何求中文字符串的字节数？

[y102]

如：dim a as string="工厂"
如何求a串的长度为4，而非2呢?

[copico]

Dim str As String = TextBox1.Text
Dim bt() As Byte
bt = System.Text.Encoding.Unicode.GetBytes(str)
MsgBox(bt.Length())

[astly2004]

LenB

[copico]

LenB是vb里的,.net没有

[intern9901]

1楼的就可以了阿

[y102]

但是英文“a”的长度也变成2了。

[copico]

当然
因为两种表示方式

[y102]

dim a as string="a工厂"
如何求a串的长度为5，而非3呢?

[copico]

你是想要这种效果吗?
Dim str As String = TextBox1.Text
Dim b() As Byte = System.Text.Encoding.Unicode.GetBytes(str)
Dim i As Integer
Dim bb(100) As Byte
Dim t As Integer = 0
Dim j As Integer
For j = 0 To b.Length - 1
If b(j) <> 0 Then
bb(t) = b(j)
t = t + 1
End If
Next
MsgBox(t.ToString())

[myderek]

System.Text.Encoding.Default.GetBytes("a工厂")

[copico]

哎.

[lushawen]

真是的，这么简单的问题何须搞那么多：
dim a as string="a工厂"
dim result as integer=System.Text.UTF8Encoding.UTF8.GetByteCount(a)
return result=5

[李必胜]

System.Text.Encoding.GetEncoding("gb2312").GetByteCount(a)

[y102]

我试了一下System.Text.UTF8Encoding.UTF8.GetByteCount(a)返回7?