VB使用CopyMemory字符串处理
2010-01-29 13:53
513 查看
不能直接使用CopyMemoryStr,应该将字符串转为byte数组,然后使用CopyMemory
Property Get item() As String
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long, ptr0 As Long
Dim ab() As Byte
'取出BSTR的长度
CopyMemory c, ByVal p, 4
If c > 0 Then
ReDim ab(c - 1)
CopyMemory ByVal VarPtr(ab(0)), ByVal (p + 4), c
item = ab
End If
End Property
Property Let item(s As String)
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long
Dim ab() As Byte
c = LenB(s)
ab = s
' 重新将BSTR放回内存中
CopyMemory ByVal p, c, 4
CopyMemory ByVal (p + 4), ByVal VarPtr(ab(0)), c
End Property
Property Get item() As String
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long, ptr0 As Long
Dim ab() As Byte
'取出BSTR的长度
CopyMemory c, ByVal p, 4
If c > 0 Then
ReDim ab(c - 1)
CopyMemory ByVal VarPtr(ab(0)), ByVal (p + 4), c
item = ab
End If
End Property
Property Let item(s As String)
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long
Dim ab() As Byte
c = LenB(s)
ab = s
' 重新将BSTR放回内存中
CopyMemory ByVal p, c, 4
CopyMemory ByVal (p + 4), ByVal VarPtr(ab(0)), c
End Property
相关文章推荐
- VB中利用CopyMemory使用指针
- 有一字符串,包含数字与字母,编程去除数字。要求:1要求在原字符串中操作 2、使用指针处理
- iOS中使用NSJSONSerialization转换成json字符串后传递到后台的引号转义处理
- mybatis 里面使用<if test=""> 判断,当后台传的值是数字字符串时,怎么处理
- python字符串处理rstrip()、lstrip()、strip()函数使用
- VB用copymemory快速交换两个字符串
- 「细」small() //使用小字号来显示字符串 20140822 ①文本处理
- Python字符串处理之count()方法的使用
- Python中处理字符串之isalpha()方法的使用
- 字符串内特殊字符在html_javascript_xml等内使用时的转换 ,"缺少十六进制数字"错误的处理
- Python处理字符串之isspace()方法的使用
- Python strip lstrip rstrip使用方法(字符串处理空格)
- 使用过的vbs字符串处理函数(逐渐增加)
- 浅析python 内置字符串处理函数的使用方法
- JAVA环境使用正则表达式处理字符串
- WinHack的开发技术经验(1)-使用 Unicode 作为内部字符串处理
- windows中目录字符串处理函数, MSDN里有使用的例子
- Outlook 2010中添加自定义Form并使用VB代码处理事务的示例
- 如何使用正则表达式处理字符串中的GUID
- 【原创】字符串处理函数使用和结果