投稿日	： 2005/07/01(Fri) 11:41
投稿者	： 魔界の仮面弁士
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 配列中から配列の番号を検索する

> 対応文字列　＞　コード番号
> の処理を高速に行なう方法をご教授願います。

私なら、たとえば

  Set Dict = CreateObject("Scripting.Dictionary")
  Dict("あああ") = 0
  Dict("ああい") = 1
  Dict("ああう") = 2
  Dict("ああお") = 3
  Dict("んんん") = 9999
  Key = "ああう"
  If Dict.Exists(Key) Then
     MsgBox Dict(Key)
  Else
     MsgBox "未登録：" & Key
  End If

のような、逆引き用の Dictionary を用意するか、または、配列を使わず、

  Dim RS As ADODB.Recordset

  Set RS = New ADODB.Recordset
  RS.Fields.Append "Name", adVarWChar, 30
  RS.Fields.Append "Index", adInteger
  RS.Open
  RS.Fields("Name").Properties("OPTIMIZE").Value = True
  RS.Fields("Index").Properties("OPTIMIZE").Value = True
  RS.AddNew Array("Name", "Index"), Array("あああ", 0)
  RS.AddNew Array("Name", "Index"), Array("ああい", 1)
  RS.AddNew Array("Name", "Index"), Array("ああう", 2)
  RS.AddNew Array("Name", "Index"), Array("ああお", 3)
  RS.AddNew Array("Name", "Index"), Array("べんし", 9999)
  RS.AddNew Array("Name", "Index"), Array("んんん", 9999)

  Key = "ああお"
  RS.Filter = "Name='" & Key & "'"
  If RS.EOF Then
     MsgBox "未登録：" & Key
  Else
     MsgBox RS.Collect("Index")
  End If
  RS.Filter = adFilterNone

  Index = 9999
  RS.Filter = "Index=" & CStr(Index)
  S = ""
  Do Until RS.EOF
      S = S & vbCrLf & "[" & RS.Fields("Name").Value & "]"
      RS.MoveNext
  Loop
  RS.Filter = adFilterNone
  MsgBox Mid(S, 3)

のように、レコードセットを使って管理する手法をとるかも。

★ - 配列中から配列の番号を検索する - はせ 07/01-00:38No.3700
• Re: 配列中から配列の番号を検索する - 琴 07/01-09:15 No.3702
• Partition関数 - ダンボ 07/01-10:01 No.3704
• Re: 配列中から配列の番号を検索する - 魔界の仮面弁士 07/01-11:41 No.3708
  • Re^2: 配列中から配列の番号を検索する - はせ 07/01-20:02 No.3714
    • Re^3: 配列中から配列の番号を検索する - 魔界の仮面弁士 07/01-22:53 No.3715
      • ありがとうございました。 - はせ 07/04-03:00 No.3736