配列を部分一致で絞込みしたい (ID:111510)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 見たところcsvファイルの絞込み検索のようですが、 より複雑な検索・絞込みをしたいなら、 DAO/ADOを使って、csvファイルをテキストデータベースとして開けば、 SQLを用いてかなり柔軟に検索・絞込みができます。 たとえばだいたいこんなかんじ。 Dim daoDB As DAO.Database Dim daoRst As DAO.Recordset Dim strSQL As String Set daoDB = DBEngine.Workspaces(0).OpenDatabase( _ App.Path, False, False, _ "Text;DATABASE=" & App.Path & "\;HDR=NO") strSQL = "Select * from [Test#csv] As T1 " strSQL = strSQL & "Where T1.F1 = " & Text1.Text & " " Set daoRst = daoDB.OpenRecordset(strSQL) Do Until daoRst.NoMatch List1.AddItem daoRst.Fields(1).Value List2.AddItem daoRst.Fields(2).Value List3.AddItem daoRst.Fields(3).Value End Loop daoRst.Close daoDB.Close Set daoRst = Nothing Set daoDB = Nothing