---

[記事リスト] [新着記事] [ワード検索] [過去ログ] [管理用]

---

タイトル	： Re^3: ひまなときでいいんで
投稿日	： 2009/11/20(Fri) 22:08:21
投稿者	： Ayacy
参照先	： http://www.yoshibaworks.com/ayacy/inasoft/

> ■ 73行目：ArrayAdd(EraseTarget$[], …
> ■ 76行目：KeyCount = sizeof(EraseTarget$[])

よく考えたら、

KeyCount = RegNumKey(OpenWithListKey$)
for(0, i<KeyCount) {
ArrayAdd(EraseTarget$[], ApplicationsKey$ + @"\" + EnumKey$(OpenWithListKey$, i))
}
// 削除を開始
KeyCount = sizeof(EraseTarget$[])

の部分は、

KeyCount = RegNumKey(OpenWithListKey$)
resize EraseTarget$[KeyCount]
for(0, i<KeyCount) {
EraseTarget$[i] = ApplicationsKey$ + @"\" + EnumKey$(OpenWithListKey$, i)
}

みたいな書き方で解決できそうです。

これから確保したい配列の上限数が分かっている場合、配列確保は一処理で行った方が良いので。
（R-Scriptに限ったことではないですが、配列の再確保・増加を繰り返し続けると、
　速度低下とメモリ断片化が発生しますので）

▼ - ひまなときでいいんで - Sinwa Hamada 09/11/16-21:29No.2264
• Re: ひまなときでいいんで - Ayacy 09/11/17-01:14 No.2265
  • Re^2: ひまなときでいいんで - Ayacy 09/11/19-23:53 No.2281
    • Re^3: ひまなときでいいんで - Ayacy 09/11/20-22:08 No.2282
      • Re^4: ひまなときでいいんで - Sinwa Hamada 09/11/21-22:08 No.2284
        • Re^5: ひまなときでいいんで - Ayacy 09/11/21-22:35 No.2285
          • 差し替えました（β版） - Ayacy 09/11/28-10:58 No.2292
            • 問題なく動作しています。 - Sinwa Hamada 09/11/29-16:32 No.2293
              • Re: 問題なく動作しています。 - Ayacy 09/11/29-17:22 No.2294
                • 本日正式公開しました - Ayacy 09/12/13-09:43 No.2295