UC知道怎么把字符串数组中的一定量连续元素组合成一个字符串?
来源：百度知道 编辑：UC知道 时间：2024/05/15 17:19:36
假设一个有 10 万个元素的可变长字符串数组 z(9999)。我想将其中第 1000 到 10000 个元素组合成一个字符串。
如果我用循环然后 x = x & z(i) 来赋值的话，那慢得要死。有什么更好的方法?
用 Join 的话，好像是整个数组整合到一起，，，，
这里说的 1000 到 10000 只是比喻。假如这两个界限是可变的话，那最恐怖的情况下就要循环9.9999万次，那费时就更多了。而且，这个程序是给用户用的，谁也不知道用户的机子有多快还是有多慢。如果是用 JOIN 函数的话，那是飞飞飞快，只是 JOIN 不提供整合部分元素的功能。我想要的是跟 JOIN 一样或接近它的速度。
其实，这里的 10 万个元素也只是比喻，实际情况下，是 从 1 到无限的。但大部分情况下一般只是几十万以内的情况。
如果我用循环然后 x = x & z(i) 来赋值的话，那慢得要死。有什么更好的方法?
用 Join 的话，好像是整个数组整合到一起，，，，
这里说的 1000 到 10000 只是比喻。假如这两个界限是可变的话，那最恐怖的情况下就要循环9.9999万次，那费时就更多了。而且，这个程序是给用户用的，谁也不知道用户的机子有多快还是有多慢。如果是用 JOIN 函数的话，那是飞飞飞快，只是 JOIN 不提供整合部分元素的功能。我想要的是跟 JOIN 一样或接近它的速度。
其实，这里的 10 万个元素也只是比喻，实际情况下，是 从 1 到无限的。但大部分情况下一般只是几十万以内的情况。
你可以先将x定义为一个字符串变量,在循环内给x赋值,循环完成之后在将这个x显示出来. 从1000循环到10000 我算了一个,整个过程用不了1秒钟.
给你代码你可以看一下.,:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command1_Click()
Dim a As Long, b As Long
Dim x As String
a = timeGetTime
x = ""
For i = 1000 To 10000
x = x & i
Next i
Print x '再循环外 显示这个结果
b = timeGetTime
Print "代码执行时间是 " & b - a & "毫秒"
End Sub
如果你还想提高运算速度的话,那只能看机器的性能了...