VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/09/08(Thu) 09:51
投稿者花ちゃん
Eメール
URL
タイトル文字の置換(テスト結果)

実験結果

使用データ  20列×2万行(4579KB)

元のコードでの結果  7.4秒

下記のコードでの結果 1.9秒

sCovText = Replace(Mid$(sCovText, 1, 1000000), ",", vbTab) & _
           Replace(Mid$(sCovText, 1000001, 1000000), ",", vbTab) & _
           Replace(Mid$(sCovText, 2000001, 1000000), ",", vbTab) & _
           Replace(Mid$(sCovText, 3000001, 1000000), ",", vbTab) & _
           Replace(Mid$(sCovText, 4000001, LenN - 4000001), ",", vbTab)
上記コードをもう少し工夫すれば、もう少しは早くなるかも。
一度そちらの環境で試して見て下さい。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -