VBA高级教程之基础篇：文本编码和字符串处理(包括指针)，ADODB.Stream转换文本编码

wwwconsumer

太高深了，我的水平无法理解！

施昭忘带伞

感谢分享，谢谢

lee1892

liucqa 发表于 2013-3-31 18:00
九、关于指针：谈谈VarPtr和StrPtr

这两个函数在微软的文档中是找不到帮助信息的。微软并不推荐我们使用 ...

1. Sub testStrPtr()
   
2.     Dim lng As Long
   
3.     Dim str As String, str1 As String
   
4.     Dim b(1 To 10) As Byte
   
5.     Dim sp As Long, vp As Long
   
6. 
   
7.     str = "ABC"
   
8.     sp = StrPtr(str)                   'sp是字符串首地址即字符h在内存中的地址
   
9.     Debug.Print "字母A的内存地址:" & sp
   
10. 
    
11.     vp = VarPtr(str)                   '保存str指针变量的内存地址（str是指向BSTR字符串"ABC"的指针）
    
12.     Debug.Print "指向BSTR字符串""ABC""的指针的内存地址" & vp
    
13. 
    
14.     CopyMemory lng, ByVal vp, 4        '将vp指向的内容拷贝4个字节到lng。
    
15.     Debug.Print vp & "指向的内容是否是""A""在内存中的实际地址" & sp & ":" & (lng = sp)
    
16. 
    
17.     CopyMemory b(1), ByVal sp, 10      '将sp保存的地址的实际内容拷贝给byte型数组b()，并输出。
    
18. 
    
19.     str1 = b
    
20.     MsgBox str                         '"ABC"
    
21. End Sub

复制代码

b长度应该为6，复制内存时应为6个字节，上述代码str1的长度是5个而不是3个。

eh231

好资料，很系统很到位

xgy0214dxy

很不错，又可以学习提升了

kimenwind

高手, 學習了, 本論壇高手多, 很高興

guojianlin1985

学习指针用法。

cyberstyle

MARK。。。

先行者

楼主大大
我实际应用的时候出现两个问题，不知道怎么解决，希望解答一下，谢谢     

cyberstyle

    Dim s As String
    s = "ABC"
    MsgBox Len(s)         

从这段代码中，Len函数返回的是字符串数组的字符个数。所以3个字符的字符串“ABC”返回7。

为什么我在2013里测试是返回3的呢？并不是7？