※ 引述《TonyQ (骨头)》之铭言： : ※ 引述《TonyQ (骨头)》之铭言： : → TonyQ:问题已解决 , 不过是用其他方式解决 , 不晓得这问题是否有解 03/03 23:20 : 推 fumizuki:把一百笔串起来还是某些栏位串成同一个栏位？ 03/04 19:15 : 推 fumizuki:如果是某些栏位串成同一个栏位 sql 查询语法就可以了@@ 03/04 19:15 : 每一个栏位是一个字串， : 我今天的问题不是在於SQL的问题。 : 而是在於我兜SQL查出资料来之後， : 我没有办法把所有字串叠加起来。:) : 请就它的本意去思考就好 : 如果我今天有2000到一万个个字串 要叠加， : 不晓得有没有办法解决效能的问题？:P VB6的String预设是可变长度 但内部实做其实是一直产生新的删除旧的 另一种方是是用不可变长度，但是我实测没有比较快，而且又有长度限制... 那麽就需要使用比较低阶的方法了，用讲的太麻烦，让测试程式来说话 '使用API RtlMoveMemory，采传址方式 Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long) Private Sub Form_Load() Dim a As String, c As Long Dim b As String, lb As Long, d As String, lend As Long Debug.Print Timer '时间开始 For c = 1 To 50000 a = a & Format(c, "00000") Next c Debug.Print Timer '一般方法结束，特殊方法开始 '建立一个「足够长度」的字串，并填入0 b = String(500000, Chr(0)) lb = StrPtr(b) '预先纪录字串b的记忆体起始位置 For c = 1 To 50000 d = Format(c, "00000") '因为要CopyMemory, 所以要先储存要累加的字串 '其实d在回圈中也会不断重新制造, 所以也可以想 '办法用类似的方法避免掉一直重新制造 lend = LenB(d) '注意要用LenB而非Len, 因为VB6是Unicode的 CopyMemory lb, StrPtr(d), lend '将d所在字串位址中长度lend复制到位址lb lb = lb + lend '目标位址偏移计算 Next c b = Left(b, InStr(b, Chr(0)) - 1) '将b结尾多余的0去掉 Debug.Print Timer '特殊方法结束 Debug.Print a = b '验证结果为True(字串内容相同) End End Sub ======================= 你可以发现这两种方法，执行效率差了约100倍 而且随着c回圈值的增加，时间差异是成等比级数上升 因为a的重新产生越来越花时间... 注意！由於CopyMemory直接控制记忆体存取，将绕过VB6的记忆体安全机制 如果复制的来源或目标超出预先定义的范围，将可能导致程式例外错误 在测试这一类API时，建议每次执行前都要存档 在VB6的 工具-选项-环境-程式於执行前: 询问是否储存变更 建议把它勾起来 ====================== 此外还有另一种方法 Private Sub Form_Load() Dim a As String, c As Long Dim b As String, lb As Long, d As String, lend As Long Debug.Print Timer '采用CopyMemory方式开始 b = String(5 * 10 ^ 7, Chr(0)) lb = StrPtr(b) For c = 1 To 999999 d = Format(c, "000000") lend = LenB(d) CopyMemory lb, StrPtr(d), lend lb = lb + lend Next c b = Left(b, InStr(b, Chr(0)) - 1) Debug.Print Timer '采用CopyMemory方式结束，采用字串阵列方法开始 Dim z(0 To 2 * 10 ^ 7) As String '故意用比较长的长度 '来验证z的长度可以设到很大 For c = 1 To 999999 z(c) = Format(c, "000000") Next c a = Join(z, "") Debug.Print Timer '采用字串阵列方式结束 Debug.Print a = b '验证结果为True End End Sub ====================== 当然，阵列方法还是没有CopyMemory方式快，但是中间差距很小 连续累加将近100万个长度为6的字串差距还不到一秒钟 而且因为没有动用到API，就没有异常终止的问题 另外在比较阵列跟CopyMemory方法时，请不要拿原始方法并列 可能要跑很久很久很久...... -- 短句释义: 书店都不书店了 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 140.115.204.46