本文介绍了一种使用VBScript进行高效字符串拼接的方法。通过创建一个名为strCat的类，可以显著提高字符串构建的速度，尤其是在大量字符串拼接时。文章对比了传统方法与使用该类的性能差异。
Fast VBScript string classby Jan Verhoeven, 10 November 2001String building in VBScript is very slow. The VBScript class presented below is easy to use and much faster. 
<%...
'fast string class class strCat dim index, ub, ar() Private Sub Class_Initialize() 'statements redim ar(50) index=0 ub=10 End Sub Private Sub Class_Terminate() 'statements erase ar End Sub public default Sub Add(value) ar(index)=value index=index+1 if index>ub then ub=ub+50 redim preserve ar(ub) end if end sub public Function dump redim preserve ar(index-1) dump=join(ar,"") end function end class 'first traditional method t1=time os="" for i=1 to 5000 os=os & "This is the slow method of building strings" next t2=time t3=time set cat= new strCat for i=1 to 5000 cat("This is the slow method of building strings") next s= cat.dump set cat = nothing t4=time
response.Write("Using the & operator:" & cstr(t1) & " - " & cstr(t2) & "<br>Using the fast string class: " & cstr(t3) & " - cstr(t4) & "<br>")%>Using strCatFirst create a new instance of the class with: set cat= new strCatNext you add add substrings: cat("add some substring to the fast string class") cat("add another substring to the fast string class")When you are done dump the result string and release the object: s=cat.dump set cat=nothing
扫一扫
1255
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
