- 日時： 2009/12/27 12:43
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[文字列処理][アルゴリズム][基本コード] *
* キーワード：ファイル入出力,,,,, *
***********************************************************************************
文字列連結の高速化 - まんたろー 2004/06/10-19:11 No.9220
暇な方
文字列連結の高速化の競争しましょう。
以下のコードの高速化をしてみてください。
Private Function func()
Dim i As Long
Dim tmp As string
For i = 0 To 100000
tmp = tmp & CStr(i)
Next i
func = tmp
End Function
計測は以下の方法で
Private Sub Command1_Click()
Dim tm As Double
Dim data As String
tm = Timer
data = func
MsgBox Timer - tm
End Sub
ハードの性能に依存するので、高速化前/後の倍率で勝負です。
私の記録です。
前：108.26秒
後：0.22秒
約492倍
環境：Win2000
VB6
方法は後ほど書きます。
それでは皆さんがんばりましょう
|
文字列連結の高速化(VB6.0)