IDC资讯中心
使用VB里的字串类型String有两大不足：第一、它的分配是由VB运行时控制，我们不能将其分配在指定内存处；第二，任何一次对字串的赋值操作都要进行内存重新分配。要实现高效、灵活的字串处理，我们必须克服这两大不足。
对于第一个问题，通过修改String变量里放着的BSTR描述符指针可以实现；对于第二个问题，可以用Mid语句（注意是语句而不是函数）来赋值。不详细讲了，直接看下面的这个类：
OptionExplicit
********************************************************
clsBSTR.cls
作者:熊超ID:AdamBear2002年3月18日
http://www.csdn.net/Author/AdamBear
你可以自由使用本类模块，不过请保留本声明
********************************************************
PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(DestinationAsAny,SourceAsAny,ByValLengthAsLong)
不要直接对sString赋值(可以用MID语句)，将其设为公有仅为提高效率。
PublicsStringAsStringBSTR描述符指针
PrivatepStrAsLongBSTR地址
PrivatenMaxLenAsLongBSTR最大字节数
让本字串指向特定地址
PublicSubAttach(AddrAsLong,OptionalnLenAsLong)
pStr=Addr
修改BSTR描述符指针，使其指向Addr
CopyMemoryByValVarPtr(sString),Addr,4
IfIsMissing(nLen)ThenExitSub
设定最大字串字节数
nMaxLen=nLen
EndSub
还原本字串原BSTR描述符
PublicSubDetach()
CopyMemoryByValVarPtr(sString),0&,4
EndSub
让本字串指向源字串
PublicSubAttachStr(sStrAsString)
AttachStrPtr(sStr),LenB(sStr)
EndSub
data为缺省属性
PublicPropertyLetdata(sValAsString)
DimcAsLong
c=LenB(sVal)
超过最大字串数，抛出错误。
Ifc>nMaxLenThenErr.RaisevbObjectError 3000,"CString::LetData","溢出"
写字串长度
CopyMemoryByVal(pStr-4),c,4
写字串
Mid(sString,1)=sVal
EndProperty
可以通过公有变量sString来读字串，效率更高
PublicPropertyGetdata()AsString
data=sString
EndProperty
PrivateSubClass_Terminate()
CallDetach
EndSub
用法如下，假设我们已通过VitualAlloc，HeapAlloc，MapViewOfFile这样的内存管理API得到了一个4k个字节的可读写的内存地址baseAddr：
DimsShareAsNewclsBSTR
留下前4个字节用于BSTR保存字串字节数
sShare.Attach(baseAddr 4,4096-4)
下面的字串"Test"会直接写到baseAddr 4字节处
sShare="Test"
DimyAsString
读字串时可以用sString属性或缺省属性
y=sShare.sString
用AttachStr方法Attach到一个字串。
必须要先Detach
sShare.Detach
sShare.AttachStr(y)
sShare="Hahaha"
Debug.Printy
一旦AttachStr到字串y后，对sShare的修改就相当于对y的修改。
并且以后对y的修改也只能用Mid语句
Mid(y,1)="xxxxx"
不能直接赋值，这样VB会将原来y所指（也是sShare所指）内存释放，
重新分配y。这样在访问sShare时会出错。
y="Test"
使用这个类有几个需要注意的地方。
1、读字串时可以用sString属性来读，更快。
读sShare有两种方法，一种是用缺省属性Data来读，一种是直接用sString属性来读。用sString属性不重新分配内存，要快得多。
2、不要直接给sString赋值，应使用缺省的data属性来赋值。
之所以把sString属性暴露出来，是为了效率和方便。我们可以用Mid语句对其进行修改，但不要直接用"="来赋值。
3、注意Attach的第二个参数，表示字串的最大字节数，不要让它超过已经分配的内存。
4、用AttachStr将本字串对象Attach到某个字串（比如上面的y）上后，不能再对这个字串y重新赋值，也不能将其传递到会对其重新赋值的过程。
这么多需要注意的问题，用起来岂不是更不方便。的确，用它的之前要考虑是不是必须的。因为建立这个类也一样有开销。所以还有一个需要注意的问题：
5、它主要的应用还是在于将字串安放在指定内存处。虽然它也可以让同一个进程内几个的字串达到共享的目的，但是如果只是两三个很小的字串这样时做反而慢了。
后计：
数组指针和字串指针我们已经谈过了，对于普通的数值类型变量的指针没有什么Hack的必要，但是它关系到一个有用的技术，下篇文章再谈。
->
