Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11196 / 13644 ツリー ←次へ | 前へ→

【17524】動的配列の最小添え字について 沙也 04/9/1(水) 16:18 質問[未読]
【17525】Re:動的配列の最小添え字について Asaki 04/9/1(水) 16:41 回答[未読]
【17526】Re:動的配列の最小添え字について 沙也 04/9/1(水) 16:51 お礼[未読]

【17524】動的配列の最小添え字について
質問  沙也  - 04/9/1(水) 16:18 -

引用なし
パスワード
   教えてください。

環境:WindowsXP Excel2000

テキストファイルをオープンし、レコードを読み込み、
動的配列に格納しているのですが、
option Base 1 を指定しているにもかかわらず、
デバック文で表示した結果、最小添え字が0からになっています。
なぜ、1からにならないのでしょうか (・・?
動的配列の場合はoption Base 1は無効なのでしょうか?(?_?)
宜しくお願いします。)^o^(

【コード】
Option Base 1

Private Sub CommandButton13_Click()
  Dim Buff   As String
  Dim WK1()  As String
  Dim WK2   As String
  Dim FileNo  As Integer
  Dim Path   As String
  Dim I    As Integer
  Dim Count  As Integer
  
  Path = "D:\A\a.txt"  
  FileNo = FreeFile
  Open Path For Input As FileNo
  Do While Not EOF(FileNo)
    Line Input #FileNo, Buff
    WK1 = Split(Buff, ",")
  Loop
  Close FileNo

  WK2 = Join(WK1, ",")
  'デバック
  Debug.Print WK2
  For I = LBound(WK1) To UBound(WK1) Step 1
    Debug.Print I & "/" & WK1(I)
  Next
End Sub

'デバックで表示した結果、Iのカウンタ(LBound)が0から表示されます。
(入力のテキストは、カンマ区切りで、5項目の5レコードあります。)

【17525】Re:動的配列の最小添え字について
回答  Asaki  - 04/9/1(水) 16:41 -

引用なし
パスワード
   こんにちは。

Split()
の結果の配列は、常に0からです。
Option Base 1
の設定の影響を受けません。

【17526】Re:動的配列の最小添え字について
お礼  沙也  - 04/9/1(水) 16:51 -

引用なし
パスワード
   こんちは
早々のお返事有難うございます。

>Split()
>の結果の配列は、常に0からです。
>Option Base 1
>の設定の影響を受けません。

そーなんですか〜 <`〜´>
Split関数を使用した場合は、常に0からなんですね。
でも、0からでもロジックには支障がないので問題ありません。
どーも、有難う御座いました。m(__)m

11196 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free