VB字符串和字节数组的转换
发布网友
发布时间：2022-04-18 18:18
共4个回答
热心网友
时间：2022-04-18 19:48
1. 函数预先要求你提供一个有固定空间的字符串，以供存储函数的返回值。
2. 函数的返回是一个以Null结尾的C字符串，而不是正规的VB字符串。
3. Win32 API函数有时候会返回另一种类型的字符串。这种类型的字符串在单个缓冲区内保存了多个字符串值，每个值之间用Null隔开，结尾的是两个Null，一个Null是最后一个字符串值的结尾符，另一个Null是整个字符串的结尾符。这其实就是我们通常在C中遇到的字符串数组。
第一种情况很好办，只无原则预先定义好一个空间足够大的字符串，然后把API函数的返回值赋于这个字符串就可以了。例如，如果你已经知道函数返回值最多不会走过256个字符，可以这样编码如下：
DimsAPIReturnas string
SAPIReturn=Space$(256)
SAPIReturn=API_Function(…)
对于第二和第三种情况，就必须把返回的C字符串成标准的VB字符串。下面这个函数CStringToVBString把一个以Null结尾的C字符串成VB字符串。
Public FunctionCStringToVBString(psCStringAs String)As string
'参数psCString是一个待转换的C字符串
'函数返回Null左边所有的字符
dimsReturnas string
dimiNullCharPosAs Integer
iNullCharPos=InStr(psCString,vbNullChar)
ifiNullCharPos >0then
sReturn =left(psCString, iNullCharPos -1)
else
sReturn =pscstring
end if
CStringToVBString=sReturn
End function
下面这个过程把一个含有多个C字符串的缓冲区转换成一个字符串数组。
Public SubMultiCStringToStringArray(psMultiCStringAs String, psaStrings()As String)
'参数psMultiCString是待转换的多个C字符串
'参数psaStrings是返回的VB字符串数组，调用之前它必须是一个动态的空数组
DimiNullPosAs Integer
DimiPrevPosAs Integer
DimiIdxAs Integer
'初始化字符串数组
iIdx =0
ReDimpsaStrings(0ToiIdx1)
psaStrings(iIdx1) =""
Do
iNullPos = InStr(iPrevPos1, psMultiCString, vbNullChar)
IfiNullPos > iPrevPos1Then
'把找到的C字符串赋值给字符串数组
psaStrings(iIdx) = Mid$(psMultiCString, (iPrevPos1), ((iNullPos -1) - iPrevPos))
iIdx = iIdx1
ReDim PreservepsaStrings(0ToiIdx)
iPrevPos = iNullPos
Else
'找到了两个Null字符，去掉最后一个，然后退出
ReDim PreservepsaStrings(0ToiIdx -1)
Exit Do
End If
Loop
End Sub
当调用Win32 API函数时，使用这两个简单的函数，你可以消除很多冗余的代码，加快开发步伐。追问我看过这篇文章，完全没重点，不知道讲什么
热心网友
时间：2022-04-18 21:06
当我们在VB中调用Win32 API函数时，如果函数的返回值是一个字符串，那一般有如下三种情况：
1. 函数预先要求你提供一个有固定空间的字符串，以供存储函数的返回值。
2. 函数的返回是一个以Null结尾的C字符串，而不是正规的VB字符串。
3. Win32 API函数有时候会返回另一种类型的字符串。这种类型的字符串在单个缓冲区内保存了多个字符串值，每个值之间用Null隔开，结尾的是两个Null，一个Null是最后一个字符串值的结尾符，另一个Null是整个字符串的结尾符。这其实就是我们通常在C中遇到的字符串数组。
热心网友
时间：2022-04-18 22:40
S = "123456abcdef"
a = StrConv(S, vbFromUnicode) '字符串转换为字节数组
S1 = StrConv(a, vbUnicode) '字节数组转换为字符串
MsgBox S1
热心网友
时间：2022-04-19 00:32
