在VB里,Byte数组和String可以互相赋值,利用这个特性处理字符串非常方便。 如果是处理大量文本,以下用法应该熟悉。 字符串与Byte数组互相赋值: tBytes()=tString tString=tBytes() 需要注意的是,在VB内部字符串是UniCode表示的,而Asc函数返回的是Ascii和GBK编码(也就是默认代码页的编码)。因此,Asc函数返回的编码值与上面的Byte数组返回的值可能是不同的。 从Ascii/GBK文本获得Unicode数组: tBytes()=StrConv(tString,vbUnicode) 从Unicode文本获得Ascii/GBK数组: tBytes()=StrConv(tString,vbFormUnicode) 从Ascii/GBK数组获得Unicode文本: tString=StrConv(tBytes(),vbUnicode) 从Unicode数组获得Ascii/GBK文本: tString=StrConv(tBytes(),vbFormUnicode) 快速读取文本文件: '将文本文件整个读到Byte数组: Dim tBytes() As Byte tFN=FreeFile Open pFileName For Binary As #tFN tFileSize=LOF(#tFN) ReDim tBytes(tFileSize-1) Get #tFN,1,tBytes() Close #tFN tString=StrConv(tBytes(),vbUnicode) '从文件获得数组转换为带换行的多行文本字符串。 反之,如果将字符串文本写为二进制文件,则要: Dim tBytes() As Byte tBytes()=StrConv(tString,vbFormUnicode) tFN=FreeFile Open pFileName For Output As #tFN '清除文件内容 Close #tFN Open pFileName For Binary As #tFN Put #tFN,tBytes() Close #tFN 另外,还可以用API函数CopyMemory将Byte数组转换为Integer数组,在利用查表法进行内码转换、简繁转换时,该操作尤为重要。因为,在VB当中,每个“字”的编码都是16位UniCode,用Integer数组表示最为直观。但Integer数组不能直接与String赋值,因此需要一个与Byte数组转换的过程
Public Function ByteArrayToString(bytArray() As Byte) As String Dim sAns As String Dim iPos As String sAns = StrConv(bytArray,vbUnicode) iPos = InStr(sAns,Chr(0)) If iPos > 0 Then sAns = Left(sAns,iPos - 1) ByteArrayToString = sAns End Function (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|