faq/5/465

n=0でエラー発生 †

ページ	OpenOffice.org FAQの登録ページ
投稿者	とくさん
分類	Q&A要望不具合メンテナンス
優先順位	緊急重要普通低
状態	質問回答中完了完了回答待ち議論中Issues重複却下保留再現不可
カテゴリー	インストール全体Writer ワープロCalc 表計算Impress プレゼンテーションDraw 図形描画Base データベースHTMLエディタMath 数式エディタLinux版StarSuiteその他
投稿日	2010-08-07 07:21:48 (土)
OS	WindowsXP
依存するページ
バージョン	3.4.53.4.43.4.33.4.23.4.13.4.03.3.53.3.43.3.33.3.23.3.13.3.03.2.13.2.03.1.13.1.03.0.13.0.02.4.32.4.22.4.12.42.3.12.32.2.12.22.12.0.42.0.32.0.22.0.12.01.1.51.1.41.1.31.1.21.11.0.31.0.21.0.11.0Dev3.3Dev3.2Dev3.1Dev3.0不明

メッセージ †

下記のコードのn=0のところで
『許可されない値またはデータ型、定義された範囲外のインデックス。』
というエラーが出ます。
なんでや！という感じでまったく原因がわかりません。
どなたかご指導をお願いいたします。

    Public Redt(15,1000) As String
    Public Kefuk(8,9) As String
    Dim i As Integer
    Dim n As Integer
    i = 0
    Do While Redt(0,i) <> ""
     n = 0
     Do While Kefuk(0,n) <> ""
       If(  Redt(4,i) = Kefuk(3,n) And Redt(8,i) = "ｘｘｘ" )Then
            Redt(11,i) = Kefuk(4,n)
            Exit Do
       End If
       n = n + 1
     Loop
     i = i + 1
    Loop

無題 †

ike@九州 (2010-08-07 09:47:10 (土))

i、n とも配列の上限(1000 及び 9)が設定されてます

Redt(0,i) Kefuk(0,n) は超えたらエラーになりますね。

上限なしってできますか？ †

とくさん (2010-08-07 09:53:45 (土))

ご指摘の通り上限を超えていたようです。
Kefuk(8,10)と修正したらエラーはなくなりました。
申し訳ありません。
あと、上限なしってできるんでしょうか？

配列について †

M.Kamataki (2010-08-09 15:20:03 (月))

＞あと、上限なしってできるんでしょうか？

意図するところが、よくわかりませんが、下記をご覧ください。データフィールド (配列) のインデックスについて、最小値、最大値などの紹介があります。また、データフィールドのサイズの動的変更の紹介もあります。プログラミングの参考になるでしょうか。

http://wiki.services.openoffice.org/wiki/JA/Documentation/BASIC_Guide/Arrays

おそくなりました、完了です。 †

とくさん (2010-08-27 13:21:40 (金))

遅くなりましたが、完了にさせていただきます。