以Integer数组形式访问/修改字符串

leolee82

可以以数组形式操作字符串，又不用复制字符串数据。
目前参数只能是string，试图支持Variant形式的字符串，StrPtr(s)是正确的，但得到的字符串长度都是3。

4月30日：
发现将Len(s)改Clng(Len(s))就可以将s改为Variant形式的字符串，可能是GetMem4将Len(s)视为了Variant，3正好是Variant中的vt的值(vbLong)

1. Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (a() As Any) As Long
   
2. Private Declare Function GetMem4 Lib "msvbvm60" (ByRef Source As Any, ByRef Dest As Any) As Long
   
3. Private Declare Function SafeArrayCreateVector Lib "OleAut32" (Optional ByVal vt As VbVarType = vbInteger, Optional ByVal lLow As Long = 0, Optional ByVal lCount As Long = 0) As Integer()
   
4. 
   
5. 's不能为CONST
   
6. Function StringAsIntArray(s) As Integer()
   
7.     Dim pSa As Long
   
8.     StringAsIntArray = SafeArrayCreateVector
   
9.     GetMem4 ByVal ArrPtr(StringAsIntArray), pSa
   
10.     GetMem4 StrPtr(s), ByVal (pSa + 12&)
    
11.     GetMem4 Clng(Len(s)), ByVal (pSa + 16&)
    
12. End Function

复制代码

1. Sub TestStringAsIntArray0()
   
2.     Dim s$
   
3.     s = "ABCD"
   
4.     Dim arr
   
5.     arr = StringAsIntArray(s)
   
6.     For i = LBound(arr) To UBound(arr)
   
7.         arr(i) = 65
   
8.     Next
   
9.     Debug.Print s
   
10. End Sub

复制代码

perfect131

TestStringAsIntArray0 缺失         

leolee82

perfect131 发表于 2024-4-28 17:25
TestStringAsIntArray0 缺失

已添加.......