字符串连接很慢,请问怎样用COPYMEMORY这样的API连接快呢?

Question

例如:
dim s1 as string 
dim s2 as string 
s2="ABCDEFG"
dim ii as integer
for ii=0 to 10000
   s1=s1 & s2
next如何用API提高速度呢?
谢谢 

Answer 1

用CopyMemory还要慢的多，
你这段代码最多只要3秒就运行完了。

Answer 2

s1=string(10000,"x")
s1=replace(s1,"x",s2)

Answer 3

一般情况可以用mid语句或者数组加join，这样速度比较快
还觉得不够快的话自己写字符串结构...

Answer 4

用mid测试了下，很快的..    Dim s1 As String
    Dim s2 As String
    Dim n As Long, i As Long, l As Long
    Dim t    n = 1000000
    s2 = "ABCDEFG"    t = Timer               '记时    l = Len(s2)
    s1 = Space(n * l)
    n = n * l    For i = 1 To n Step l
        Mid(s1, i, l) = s2
    Next    MsgBox Timer - t