LotusScript小噺 あなたのコードが高速になる Tips 中野晴幸 @harunakano harunakano.blogspot.com

これらのコードの大きな違いとは？ Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next

Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next 変数の型が違う 型の宣言なし = Variant

Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next バインディング 早期バインディング 遅延バインディング 遅延バインディング 型の宣言なし = Variant

バインディング とは  オブジェクトを変数名に割り当て るプロセス  ２つのタイプ  早期バインディング[early binding]  遅延バインディング[late binding]

早期バインディング  コンパイラによって設定される  型のチェックを使用し、素早く動作する

遅延バインディング  遅延バインディングは実行時に設定される  柔軟だが型チェックを使用せず、ランタイムエラーが発生する可能性がある  型を Variant で宣言したり、型を宣言していない場合、遅延バインディングとな る  早期バインディングに比べ処理時間が長い

処理時間の違い Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next 処理時間（秒） 早期 遅延 遅延 1回目 2回目 3回目 平均 Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next

処理時間の違い Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next 処理時間（秒） 早期 遅延 遅延 1回目 64 66 2回目 65 65 3回目 64 64 平均 64 65 Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next

処理時間の違い Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next 処理時間（秒） 早期 遅延 遅延 1回目 3 64 66 2回目 4 65 65 3回目 3 64 64 平均 3 64 65 Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next

処理時間の違い Dim i As Long i = 0 For i = 1 To 100000000 i = i + 1 Next 処理時間（秒） 早期 遅延 遅延 1回目 3 64 66 2回目 4 65 65 3回目 3 64 64 平均 3 64 65 Dim j As Variant j = 0 For j = 1 To 100000000 j = j + 1 Next k = 0 For k = 1 To 100000000 k = k + 1 Next 20倍以上!!

よくある省略の誤り Dim i, j, k As Long

よくある省略の誤り Dim i, j, k As Long ここ! Variant です!

「接尾辞」と「Deftypeステートメント」 Dim i&, j&, k& DefLng i-k Dim i, j, k ステートメント データ型 接尾辞 DefBool Boolean 型 (なし) DefByte Byte 型 (なし) DefCur Currency 型 @ DefDbl Double 型 # DefInt Integer 型 % DefLng Long 型 & DefSng Single 型 ! DefStr String 型 $ DefVar Variant 型 (なし)

明日からあなたのコードも20倍速!! になるといいね