浅议VB6字节数组和字符串的相互转换.doc

浅议VB6字节数组和字符串的相互转换

一、前言

数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文仅谈VB6中字节数组和字符串的相互转换过程中应注意的问题及其解决办法。

在VisualBasic中使用Byte数组主要是为了32位API函数的参数传递和函数的返回。在32位的VisualBasic版本中，字符串被假定为Unicode字符，其中每个字符占用两个字节。系统自动地将Unicode的两个连续字节转换成1个字节的ANSI字符。但是，如果该字符串包含二进制数据，其内容将变得很难理解。例如，一个汉字是两个字节，在VisualBasic6.0中的长度就只是1，这将给我们计算单个汉字的国标码带来一些麻烦。有了Byte数组，这些问题就将迎刃而解。

另外，VisualBasic中的字符串和C语言中的字符串有一些不同，本文将给出一个函数，把C字符串转换成VisualBasic字符串。

二、用Byte数组代替字符串

Byte数组包含的是0－255之间的ASCII码字符，它不会象字符串那样被系统作预处理。你可以在很多API函数中用来Byte数组代替字符串。

例如，下面的代码中用GetSystemDirectory这个WindowsAPI函数来取得Windows的系统路径。一共有两段代码，一段代码是传递一个字符串来存储函数返回的系统路径，另一段代码是传递一个Byte数组来代替字符串。

为了更好地比较，两段代码的不同部分都用黑体标出。读者可以仔细比较这两段代码的差异，这样您会更深入地理解Byte数组和字符串的差别。

把这两段代码的任何一段放入一个窗体中运行，但击窗体的空白区域，你将会在窗体中看到Windows的系统路径。

下面是使用字符串的代码：

PrivateDeclareFunctionGetSystemDirectoryLibkernel32Alias_

GetSystemDirectoryA(ByVallpBufferAsString,ByValnSizeAsLong)AsLong

PrivateSubForm_Click()

DimnAsInteger

DimstrAsString

str=Space$(256)

n=GetSystemDirectory(str,256)

str=Left$(str,n)

Printstr

EndSub

在上面这段代码中，字符串参数lpBuffer返回Windows的系统路径。在函数调用之前，将变量预定义成256个字符，并在函数返回时清除多余的字符。

注意：

在调用API函数之前，通常都需要预先定义一个字符串或者Byte数组以供API函数存储数据。应该养成这种良好的编程习惯。否则，你的程序有可能崩溃，甚至导致你的系统崩溃。

下面是使用Byte数组的代码：

PrivateDeclareFunctionGetSystemDirectoryLibkernel32Alias_

GetSystemDirectoryA(ByReflpBufferAsByte,ByValnSizeAsLong)AsLong

PrivateSubForm_Click()

DimnAsInteger

DimBuffer()AsByte

DimstrAasString

Buffer=Space$(256)

n=GetSystemDirectory(Buffer(0),256)

strA=StrConv(Buffer,vbUnicode)

strA=Left$(strA,n)

PrintstrA

EndSub

不知道读者注意到没有，第二段代码中的GetSystemDirectoryAPI函数的声明已经改变了。第一个参数的声明由一个ByVal字符串变成了一个ByRef的Byte数组，即由声明：

ByVallpBufferAsString

PublicSubMultiCStringToStringArray(psMultiCStringAsString,psaStrings()AsString)

参数psMultiCString是待转换的多个C字符串

参数psaStrings是返回的VB字符串数组，调用之前它必须是一个动态的空数组

DimiNullPosAsInteger