■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#16612-0
CSV形式保存ファイル内の検索結果をMSFlexGridに読み込みたいのですが。
こんにちは。とっても初心者です。
CSV形式保存ファイル内を検索して、その結果を含んだ行だけを
MSFlexGridに読み込みたいのですが、
そういったことは、どうしたら出来るのかがわかりません。

よろしかったら教えてください。
#16613-0
RE#16612:CSV形式保存ファイル内の検索結果をMSFlexGridに読み込みたいのですが。
> こんにちは。とっても初心者です。
> CSV形式保存ファイル内を検索して、その結果を含んだ行だけを
> MSFlexGridに読み込みたいのですが、
> そういったことは、どうしたら出来るのかがわかりません。
> 
> よろしかったら教えてください。

出来ます。
こんな感じ

Dim iFileNo As Integer
Dim strBuffer As String
Dim strSearch As String

strSearch = "abc"
iFileNo = FreeFile
Open "c:\hogehoge.csv" For Input As #iFileNo
    Line Input #1, strBuffer
    '行全体を検索
    If InStr(strBuffer, strSearch) > 0 Then
        MSFlexGrid1.AddItem Replace(strBuffer, ",", vbTab)
    End If
Close #iFileNo

カンマで区切られた特定の項目だけを検索するなら、上のIf〜Thenの所を

'一番最初の項目のみ検索
If InStr(Split(strBuffer, ",")(0), strSearch) > 0 Then

のように変えます。
#16619-0
RE#16613:CSV形式保存ファイル内の検索結果をMSFlexGridに読み込みたいのですが。
匿名16613 さん。どうもありがとうございました。
おかげで読み込むことが出来ました。
Replace関数も、これで初めて知りました。

読み込んだとき、ダブルクォーテーションも一緒に読み込まれてしまうのですが、
これはどうしたらいいのかというのと、
複数行読み込むにはどうしたらいいのかという疑問が出来たのですが、
複数行は、何とかなりそうなのですが、一緒に読み込まれてしまう””は、
どうしたらよいのでしょうか?
もしよろしかったら教えてください。
このページと関連する記事:
#16565-0MSFlexGridに読み込んだデータの検索方法2001-06-08(金) 16:22
#16514-0MSFexGrid入力行までの保存2001-06-06(水) 16:04
#9225-0ログについて2000-06-29(木) 16:58
#33599-0ファイルの読み込みについて2000-11-16(木) 18:21
#508-3テキストファイルを一気に読み込みたい。2003-12-05(金) 20:54
#20778-0メモ帳の保存や開くを再現するには?2001-05-09(水) 14:44
#145-1ファイルシステムコントロ−ルの活用2003-12-05(金) 23:05
#18341-0CSV保存2001-02-02(金) 15:16
#43524-0複数処理について2001-05-30(水) 10:51
#47095-0CSVファイルの取り込みについて2001-09-21(金) 19:54
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)