Unicode编码是一个数组，其中每个元素代表一个位码，还有ASCII和UTF8两种编码格式。 Unicode： Dim bytes() As Byte() = System.Text.Encoding.Unicode.GetBytes("字符串") ASCII： Dim bytes() As Byte() = System.Text.Encoding.ASCII.GetBytes("字符串") UTF8： Dim bytes() As Byte() = System.Text.Encoding.UTF8.GetBytes("字符串")

Dim arr() As String, i As Integer arr = Split(r.ReadLine, " ") For i = LBound(arr) To UBound(arr) MsgBox(arr(i)) －－－－－－－－－－－－－－－－－－－－ 还是用readline,如果你要提取两个非连续空格之间的字