VBA提取汉字字母混在字符串

问题的提出：


　　我有一个文本文件，里面的内容是以字节为长度分开的几个字段，现在想把每个字段读到EXCEL里面，结果发现EXCEL是以字符为单位处理字符串的。如下：


　　str1="张三    12345678"     '第一行


　　str2="王老五  12345678"     '另一行


　　注意，张三后面是4个空格，王老五后面是两个空格，这样姓名一列它们占的字节数是一定的，都是8个字节；在VBA里当读第一行时得用left(str1,6)读出来的才是姓名那个字段，读第二行时就得用left(str2,5)才正确了。问题在于汉字并不止这两个或三个字，我的文本文件里汉字数量有很大变化的，想了好多办法都不能很好解决。


　　解决案：


　　用StrConv进行Unicode 和 Ansi 格式的切换。


　　http://hiyachen.blog.chinaunix.net


　　chf@tsinghua.org.cn


　　根由：


　　目前的计算机VBA默认为本地为Unicode 格式。在LEN，LEFT，Right，MID等函数中，汉字和字母都为一个字符。


　　相反Ansi 中，汉字为两个字符，字母为一个字符。


　　以下是详解：


　　VB中的Unicode 和 Ansi 格式


　　Visual Basic 32-bit 版本的字串处理采用 Unicode，也就是说字串在 VB 内部是以Unicode 的格式来存放。何谓 Unicode？简单的说，就是每一个字符都是以 2-byte 的形式表示，而每个「实体字符」就是一个「字符」。因此，


　　Len("大家好")


　　Len("abc")


　　所返回的值都是 3，因为「大」和「a」都是一个字符。


　　但是这对一些中文字串处理，例如纯文字的数据文件，却是一个大灾难，因为你必须以byte 来定位每个字符，可是 Unicode 却把一切的处理全搞砸了。例如：


　　Len("Good Morning") 返回 12，而Len("今天天气很好") 返回 6


　　对初学者而言，好不容易能使用 VB 来写程序已经是件了不起的事了，却马上在中文处理上挨了一记闷棍，所受到的打击实在不小。但是不要怕，事实上只要再多了解一些指令，就可以把中文处理的问题解决了。


　　是什么指令呢？最重要的莫过于 StrConv 了。StrConv 函数的语法为：StrConv(待转换字串, 转换格式)其中转换格式在这里用到的是：


　　vbUnicode 将 Ansi 字串转换为 Unicode vbFromUnicode 将 Unicode 字串转换为 Ansi将字串转成 Ansi 之后，所有的字串处理指令都要加个 B，例如：LeftB, RightB,MidB, ChrB, InstrB, LenB, InputB 等。例用这些指令来处理就行了。


　　当你处理完毕之后，你可以再将它再转回 Unicode，这样就可以使用一般的字串处理指令了。


　　这样讲看得懂吗？如果还是不了解，