VB 6.0中Byte数组和String转换

前端之家收集整理的这篇文章主要介绍了VB 6.0中Byte数组和String转换前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

在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

猜你在找的VB相关文章